<p><b>duda</b> 2009-09-09 12:10:06 -0600 (Wed, 09 Sep 2009)</p><p>Add a &quot;test case 0&quot;, 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>