<p><b>mpetersen@lanl.gov</b> 2012-02-16 16:34:24 -0700 (Thu, 16 Feb 2012)</p><p>BRANCH COMMIT: small changes to alleviate nan resulting in commit R1495 (GM to trunk). I just change uTransport back to u in the tendency subroutines.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/ztilde/src/core_ocean/mpas_ocn_tendency.F
===================================================================
--- branches/ocean_projects/ztilde/src/core_ocean/mpas_ocn_tendency.F 2012-02-16 23:32:25 UTC (rev 1512)
+++ branches/ocean_projects/ztilde/src/core_ocean/mpas_ocn_tendency.F 2012-02-16 23:34:24 UTC (rev 1513)
@@ -128,7 +128,10 @@
call mpas_timer_start("ocn_tend_h")
u => s % u % array
- uTransport => s % uTransport % array
+! mrp 120216, change back to u for R1495 error correction
+! uTransport => s % uTransport % array
+ uTransport => s % u % array
+! mrp 120216 end, change back to u for R1495 error correction
wTop => s % wTop % array
h_edge => s % h_edge % array
@@ -323,7 +326,10 @@
call mpas_timer_start("ocn_tend_scalar")
u => s % u % array
- uTransport => s % uTransport % array
+! mrp 120216, change back to u for R1495 error correction
+! uTransport => s % uTransport % array
+ uTransport => s % u % array
+! mrp 120216 end, change back to u for R1495 error correction
h => s % h % array
wTop => s % wTop % array
tracers => s % tracers % array
</font>
</pre>