<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>