<p><b>mpetersen@lanl.gov</b> 2011-06-08 07:23:12 -0600 (Wed, 08 Jun 2011)</p><p>Small change to fix bug I introduced into Higdon split, u correction for tracer conservation.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/timesplitting_mrp/src/core_ocean/module_time_integration.F
===================================================================
--- branches/ocean_projects/timesplitting_mrp/src/core_ocean/module_time_integration.F        2011-06-07 23:04:39 UTC (rev 882)
+++ branches/ocean_projects/timesplitting_mrp/src/core_ocean/module_time_integration.F        2011-06-08 13:23:12 UTC (rev 883)
@@ -978,11 +978,8 @@
 
             uCorr =   ucorr_coef*(( block % state % time_levs(1) % state % FBtr % array(iEdge) &amp;
                        /block % mesh % dvEdge % array(iEdge) &amp;
-                      - uhSum)/(sshEdge + block % mesh % hZLevel % array(1)))
+                      - uhSum)/hSum)
 
-
-
-
               ! put u^{tr}, the velocity for tracer transport, in uNew
           ! mrp 060611 not sure if boundary enforcement is needed here.  
           if (block % mesh % boundaryEdge % array(1,iEdge).eq.1) then

</font>
</pre>