<p><b>mpetersen@lanl.gov</b> 2010-11-09 11:01:32 -0700 (Tue, 09 Nov 2010)</p><p>Correct error in ocean core bottom friction<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-09 17:55:35 UTC (rev 603)
+++ trunk/mpas/src/core_ocean/module_time_integration.F        2010-11-09 18:01:32 UTC (rev 604)
@@ -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))
+             *sqrt(2.0*ke_edge(nVertLevels,iEdge))/h_edge(k,iEdge)
 
          ! old bottom drag, just linear friction
          ! du/dt = u/tau where tau=100 days.

</font>
</pre>