Changeset 3037
- Timestamp:
- May 24, 2018 10:39:29 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/netcdf_data_input_mod.f90
r3036 r3037 25 25 ! ----------------- 26 26 ! $Id$ 27 ! renamed 'depth' to 'zsoil' 28 ! 29 ! 3036 2018-05-24 10:18:26Z gronemeier 27 30 ! Revision of input vars according to UC2 data standard 28 31 ! - renamed 'orography_2D' to 'zt' … … 2069 2072 CALL get_dimension_length( id_dynamic, init_3d%nzu, 'z' ) 2070 2073 CALL get_dimension_length( id_dynamic, init_3d%nzw, 'zw' ) 2071 CALL get_dimension_length( id_dynamic, init_3d%nzs, ' depth' )2074 CALL get_dimension_length( id_dynamic, init_3d%nzs, 'zsoil' ) 2072 2075 ! 2073 2076 !-- Read also the horizontal dimensions. These are used just used fo … … 2109 2112 CALL get_variable( id_dynamic, 'zw', init_3d%zw_atmos ) 2110 2113 ENDIF 2111 IF ( check_existence( var_names, ' depth' ) ) THEN2114 IF ( check_existence( var_names, 'zsoil' ) ) THEN 2112 2115 ALLOCATE( init_3d%z_soil(1:init_3d%nzs) ) 2113 CALL get_variable( id_dynamic, ' depth', init_3d%z_soil )2116 CALL get_variable( id_dynamic, 'zsoil', init_3d%z_soil ) 2114 2117 ENDIF 2115 2118 ! … … 3546 3549 INTEGER(iwp) :: nzt_file !< upper bound of file array 3547 3550 3548 ! LOGICAL, OPTIONAL :: depth !< flag indicating reverse z-axis, i.e. depthinstead of height, e.g. in case of ocean or soil3551 ! LOGICAL, OPTIONAL :: zsoil !< flag indicating reverse z-axis, i.e. zsoil instead of height, e.g. in case of ocean or soil 3549 3552 3550 3553 REAL(wp), DIMENSION(nzb_var:nzt_var) :: z_grid !< grid levels on numeric grid
Note: See TracChangeset
for help on using the changeset viewer.