Changeset 3065 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Jun 12, 2018 7:03:02 AM (6 years ago)

Author:

Giersch

Message:

New vertical stretching procedure has been introduced

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (3 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! dz was replaced by dz(1), error message revised
+! 
+! 3049 2018-05-29 13:52:36Z Giersch
 ! add variable description
 ! 
@@ -4178 +4181 @@
     IF ( ( constant_flux_layer .OR.  &
            INDEX( initializing_actions, 'set_1d-model_profiles' ) /= 0 )       &
-         .AND. roughness_length >= 0.5 * dz )  THEN
+         .AND. roughness_length >= 0.5 * dz(1) )  THEN
        message_string = 'roughness_length must be smaller than dz/2'
        CALL message( 'check_parameters', 'PA0424', 1, 2, 0, 6, 0 )
@@ -4198 +4201 @@
 !-- Check if vertical grid stretching is switched off in case of complex 
 !-- terrain simulations
-    IF ( complex_terrain  .AND.  dz_stretch_level < 100000.0_wp )  THEN
+    IF ( complex_terrain  .AND.                                                &
+         ANY( dz_stretch_level_start /= -9999999.9_wp ) )  THEN
        message_string = 'Vertical grid stretching is not allowed for ' //      &
                         'complex_terrain = .T.'