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

Timestamp:

Mar 26, 2009 3:11:21 PM (16 years ago)

Author:

heinze

Message:

Indentation of the message calls corrected

File:

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

palm/trunk/SOURCE/init_grid.f90

@@ -367 +367 @@
           IF ( ( bxl < 1 ) .OR. ( bxr > nx-1 ) .OR. ( bxr < bxl+3 ) .OR.  &
                ( bys < 1 ) .OR. ( byn > ny-1 ) .OR. ( byn < bys+3 ) )  THEN
-             WRITE( message_string, * ) 'inconsistent building parameters:', &
-                                        '& bxl=', bxl, 'bxr=', bxr, 'bys=', bys, &
-                                        'byn=', byn, 'nx=', nx, 'ny=', ny
+             WRITE( message_string, * ) 'inconsistent building parameters:',   &
+                                      '& bxl=', bxl, 'bxr=', bxr, 'bys=', bys, &
+                                      'byn=', byn, 'nx=', nx, 'ny=', ny
              CALL message( 'init_grid', 'PA0203', 1, 2, 0, 6, 0 )
           ENDIF
@@ -417 +417 @@
                ( ch < 3 ) )  THEN
                 WRITE( message_string, * ) 'inconsistent canyon parameters:', &
-                                           '&cxl=', cxl, 'cxr=', cxr,  &
-                                           'cwx=', cwx,  &
+                                           '&cxl=', cxl, 'cxr=', cxr,         &
+                                           'cwx=', cwx,                       &
                                            'ch=', ch, 'nx=', nx, 'ny=', ny
                 CALL message( 'init_grid', 'PA0205', 1, 2, 0, 6, 0 ) 
@@ -426 +426 @@
                ( ch < 3 ) )  THEN
                 WRITE( message_string, * ) 'inconsistent canyon parameters:', &
-                                           '&cys=', cys, 'cyn=', cyn,  &
-                                           'cwy=', cwy,  &
+                                           '&cys=', cys, 'cyn=', cyn,         &
+                                           'cwy=', cwy,                       &
                                            'ch=', ch, 'nx=', nx, 'ny=', ny
                 CALL message( 'init_grid', 'PA0206', 1, 2, 0, 6, 0 ) 
              ENDIF
           ENDIF
-          IF ( canyon_width_x /= 9999999.9 .AND. canyon_width_y /= 9999999.9 )  &
+          IF ( canyon_width_x /= 9999999.9 .AND. canyon_width_y /= 9999999.9 ) &
                THEN
-             message_string = 'inconsistent canyon parameters:' // &
+             message_string = 'inconsistent canyon parameters:' //     &  
                               '&street canyon can only be oriented' // &
                               '&either in x- or in y-direction'
@@ -507 +507 @@
 !--    Consistency checks
        IF ( MINVAL( nzb_local ) < 0  .OR.  MAXVAL( nzb_local ) > nz + 1 )  THEN
-          WRITE( message_string, * ) 'nzb_local values are outside the', &
-                                     'model domain', &
-                                     '&MINVAL( nzb_local ) = ', MINVAL(nzb_local), &
-                                     '&MAXVAL( nzb_local ) = ', MAXVAL(nzb_local)
+          WRITE( message_string, * ) 'nzb_local values are outside the',      &
+                                'model domain',                               &
+                                '&MINVAL( nzb_local ) = ', MINVAL(nzb_local), &
+                                '&MAXVAL( nzb_local ) = ', MAXVAL(nzb_local)
           CALL message( 'init_grid', 'PA0210', 1, 2, 0, 6, 0 )
        ENDIF