<p><b>mpetersen@lanl.gov</b> 2010-11-12 14:02:17 -0700 (Fri, 12 Nov 2010)</p><p>In ocean core, correct index error in bottom drag.<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/core_ocean/module_time_integration.F
===================================================================
--- trunk/mpas/src/core_ocean/module_time_integration.F        2010-11-12 18:21:35 UTC (rev 612)
+++ trunk/mpas/src/core_ocean/module_time_integration.F        2010-11-12 21:02:17 UTC (rev 613)
@@ -611,7 +611,7 @@
          ! see POP Reference guide, section 3.4.4.
          tend_u(nVertLevels,iEdge) = tend_u(nVertLevels,iEdge)  &amp;
            - 1.0e-3*u(nVertLevels,iEdge) &amp;
-             *sqrt(2.0*ke_edge(nVertLevels,iEdge))/h_edge(k,iEdge)
+             *sqrt(2.0*ke_edge(nVertLevels,iEdge))/h_edge(nVertLevels,iEdge)
 
          ! old bottom drag, just linear friction
          ! du/dt = u/tau where tau=100 days.

</font>
</pre>