[Dart-dev] DART/branches Revision: 12411

[dart at ucar.edu]

nancy at ucar.edu
2018-03-01 13:26:31 -0700 (Thu, 01 Mar 2018)
151
fix the declaration for the list of input/output files.
that single change allows multiple ensemble members and
multiple domains to run successfully.




Modified: DART/branches/rma_trunk/assimilation_code/programs/model_mod_check/model_mod_check.f90
===================================================================
--- DART/branches/rma_trunk/assimilation_code/programs/model_mod_check/model_mod_check.f90	2018-03-01 20:21:46 UTC (rev 12410)
+++ DART/branches/rma_trunk/assimilation_code/programs/model_mod_check/model_mod_check.f90	2018-03-01 20:26:31 UTC (rev 12411)
@@ -12,7 +12,7 @@
 
 program model_mod_check
 
-use             types_mod, only : r8, i8, missing_r8, metadatalength, MAX_NUM_DOMS
+use             types_mod, only : r8, i8, missing_r8, metadatalength
 
 use         utilities_mod, only : register_module, error_handler, E_MSG, E_ERR, &
                                   initialize_utilities, finalize_utilities,     &
@@ -66,6 +66,14 @@
 
 integer, parameter :: MAX_TESTS = 7
 
+! this is max number of domains times number of ensemble members
+! if you have more than one domain and your ensemble members are
+! in separate files, the names should be listed in this order:
+!  all filenames for ensemble members for domain 1
+!  all filenames for ensemble members for domain 2, etc
+
+integer, parameter :: MAX_FILES = 1000
+
 !------------------------------------------------------------------
 ! The namelist variables
 !------------------------------------------------------------------
@@ -72,8 +80,8 @@
 
 logical                       :: single_file = .false.
 integer                       :: num_ens = 1
-character(len=256)            :: input_state_files(MAX_NUM_DOMS)  = 'null'
-character(len=256)            :: output_state_files(MAX_NUM_DOMS) = 'null'
+character(len=256)            :: input_state_files(MAX_FILES)  = 'null'
+character(len=256)            :: output_state_files(MAX_FILES) = 'null'
 character(len=256)            :: all_metadata_file = 'metadata.txt'
 integer(i8)                   :: x_ind   = -1
 real(r8), dimension(3)        :: loc_of_interest = -1.0_r8

Modified: DART/branches/rma_trunk/assimilation_code/programs/model_mod_check/model_mod_check.html
===================================================================
--- DART/branches/rma_trunk/assimilation_code/programs/model_mod_check/model_mod_check.html	2018-03-01 20:21:46 UTC (rev 12410)
+++ DART/branches/rma_trunk/assimilation_code/programs/model_mod_check/model_mod_check.html	2018-03-01 20:26:31 UTC (rev 12411)
@@ -129,13 +129,19 @@
 <TR><TD> input_state_files(:)  </TD>
     <TD> character(len=256) </TD>
     <TD> The name(s) of the NetCDF file(s) containing the model states, one per domain.
-      <!--  If num_ens > 1 then you need to specify a file for each ensemble.  -->
+         If num_ens > 1 and not single_file, specify a filename for each 
+         ensemble member (num_ens). If you have both multiple ensemble members in separate
+         files AND multiple domains, specify all the ensemble member filenames for domain 1, 
+         then all the ensemble member filenames for domain 2, etc.
 </TD></TR>  
 
 <TR><TD> output_state_files(:)  </TD>
     <TD> character(len=256) </TD>
     <TD> The name(s) of the output NetCDF file(s) for testing IO, one per domain.
-      <!--   If num_ens > 1 then you need to specify a file for each ensemble. -->
+         If num_ens > 1 and not single_file, specify a filename for each 
+         ensemble member (num_ens). If you have both multiple ensemble members in separate
+         files AND multiple domains, specify all the ensemble member filenames for domain 1, 
+         then all the ensemble member filenames for domain 2, etc.
 </TD></TR>  
 
 <TR><TD> all_metadata_file  </TD>