[Dart-dev] DART/branches Revision: 10768

[dart at ucar.edu]

nancy at ucar.edu
2016-11-18 14:44:03 -0700 (Fri, 18 Nov 2016)
98
update the derived type and routine names for
the stage metadata for filenames and descriptions.




Modified: DART/branches/rma_fixed_filenames/models/model_mod_tools/model_mod_check.f90
===================================================================
--- DART/branches/rma_fixed_filenames/models/model_mod_tools/model_mod_check.f90	2016-11-18 21:36:30 UTC (rev 10767)
+++ DART/branches/rma_fixed_filenames/models/model_mod_tools/model_mod_check.f90	2016-11-18 21:44:03 UTC (rev 10768)
@@ -44,7 +44,7 @@
 use            filter_mod, only : filter_set_initial_time
 
 use      io_filenames_mod, only : io_filenames_init, file_info_type,        &
-                                  restart_names_type, get_restart_files, &
+                                  stage_metadata_type, get_stage_metadata, &
                                   get_restart_filename
                                   
 
@@ -109,7 +109,7 @@
 integer :: iunit, io
 integer, allocatable :: ios_out(:)
 type(file_info_type) :: file_info_input, file_info_output
-type(restart_names_type) :: input_restart_files, output_restart_files
+type(stage_metadata_type) :: input_restart_files, output_restart_files
 logical              :: read_time_from_file = .true.
 
 ! model state variables
@@ -194,7 +194,7 @@
 !----------------------------------------------------------------------
 ! Open a test netcdf initial conditions file.
 !----------------------------------------------------------------------
-input_restart_files = get_restart_files(file_info_input)
+input_restart_files = get_stage_metadata(file_info_input)
 num_domains = get_num_domains()
 do idom = 1, num_domains
    do imem = 1, num_ens
@@ -204,7 +204,7 @@
 call read_state(ens_handle, file_info_input,  read_time_from_file, time1)
 model_time = time1
 
-output_restart_files = get_restart_files(file_info_output)
+output_restart_files = get_stage_metadata(file_info_output)
 do idom = 1, num_domains
    do imem = 1, num_ens
       if ( do_output() ) write(*,*) 'Writing File : ', trim( get_restart_filename(output_restart_files, imem, domain=idom) )