<p><b>qchen3@fsu.edu</b> 2012-04-25 09:07:06 -0600 (Wed, 25 Apr 2012)</p><p>BRANCH COMMIT<br>
<br>
Fixing the calculation of h_kappa.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/accgm/src/core_ocean/mpas_ocn_gm.F
===================================================================
--- branches/ocean_projects/accgm/src/core_ocean/mpas_ocn_gm.F        2012-04-25 14:12:49 UTC (rev 1806)
+++ branches/ocean_projects/accgm/src/core_ocean/mpas_ocn_gm.F        2012-04-25 15:07:06 UTC (rev 1807)
@@ -133,7 +133,7 @@
 
       !h_kappa(:,:) = config_h_kappa
       do k = 1, nVertLevels
-         h_kappa(k,:) = 1500.0*exp(-((yEdge(:)-ymid)*4/Ly)**2)
+         h_kappa(k,:) = config_h_kappa*exp(-((yEdge(:)-ymid)*4/Ly)**2)
       end do
 
 

Modified: branches/ocean_projects/accgm/src/core_ocean/mpas_ocn_tendency.F
===================================================================
--- branches/ocean_projects/accgm/src/core_ocean/mpas_ocn_tendency.F        2012-04-25 14:12:49 UTC (rev 1806)
+++ branches/ocean_projects/accgm/src/core_ocean/mpas_ocn_tendency.F        2012-04-25 15:07:06 UTC (rev 1807)
@@ -253,7 +253,7 @@
       !
       if (.not.config_implicit_vertical_mix) then
           call mpas_timer_start(&quot;explicit vmix&quot;, .false., velExpVmixTimer)
-!          call ocn_vel_vmix_tend_explicit(grid, u, h_edge, vertvisctopofedge, tend_u, err)
+          call ocn_vel_vmix_tend_explicit(grid, u, h_edge, vertvisctopofedge, tend_u, err)
           call mpas_timer_stop(&quot;explicit vmix&quot;, velExpVmixTimer)
       endif
       call mpas_timer_stop(&quot;ocn_tend_u&quot;)

</font>
</pre>