Changeset 3186 for palm/trunk/SOURCE/netcdf_data_input_mod.f90

Timestamp:

Jul 30, 2018 5:07:14 PM (6 years ago)

Author:

suehring

Message:

Mask topography while imposing inflow perturbations at the boundaries; do not impose perturbations at top boundary as well as ghost points; Remove print statement; Read zsoil dimension lenght only if soil variables are provided in dynamic driver

File:

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

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Read zsoil dimension lenght only if soil variables are provided
+! 
+! 3183 2018-07-27 14:25:55Z suehring
 ! Adjust input of dynamic driver according to revised Inifor version. 
 ! Replace simulated_time by time_since_reference_point.
@@ -2122 +2125 @@
        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, 'zsoil' )
+       IF ( check_existence( var_names, 'zsoil' ) )                            &
+          CALL get_dimension_length( id_dynamic, init_3d%nzs, 'zsoil' )
 !
 !--    Read also the horizontal dimensions. These are used just used fo