[Dart-dev] DART/branches Revision: 12718

[dart at ucar.edu]

hendric at ucar.edu
2018-07-09 14:15:28 -0600 (Mon, 09 Jul 2018)
420

Removing the template_file from the model_nml.  This was
only needed to get the grid size for add domain, which 
is 10 for all of the provided perect_input_*.nc.  If the
user would like to specify more grid points they must
specify:

&perfect_model_nml
   read_input_state_from_file = .false.
   ...
/

and
&model_nml
   num_grid_points = ##
   ..
/

The model size for filter_initial_*.nc is similary all
of size 10.




Modified: DART/branches/rma_trunk/models/simple_advection/model_mod.f90
===================================================================
--- DART/branches/rma_trunk/models/simple_advection/model_mod.f90	2018-07-09 17:51:50 UTC (rev 12717)
+++ DART/branches/rma_trunk/models/simple_advection/model_mod.f90	2018-07-09 20:15:28 UTC (rev 12718)
@@ -105,11 +105,6 @@
 integer  :: time_step_days          = 0
 integer  :: time_step_seconds       = 3600
 
-! if you have a template file, set the name here.
-! if you are not starting from a restart, leave this as ''
-! and the code should construct a domain from spec.
-character(len=256) :: template_file = ''
-
 ! Namelist parameters associated with wind
 ! Base velocity (expected value over time), in meters/second
 real(r8)  :: mean_wind              = 20.0_r8
@@ -145,8 +140,7 @@
                      mean_wind, wind_random_amp, wind_damping_rate, &
                      lagrangian_for_wind, destruction_rate, &
                      source_random_amp_frac, source_damping_rate, &
-                     source_diurnal_rel_amp, source_phase_noise, &
-                     template_file
+                     source_diurnal_rel_amp, source_phase_noise
 
 
 ! Define the location of the state variables in module storage
@@ -222,29 +216,18 @@
    random_seq_init = .true.
 endif
 
-! Tell the DART I/O routines how large the model data is so they
-! can read/write it.
-if (template_file /= '') then
-   dom_id = add_domain(template_file, NVARS, &
-                       (/ 'concentration', &
-                          'source       ', &
-                          'wind         ', &
-                          'mean_source  ', &
-                          'source_phase ' /))
-else 
-   dom_id = add_domain(NVARS, (/ 'concentration', &
-                                 'source       ', &
-                                 'wind         ', &
-                                 'mean_source  ', &
-                                 'source_phase ' /))
+! Tell DART how many grid variables are in the model state
+dom_id = add_domain(NVARS, (/ 'concentration', &
+                              'source       ', &
+                              'wind         ', &
+                              'mean_source  ', &
+                              'source_phase ' /))
 
-   do var_id=1, NVARS
-      call add_dimension_to_variable(dom_id, var_id, 'location', int(num_grid_points, i4))
-   enddo
-   
-   call finished_adding_domain(dom_id)
-endif
+do var_id=1, NVARS
+   call add_dimension_to_variable(dom_id, var_id, 'location', int(num_grid_points, i4))
+enddo
 
+call finished_adding_domain(dom_id)
 
 end subroutine static_init_model
 

Modified: DART/branches/rma_trunk/models/simple_advection/work/input.nml
===================================================================
--- DART/branches/rma_trunk/models/simple_advection/work/input.nml	2018-07-09 17:51:50 UTC (rev 12717)
+++ DART/branches/rma_trunk/models/simple_advection/work/input.nml	2018-07-09 20:15:28 UTC (rev 12718)
@@ -147,7 +147,6 @@
    source_damping_rate    = 0.000002777778
    source_diurnal_rel_amp = 0.0
    source_phase_noise     = 0.0
-   template_file          = 'perfect_input.nc'
    /
 
 &utilities_nml