<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("explicit vmix", .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("explicit vmix", velExpVmixTimer)
endif
call mpas_timer_stop("ocn_tend_u")
</font>
</pre>