Changeset 3066 for palm/trunk/SOURCE/init_grid.f90

Timestamp:

Jun 12, 2018 8:55:55 AM (7 years ago)

Author:

Giersch

Message:

Error messages related to the new vertical grid stretching revised, Bugfix in IF statement before error message

File:

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

palm/trunk/SOURCE/init_grid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in IF statement before error message
+! 
+! 3065 2018-06-12 07:03:02Z Giersch
 ! New vertical stretching mechanism introduced
 ! 
@@ -484 +487 @@
 !-- Allocation of arrays for stretching
     ALLOCATE( min_dz_stretch_level_end(number_stretch_level_start) )
-    
+
 !
 !-- Define the vertical grid levels
@@ -497 +500 @@
        ENDDO
 
-       IF ( ANY( min_dz_stretch_level_end > dz_stretch_level_end ) ) THEN
+       IF ( ANY( min_dz_stretch_level_end(1:number_stretch_level_start) >      &
+                 dz_stretch_level_end(1:number_stretch_level_start) ) ) THEN
              message_string= 'Eeach dz_stretch_level_end has to be larger ' // &
                              'than its corresponding value for &' //           &
@@ -619 +623 @@
        ENDDO
        
-       IF ( ANY( min_dz_stretch_level_end < dz_stretch_level_end ) ) THEN
+       IF ( ANY( min_dz_stretch_level_end (1:number_stretch_level_start) <     &
+                 dz_stretch_level_end(1:number_stretch_level_start) ) ) THEN
              message_string= 'Eeach dz_stretch_level_end has to be less ' //   &
                              'than its corresponding value for &' //           &