Changeset 4659 for palm/trunk/UTIL/inifor/src/inifor_types.f90

Timestamp:

Aug 31, 2020 11:21:17 AM (4 years ago)

Author:

eckhard

Message:

inifor: Support for COSMO cloud water and precipitation

File:

• palm/trunk/UTIL/inifor/src/inifor_types.f90 (modified) (6 diffs)

palm/trunk/UTIL/inifor/src/inifor_types.f90

@@ -21 +21 @@
 ! Current revisions:
 ! -----------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Added flag in support of new command-line option '--precipitation'
+! Improved code formatting
+! 
+! 
+! 4568 2020-06-19 11:56:30Z eckhard
 ! Handle COSMO soil data with and without additional surface temperature
 !
@@ -123 +128 @@
     CHARACTER(LEN=SNAME) ::  radiation_prefix     !< Prefix of radiation input files, e.g 'laf' for COSMO-DE analyses
     CHARACTER(LEN=SNAME) ::  soil_prefix          !< Prefix of soil input files, e.g. 'laf' for COSMO-DE analyses
-    CHARACTER(LEN=SNAME) ::  soilmoisture_prefix  !< Prefix of input files for soil moisture spin-up, e.g 'laf' for COSMO-DE analyses
+    CHARACTER(LEN=SNAME) ::  precipitation_prefix !< Prefix of input files for precipitation forcing, e.g 'laf' for COSMO-DE analyses
 
     CHARACTER(LEN=SNAME) ::  averaging_mode       !< destinguishes between level-based and heigh-based averaging
@@ -142 +147 @@
     LOGICAL              ::  radiation_prefix_is_set     !< indicates whether the radiation prefix was set manually
     LOGICAL              ::  soil_prefix_is_set          !< indicates whether the soil prefix was set manually
-    LOGICAL              ::  soilmoisture_prefix_is_set  !< indicates whether the soilmoisture prefix was set manually
+    LOGICAL              ::  precipitation_prefix_is_set !< indicates whether the precipitation prefix was set manually
+    LOGICAL              ::  process_precipitation       !< indicates whether precipitation should be processed
     LOGICAL              ::  static_driver_is_set        !< indicates whether a static driver was given
     LOGICAL              ::  ug_defined_by_user          !< indicates whether ug was set manually
@@ -247 +253 @@
     LOGICAL                               ::  to_be_processed = .FALSE. !< INIFOR flag indicating whether variable shall be processed
     LOGICAL                               ::  is_internal = .FALSE.     !< INIFOR flag indicating whether variable shall be written to netCDF file (.FALSE.) or kept for later (.TRUE.)
+    LOGICAL                               ::  is_optional = .FALSE.     !< Flag indicating whether INIFOR may continue if the the netCDF variable cannot be processed, e.g. if files are missing
     LOGICAL                               ::  is_read = .FALSE.         !< INIFOR flag indicating whether variable has been read
     LOGICAL                               ::  is_upside_down  = .FALSE. !< INIFOR flag indicating whether vertical dimension is reversed (typically the case with COSMO-DE atmospheric fields)
@@ -252 +259 @@
     TYPE(grid_definition), POINTER        ::  grid                      !< Pointer to the corresponding output grid
     TYPE(grid_definition), POINTER        ::  intermediate_grid         !< Pointer to the corresponding intermediate grid
-    TYPE(grid_definition), POINTER        ::  averaging_grid         !< Pointer to the corresponding intermediate grid
+    TYPE(grid_definition), POINTER        ::  averaging_grid            !< Pointer to the corresponding intermediate grid
  END TYPE nc_var
 
@@ -265 +272 @@
 !------------------------------------------------------------------------------!
  TYPE io_group
-    INTEGER(iwp)                          ::  nt             !< maximum number of output time steps across all output variables
-    INTEGER(iwp)                          ::  nv             !< number of netCDF output variables
-    INTEGER(iwp)                          ::  n_inputs       !< number of input variables
-    INTEGER(iwp)                          ::  n_output_quantities !< number of physical quantities required for computing netCDF output variables
-    CHARACTER(LEN=SNAME)             ::  kind           !< kind of I/O group
-    CHARACTER(LEN=PATH), ALLOCATABLE ::  in_files(:)    !< list of nt input files
-    TYPE(nc_var), ALLOCATABLE        ::  out_vars(:)    !< list of output variables 
-    TYPE(nc_var), ALLOCATABLE        ::  in_var_list(:) !< list of input variables
+    INTEGER(iwp)                     ::  nt                  !< maximum number of output time steps across all output variables
+    INTEGER(iwp)                     ::  nv                  !< number of netCDF output variables
+    INTEGER(iwp)                     ::  n_inputs            !< number of input variables
+    INTEGER(iwp)                     ::  n_output_quantities !< number of physical quantities required for computing netCDF output variables
+    CHARACTER(LEN=SNAME)             ::  name                !< name of I/O group
+    CHARACTER(LEN=SNAME)             ::  kind                !< kind of I/O group
+    CHARACTER(LEN=PATH), ALLOCATABLE ::  in_files(:)         !< list of nt input files
+    TYPE(nc_var), ALLOCATABLE        ::  out_vars(:)         !< list of output variables 
+    TYPE(nc_var), ALLOCATABLE        ::  in_var_list(:)      !< list of input variables
     LOGICAL                          ::  to_be_processed = .FALSE. !< Inifor flag indicating whether I/O group shall be processed
     LOGICAL                          ::  is_accumulated = .FALSE.  !< Flag indicating whether this I/O group contains accumulated variables
+    LOGICAL                          ::  is_optional = .FALSE.     !< Flag indicating whether INIFOR may continue if group cannot be processed, e.g. if files are missing
     LOGICAL                          ::  is_preprocessed = .FALSE. !< Inifor flag indicating whether the I/O group has been preprocessed
  END TYPE io_group