<p><b>qchen3@fsu.edu</b> 2012-04-26 11:13:45 -0600 (Thu, 26 Apr 2012)</p><p>BRANCH COMMIT<br>
<br>
Committing to set a version for high resolution reference simulations.<br>
<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-26 16:48:19 UTC (rev 1816)
+++ branches/ocean_projects/accgm/src/core_ocean/mpas_ocn_gm.F        2012-04-26 17:13:45 UTC (rev 1817)
@@ -128,15 +128,14 @@
nVertLevels = grid % nVertLevels
- ymid = 0.5*(maxval(yEdge) + minval(yEdge))
- Ly = maxval(yEdge) - minval(yEdge)
+ Ly = 2000000.0*sqrt(3.0)/2.0
+ ymid = 0.5*Ly
!h_kappa(:,:) = config_h_kappa
do k = 1, nVertLevels
h_kappa(k,:) = config_h_kappa*exp(-((yEdge(:)-ymid)*4/Ly)**2)
end do
-
end subroutine ocn_get_h_kappa
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-26 16:48:19 UTC (rev 1816)
+++ branches/ocean_projects/accgm/src/core_ocean/mpas_ocn_tendency.F        2012-04-26 17:13:45 UTC (rev 1817)
@@ -624,7 +624,7 @@
end do
- ! Annihilate vorticity on the boundary to enforce free-slip boundary conditions
+ !Annihilate vorticity on the boundary to enforce free-slip boundary conditions
!vorticity(:,:) = vorticity(:,:) * vertexMask(:,:)
!
</font>
</pre>