<p><b>mpetersen@lanl.gov</b> 2011-04-21 12:54:30 -0600 (Thu, 21 Apr 2011)</p><p>BRANCH COMMIT: Fixed incorrect index and variable in Richardson number-based mixing.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/imp_vert_mix_mrp/src/core_ocean/module_time_integration.F
===================================================================
--- branches/ocean_projects/imp_vert_mix_mrp/src/core_ocean/module_time_integration.F        2011-04-20 20:39:35 UTC (rev 797)
+++ branches/ocean_projects/imp_vert_mix_mrp/src/core_ocean/module_time_integration.F        2011-04-21 18:54:30 UTC (rev 798)
@@ -1983,13 +1983,12 @@
 
    elseif (config_vert_visc_type.eq.'rich') then
 
-
       vertViscTopOfEdge = 0.0
       do iEdge = 1,nEdges
          do k = 2,maxLevelEdgeTop(iEdge)
-            ! mrp 110324 efficiency note: this if is inside iCell and k loops.
+            ! mrp 110324 efficiency note: this if is inside iEdge and k loops.
             ! Perhaps there is a more efficient way to do this.
-            if (RiTopOfCell(k,iCell)&gt;0.0) then
+            if (RiTopOfEdge(k,iEdge)&gt;0.0) then
                vertViscTopOfEdge(k,iEdge) = config_bkrd_vert_visc &amp;
                   + config_rich_mix / (1.0 + 5.0*RiTopOfEdge(k,iEdge))**2
             else

</font>
</pre>