[Dart-dev] DART/branches Revision: 10768
dart at ucar.edu
dart at ucar.edu
Fri Nov 18 14:44:05 MST 2016
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) )
More information about the Dart-dev
mailing list