[Dart-dev] DART/branches Revision: 11661

[dart at ucar.edu]

nancy at ucar.edu
2017-05-25 14:52:03 -0600 (Thu, 25 May 2017)
113
swapping order of source and mean source to match
assumptions in code about order of fields in the
state vector




Modified: DART/branches/rma_trunk/models/simple_advection/model_mod.f90
===================================================================
--- DART/branches/rma_trunk/models/simple_advection/model_mod.f90	2017-05-25 18:28:36 UTC (rev 11660)
+++ DART/branches/rma_trunk/models/simple_advection/model_mod.f90	2017-05-25 20:52:03 UTC (rev 11661)
@@ -225,9 +225,9 @@
 if (template_file /= '') then
    dom_id = add_domain(template_file, NVARS, &
                        (/ 'concentration', &
+                          'source       ', &
+                          'wind         ', &
                           'mean_source  ', &
-                          'wind         ', &
-                          'source       ', &
                           'source_phase ' /))
 else 
    !>@todo FIXME : should not need a template file if initializing members from code
@@ -236,9 +236,9 @@
    call error_handler(E_ERR,'static_init_model',string1, source, revision, revdate)
 
    dom_id = add_domain(NVARS, (/ 'concentration', &
+                                 'source       ', &
+                                 'wind         ', &
                                  'mean_source  ', &
-                                 'wind         ', &
-                                 'source       ', &
                                  'source_phase ' /))
 
    do var_id=1, NVARS