Ignore:
Timestamp:
Mar 26, 2009 3:11:21 PM (12 years ago)
Author:
heinze
Message:

Indentation of the message calls corrected

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/init_grid.f90

    r254 r274  
    367367          IF ( ( bxl < 1 ) .OR. ( bxr > nx-1 ) .OR. ( bxr < bxl+3 ) .OR.  &
    368368               ( bys < 1 ) .OR. ( byn > ny-1 ) .OR. ( byn < bys+3 ) )  THEN
    369              WRITE( message_string, * ) 'inconsistent building parameters:', &
    370                                         '& bxl=', bxl, 'bxr=', bxr, 'bys=', bys, &
    371                                         'byn=', byn, 'nx=', nx, 'ny=', ny
     369             WRITE( message_string, * ) 'inconsistent building parameters:',   &
     370                                      '& bxl=', bxl, 'bxr=', bxr, 'bys=', bys, &
     371                                      'byn=', byn, 'nx=', nx, 'ny=', ny
    372372             CALL message( 'init_grid', 'PA0203', 1, 2, 0, 6, 0 )
    373373          ENDIF
     
    417417               ( ch < 3 ) )  THEN
    418418                WRITE( message_string, * ) 'inconsistent canyon parameters:', &
    419                                            '&cxl=', cxl, 'cxr=', cxr,  &
    420                                            'cwx=', cwx,  &
     419                                           '&cxl=', cxl, 'cxr=', cxr,         &
     420                                           'cwx=', cwx,                       &
    421421                                           'ch=', ch, 'nx=', nx, 'ny=', ny
    422422                CALL message( 'init_grid', 'PA0205', 1, 2, 0, 6, 0 )
     
    426426               ( ch < 3 ) )  THEN
    427427                WRITE( message_string, * ) 'inconsistent canyon parameters:', &
    428                                            '&cys=', cys, 'cyn=', cyn,  &
    429                                            'cwy=', cwy,  &
     428                                           '&cys=', cys, 'cyn=', cyn,         &
     429                                           'cwy=', cwy,                       &
    430430                                           'ch=', ch, 'nx=', nx, 'ny=', ny
    431431                CALL message( 'init_grid', 'PA0206', 1, 2, 0, 6, 0 )
    432432             ENDIF
    433433          ENDIF
    434           IF ( canyon_width_x /= 9999999.9 .AND. canyon_width_y /= 9999999.9 )  &
     434          IF ( canyon_width_x /= 9999999.9 .AND. canyon_width_y /= 9999999.9 ) &
    435435               THEN
    436              message_string = 'inconsistent canyon parameters:' // &
     436             message_string = 'inconsistent canyon parameters:' //     & 
    437437                              '&street canyon can only be oriented' // &
    438438                              '&either in x- or in y-direction'
     
    507507!--    Consistency checks
    508508       IF ( MINVAL( nzb_local ) < 0  .OR.  MAXVAL( nzb_local ) > nz + 1 )  THEN
    509           WRITE( message_string, * ) 'nzb_local values are outside the', &
    510                                      'model domain', &
    511                                      '&MINVAL( nzb_local ) = ', MINVAL(nzb_local), &
    512                                      '&MAXVAL( nzb_local ) = ', MAXVAL(nzb_local)
     509          WRITE( message_string, * ) 'nzb_local values are outside the',      &
     510                                'model domain',                              &
     511                                '&MINVAL( nzb_local ) = ', MINVAL(nzb_local), &
     512                                '&MAXVAL( nzb_local ) = ', MAXVAL(nzb_local)
    513513          CALL message( 'init_grid', 'PA0210', 1, 2, 0, 6, 0 )
    514514       ENDIF
Note: See TracChangeset for help on using the changeset viewer.