<p><b>mpetersen@lanl.gov</b> 2012-10-03 15:28:46 -0600 (Wed, 03 Oct 2012)</p><p>In the test cases, change overflow to be 3-wide, periodic in x.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/ocean_test_cases_staging/ocean/overflow/basin_src/basin-template.F
===================================================================
--- branches/ocean_projects/ocean_test_cases_staging/ocean/overflow/basin_src/basin-template.F        2012-10-03 17:44:54 UTC (rev 2177)
+++ branches/ocean_projects/ocean_test_cases_staging/ocean/overflow/basin_src/basin-template.F        2012-10-03 21:28:46 UTC (rev 2178)
@@ -27,11 +27,11 @@
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
implicit none
-integer, parameter :: nx = 50
+integer, parameter :: nx = 3
! This needs to be changed for correct periodic boundaries
! Lx is the TOTAL domain width, and needs to be exact for correct periodic
! boundaries in x.
-real, parameter :: Lx = 200.0e3
+real, parameter :: Lx = 3.0e3
! original grid variables
integer :: time, nCells, nEdges, nVertices
@@ -1009,12 +1009,6 @@
where(yCell.lt.1.001*ymin) kmt = 0
where(yCell.gt.0.999*ymax) kmt = 0
- xmin = minval(xCell)
- xmax = maxval(xCell)
-
- where(xCell.lt.1.001*xmin) kmt = 0
- where(xCell.gt.0.999*xmax) kmt = 0
-
! ! solid boundary in x
! xmin = minval(xCell)
! write(6,*) ' minimum xCell ', xmin
</font>
</pre>