Changeset 3037 for palm/trunk

Timestamp:

May 24, 2018 10:39:29 AM (7 years ago)

Author:

gronemeier

Message:

renamed input dimension "depth" to "zsoil"

File:

• palm/trunk/SOURCE/netcdf_data_input_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! renamed 'depth' to 'zsoil'
+!
+! 3036 2018-05-24 10:18:26Z gronemeier
 ! Revision of input vars according to UC2 data standard
 !  - renamed 'orography_2D' to 'zt'
@@ -2069 +2072 @@
              CALL get_dimension_length( id_dynamic, init_3d%nzu, 'z'     )
              CALL get_dimension_length( id_dynamic, init_3d%nzw, 'zw'    )
-             CALL get_dimension_length( id_dynamic, init_3d%nzs, 'depth' )
+             CALL get_dimension_length( id_dynamic, init_3d%nzs, 'zsoil' )
 !
 !--          Read also the horizontal dimensions. These are used just used fo
@@ -2109 +2112 @@
                 CALL get_variable( id_dynamic, 'zw', init_3d%zw_atmos )
              ENDIF
-             IF ( check_existence( var_names, 'depth' ) )  THEN
+             IF ( check_existence( var_names, 'zsoil' ) )  THEN
                 ALLOCATE( init_3d%z_soil(1:init_3d%nzs) )
-                CALL get_variable( id_dynamic, 'depth', init_3d%z_soil )
+                CALL get_variable( id_dynamic, 'zsoil', init_3d%z_soil )
              ENDIF
 !
@@ -3546 +3549 @@
        INTEGER(iwp) ::  nzt_file !< upper bound of file array
 
-!        LOGICAL, OPTIONAL ::  depth !< flag indicating reverse z-axis, i.e. depth instead of height, e.g. in case of ocean or soil
+!        LOGICAL, OPTIONAL ::  zsoil !< flag indicating reverse z-axis, i.e. zsoil instead of height, e.g. in case of ocean or soil
 
        REAL(wp), DIMENSION(nzb_var:nzt_var)   ::  z_grid   !< grid levels on numeric grid