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

Timestamp:

Jun 19, 2020 11:56:30 AM (4 years ago)

Author:

eckhard

Message:

Handle COSMO soil data with and without additional surface temperature

File:

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

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Handle COSMO soil data with and without additional surface temperature
+!
+! 
+! 4553 2020-06-03 16:34:15Z eckhard
 ! Minor code readability improvements
 ! 
@@ -245 +249 @@
     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)
+    LOGICAL                               ::  has_redundant_first_level !< INIFOR flag inidicating whether a soil variable has a redundant first level (e.g. COSMO's T_SO may contain the surface temperature at depth=0, which is a redundant copy the first model layer)
     TYPE(grid_definition), POINTER        ::  grid                      !< Pointer to the corresponding output grid
     TYPE(grid_definition), POINTER        ::  intermediate_grid         !< Pointer to the corresponding intermediate grid