<p><b>duda</b> 2009-09-09 12:10:06 -0600 (Wed, 09 Sep 2009)</p><p>Add a "test case 0", which simply uses the initial conditions <br>
as given in the grid.nc file. This might be useful, for example,<br>
when generating periodic meshes for which fields are initialized<br>
at the time of grid generation.<br>
<br>
M module_test_cases.F<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/swmodel/src/module_test_cases.F
===================================================================
--- trunk/swmodel/src/module_test_cases.F        2009-09-09 18:07:25 UTC (rev 48)
+++ trunk/swmodel/src/module_test_cases.F        2009-09-09 18:10:06 UTC (rev 49)
@@ -24,7 +24,10 @@
integer :: i
type (block_type), pointer :: block_ptr
- if (config_test_case == 1) then
+ if (config_test_case == 0) then
+ write(0,*) 'Using initial conditions supplied in input file'
+
+ else if (config_test_case == 1) then
write(0,*) 'Setting up shallow water test case 1'
write(0,*) ' -- Advection of Cosine Bell over the Pole'
</font>
</pre>