<p><b>dwj07@fsu.edu</b> 2012-08-13 12:41:04 -0600 (Mon, 13 Aug 2012)</p><p><br>
        -- TRUNK COMMIT --<br>
        core_ocean only<br>
<br>
        Fixing scaling of tracers in RK4. <br>
        Removed during a previous merge.<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/core_ocean/mpas_ocn_time_integration_rk4.F
===================================================================
--- trunk/mpas/src/core_ocean/mpas_ocn_time_integration_rk4.F        2012-08-12 04:32:08 UTC (rev 2098)
+++ trunk/mpas/src/core_ocean/mpas_ocn_time_integration_rk4.F        2012-08-13 18:41:04 UTC (rev 2099)
@@ -236,8 +236,9 @@
            do iCell=1,block % mesh % nCells
               do k=1,block % mesh % maxLevelCell % array(iCell)
                  block % state % time_levs(2) % state % tracers % array(:,k,iCell) =  &amp;
-                                                                       block % state % time_levs(2) % state % tracers % array(:,k,iCell) &amp;
-                                               + rk_weights(rk_step) * block % tend % tracers % array(:,k,iCell)
+                                                                       ( block % state % time_levs(2) % state % tracers % array(:,k,iCell) &amp;
+                                                                        + rk_weights(rk_step) * block % tend % tracers % array(:,k,iCell) )&amp;
+                                                                       / block % state % time_levs(2) % state % h % array(k, iCell)
               end do
            end do
 

</font>
</pre>