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

Timestamp:

Jun 3, 2020 4:34:15 PM (4 years ago)

Author:

eckhard

Message:

Fixed domain extend check, readablity and documentation improvements

File:

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

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Minor code readability improvements
+! 
+! 
+! 4538 2020-05-18 13:45:35Z eckhard
 ! Added boolean indicator for --static-driver option invocation
 ! 
@@ -171 +175 @@
     REAL(wp), ALLOCATABLE ::  y(:)          !< coordinates of cell centers in y direction [m]
     REAL(wp), POINTER     ::  z(:)          !< coordinates of cell centers in z direction [m]
-    REAL(wp), ALLOCATABLE ::  h(:,:,:)      !< heights grid point for intermediate grids [m]
+    REAL(wp), ALLOCATABLE ::  intermediate_h(:,:,:) !< heights grid point for intermediate grids [m]
     REAL(wp), POINTER     ::  cosmo_h(:,:,:)!< pointer to appropriate COSMO level heights (scalar/w) [m]
     REAL(wp), POINTER     ::  hhl(:,:,:)    !< heights of half layers (cell faces) above sea level in COSMO-DE, read in from