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

Timestamp:

Jul 14, 2020 12:06:09 PM (4 years ago)

Author:

suehring

Message:

Chemistry: Bugfix in variable name separation in profile-output initialization; Bugfix in counting the number of chemistry profiles; Surface-data output: Minor simplification in name creation for IO variables in restart files; init_grid: minor formatting adjustments

File:

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

palm/trunk/SOURCE/init_grid.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Minor formatting adjustments
+! 
+! 4564 2020-06-12 14:03:36Z raasch
 ! Vertical nesting method of Huq et al. (2019) removed
 ! 
@@ -281 +284 @@
                                    'dz_stretch_level_end + 1 = ',              &
                                    number_stretch_level_end+1
-          CALL message( 'init_grid', 'PA0156', 1, 2, 0, 6, 0 )
+       CALL message( 'init_grid', 'PA0156', 1, 2, 0, 6, 0 )
     ENDIF
     
@@ -294 +297 @@
                                    'dz_stretch_level_start = ',                &
                                    number_stretch_level_start
-          CALL message( 'init_grid', 'PA0211', 1, 2, 0, 6, 0 )
+       CALL message( 'init_grid', 'PA0211', 1, 2, 0, 6, 0 )
     ENDIF
     
@@ -307 +310 @@
                                    'values for dz_stretch_level_end = ',       &
                                    number_stretch_level_end
-          CALL message( 'init_grid', 'PA0216', 1, 2, 0, 6, 0 )
+       CALL message( 'init_grid', 'PA0216', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -345 +348 @@
        IF ( ANY( min_dz_stretch_level_end(1:number_stretch_level_start) >      &
                  dz_stretch_level_end(1:number_stretch_level_start) ) ) THEN
-             message_string= 'Each dz_stretch_level_end has to be larger ' //  &
-                             'than its corresponding value for &' //           &
-                             'dz_stretch_level_start + 4*MAX(dz(n),dz(n+1)) '//&
-                             'to allow for smooth grid stretching'
-             CALL message( 'init_grid', 'PA0224', 1, 2, 0, 6, 0 )
+          message_string= 'Each dz_stretch_level_end has to be larger ' //     &
+                          'than its corresponding value for &' //              &
+                          'dz_stretch_level_start + 4*MAX(dz(n),dz(n+1)) '//   &
+                          'to allow for smooth grid stretching'
+          CALL message( 'init_grid', 'PA0224', 1, 2, 0, 6, 0 )
        ENDIF
        
@@ -359 +362 @@
           WRITE( message_string, * ) 'Each dz_stretch_level_start has to be ',&
                                      'larger than ', dz(1) * 1.5
-             CALL message( 'init_grid', 'PA0226', 1, 2, 0, 6, 0 )
+          CALL message( 'init_grid', 'PA0226', 1, 2, 0, 6, 0 )
        ENDIF