[Dart-dev] DART/branches Revision: 12717

[dart at ucar.edu]

hendric at ucar.edu
2018-07-09 11:51:50 -0600 (Mon, 09 Jul 2018)
306

member and time dimensions are written in write_model_attributes
and do not need to be written in the model_mod.

in order to run with an arbitrary grid size make sure that

&perfect_model_obs_nml
   read_input_state_from_file = .false.
   ...
/

and that no template file is supplied to the &model_nml.




Modified: DART/branches/rma_trunk/models/simple_advection/model_mod.f90
===================================================================
--- DART/branches/rma_trunk/models/simple_advection/model_mod.f90	2018-07-03 20:40:41 UTC (rev 12716)
+++ DART/branches/rma_trunk/models/simple_advection/model_mod.f90	2018-07-09 17:51:50 UTC (rev 12717)
@@ -28,6 +28,7 @@
 
 use default_model_mod,     only : end_model, nc_write_model_vars, init_time
 
+
 use     obs_kind_mod, only : QTY_VELOCITY, QTY_TRACER_CONCENTRATION, &
                              QTY_TRACER_SOURCE, QTY_MEAN_SOURCE, QTY_SOURCE_PHASE
 
@@ -231,11 +232,6 @@
                           'mean_source  ', &
                           'source_phase ' /))
 else 
-   !>@todo FIXME : should not need a template file if initializing members from code
-
-   write(string1, *) 'template file is required for now'
-   call error_handler(E_ERR,'static_init_model',string1, source, revision, revdate)
-
    dom_id = add_domain(NVARS, (/ 'concentration', &
                                  'source       ', &
                                  'wind         ', &
@@ -243,8 +239,6 @@
                                  'source_phase ' /))
 
    do var_id=1, NVARS
-      call add_dimension_to_variable(dom_id, var_id, 'time', 1)
-      call add_dimension_to_variable(dom_id, var_id, 'member', my_ens_size)
       call add_dimension_to_variable(dom_id, var_id, 'location', int(num_grid_points, i4))
    enddo
    
@@ -552,6 +546,7 @@
 
 integer :: var_type_index, var_loc_index
 
+!>@todo This should be using the state_structure routines
 ! Three variable types
 var_type_index = (index_in - 1) / num_grid_points + 1
 var_loc_index = index_in - (var_type_index - 1)*num_grid_points