<p><b>mpetersen@lanl.gov</b> 2012-07-17 07:51:20 -0600 (Tue, 17 Jul 2012)</p><p>BRANCH COMMIT: fix bug on Ri number computation.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/rich_vert_mix_bug/src/core_ocean/mpas_ocn_vmix_coefs_rich.F
===================================================================
--- branches/ocean_projects/rich_vert_mix_bug/src/core_ocean/mpas_ocn_vmix_coefs_rich.F        2012-07-16 18:08:03 UTC (rev 2028)
+++ branches/ocean_projects/rich_vert_mix_bug/src/core_ocean/mpas_ocn_vmix_coefs_rich.F        2012-07-17 13:51:20 UTC (rev 2029)
@@ -472,7 +472,7 @@
       drhoTopOfCell = 0.0
       do iCell=1,nCells
          do k=2,maxLevelCell(iCell)
-            drhoTopOfCell(k,iCell) = rho(k-1,iCell) - rhoDisplaced(k-1,iCell)
+            drhoTopOfCell(k,iCell) = rhoDisplaced(k-1,iCell) - rhoDisplaced(k,iCell)
           end do
       end do
 

</font>
</pre>