[Dart-dev] DART/branches Revision: 11835
dart at ucar.edu
dart at ucar.edu
Wed Jul 19 11:50:32 MDT 2017
hendric at ucar.edu
2017-07-19 11:50:32 -0600 (Wed, 19 Jul 2017)
172
updating the call to io_filenames_init so that model_mod_check and
closest_member_tool compiles. moved MAX_FILES to the types_mod to
avoid having multiple declarations.
Modified: DART/branches/rma_array_nml/assimilation_code/modules/assimilation/filter_mod.dopplerfold.f90
===================================================================
--- DART/branches/rma_array_nml/assimilation_code/modules/assimilation/filter_mod.dopplerfold.f90 2017-07-19 16:55:29 UTC (rev 11834)
+++ DART/branches/rma_array_nml/assimilation_code/modules/assimilation/filter_mod.dopplerfold.f90 2017-07-19 17:50:32 UTC (rev 11835)
@@ -7,7 +7,7 @@
module filter_mod
!------------------------------------------------------------------------------
-use types_mod, only : r8, i8, missing_r8, metadatalength, MAX_NUM_DOMS
+use types_mod, only : r8, i8, missing_r8, metadatalength, MAX_NUM_DOMS, MAX_FILES
use obs_sequence_mod, only : read_obs_seq, obs_type, obs_sequence_type, &
get_obs_from_key, set_copy_meta_data, get_copy_meta_data, &
get_obs_def, get_time_range_keys, set_obs_values, set_obs, &
@@ -189,12 +189,10 @@
logical :: distributed_state = .true. ! Default to do state complete forward operators.
! IO options
-! Names of files given explicitly in namelist
-integer, parameter :: MAXFILES = 200
!>@todo FIXME - how does this work for multiple domains? ens1d1, ens2d1, ... ens1d2 or
!> ens1d1 ens1d2, ens1d1 ens2d2, etc i like the latter better.
-character(len=256) :: input_state_files(MAXFILES) = ''
-character(len=256) :: output_state_files(MAXFILES) = ''
+character(len=256) :: input_state_files(MAX_FILES) = ''
+character(len=256) :: output_state_files(MAX_FILES) = ''
! Name of files containing a list of {input,output} restart files, 1 file per domain
character(len=256) :: input_state_file_list(MAX_NUM_DOMS) = ''
character(len=256) :: output_state_file_list(MAX_NUM_DOMS) = ''
Modified: DART/branches/rma_array_nml/assimilation_code/modules/assimilation/filter_mod.f90
===================================================================
--- DART/branches/rma_array_nml/assimilation_code/modules/assimilation/filter_mod.f90 2017-07-19 16:55:29 UTC (rev 11834)
+++ DART/branches/rma_array_nml/assimilation_code/modules/assimilation/filter_mod.f90 2017-07-19 17:50:32 UTC (rev 11835)
@@ -7,7 +7,7 @@
module filter_mod
!------------------------------------------------------------------------------
-use types_mod, only : r8, i8, missing_r8, metadatalength, MAX_NUM_DOMS
+use types_mod, only : r8, i8, missing_r8, metadatalength, MAX_NUM_DOMS, MAX_FILES
use obs_sequence_mod, only : read_obs_seq, obs_type, obs_sequence_type, &
get_obs_from_key, set_copy_meta_data, get_copy_meta_data, &
get_obs_def, get_time_range_keys, set_obs_values, set_obs, &
@@ -189,12 +189,10 @@
logical :: distributed_state = .true. ! Default to do state complete forward operators.
! IO options
-! Names of files given explicitly in namelist
-integer, parameter :: MAXFILES = 200
!>@todo FIXME - how does this work for multiple domains? ens1d1, ens2d1, ... ens1d2 or
!> ens1d1 ens1d2, ens1d1 ens2d2, etc i like the latter better.
-character(len=256) :: input_state_files(MAXFILES) = ''
-character(len=256) :: output_state_files(MAXFILES) = ''
+character(len=256) :: input_state_files(MAX_FILES) = ''
+character(len=256) :: output_state_files(MAX_FILES) = ''
! Name of files containing a list of {input,output} restart files, 1 file per domain
character(len=256) :: input_state_file_list(MAX_NUM_DOMS) = ''
character(len=256) :: output_state_file_list(MAX_NUM_DOMS) = ''
Modified: DART/branches/rma_array_nml/assimilation_code/modules/utilities/types_mod.f90
===================================================================
--- DART/branches/rma_array_nml/assimilation_code/modules/utilities/types_mod.f90 2017-07-19 16:55:29 UTC (rev 11834)
+++ DART/branches/rma_array_nml/assimilation_code/modules/utilities/types_mod.f90 2017-07-19 17:50:32 UTC (rev 11835)
@@ -21,7 +21,7 @@
public :: t_kelvin, es_alpha, es_beta, es_gamma, gas_constant_v, gas_constant
public :: L_over_Rv, ps0, earth_radius, gravity
public :: metadatalength, obstypelength, varnamelength, vtablenamelength
-public :: MAX_NUM_DOMS
+public :: MAX_NUM_DOMS, MAX_FILES
! version controlled file description for error handling, do not edit
character(len=256), parameter :: source = &
@@ -33,16 +33,18 @@
! constants that need to be shared - really has nothing to do with types ...
!----------------------------------------------------------------------------
-integer, parameter :: metadatalength = 64 ! 75 is max w/out wrapping in ncdump
-integer, parameter :: varnamelength = 31 ! max name of any fortran variable
- ! in F90/95. increased to 63 in F2003
-integer, parameter :: obstypelength = 31 ! because of variable name limits.
- ! use this for obs types/kinds
-integer, parameter :: vtablenamelength = 64 ! use this for the model_mod variable table items
+integer, parameter :: metadatalength = 64 ! 75 is max w/out wrapping in ncdump
+integer, parameter :: varnamelength = 31 ! max name of any fortran variable
+ ! in F90/95. increased to 63 in F2003
+integer, parameter :: obstypelength = 31 ! because of variable name limits.
+ ! use this for obs types/kinds
+integer, parameter :: vtablenamelength = 64 ! use this for the model_mod variable table items
-integer, parameter :: MAX_NUM_DOMS = 10 ! max num domains. this is arbitrarily
- ! based on WRF's maximum number of domains
+integer, parameter :: MAX_NUM_DOMS = 10 ! max num domains. this is arbitrarily
+ ! based on WRF's maximum number of domains
+integer, parameter :: MAX_FILES = 1000 ! maximum number of files
+
!----------------------------------------------------------------------------
! Attributes for variable kinds -- declaring sizes explicitly means we know
! exactly what precision we are using and are not relying on compiler flags
Modified: DART/branches/rma_array_nml/assimilation_code/programs/closest_member_tool/closest_member_tool.f90
===================================================================
More information about the Dart-dev
mailing list