Ignore:
Timestamp:
May 29, 2018 8:02:15 AM (3 years ago)
Author:
Giersch
Message:

Remaining error messages revised, comments extended

File:
1 edited

Legend:

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

    r3045 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    655655          WRITE( message_string, * ) 'nzb_local values are outside the',       &
    656656                                ' model domain',                               &
    657                                 ' MINVAL( nzb_local ) = ', nzb_local_min,      &
    658                                 ' MAXVAL( nzb_local ) = ', nzb_local_max
     657                                '&MINVAL( nzb_local ) = ', nzb_local_min,      &
     658                                '&MAXVAL( nzb_local ) = ', nzb_local_max
    659659          CALL message( 'init_grid', 'PA0210', 1, 2, 0, 6, 0 )
    660660       ENDIF
     
    15001500               ( bys < 1 ) .OR. ( byn > ny-1 ) .OR. ( byn < bys+3 ) )  THEN
    15011501             WRITE( message_string, * ) 'inconsistent building parameters:',   &
    1502                                       ' bxl=', bxl, 'bxr=', bxr, 'bys=', bys,  &
     1502                                      '&bxl=', bxl, 'bxr=', bxr, 'bys=', bys,  &
    15031503                                      'byn=', byn, 'nx=', nx, 'ny=', ny
    15041504             CALL message( 'init_grid', 'PA0203', 1, 2, 0, 6, 0 )
     
    15921592                  ( ch < 3 ) )  THEN
    15931593                WRITE( message_string, * ) 'inconsistent canyon parameters:',  &
    1594                                            ' cxl=', cxl, ' cxr=', cxr,         &
     1594                                           '&cxl=', cxl, ' cxr=', cxr,         &
    15951595                                           ' cwx=', cwx,                       &
    15961596                                           ' ch=', ch, ' nx=', nx, ' ny=', ny
     
    16011601                  ( ch < 3 ) )  THEN
    16021602                WRITE( message_string, * ) 'inconsistent canyon parameters:',  &
    1603                                            ' cys=', cys, ' cyn=', cyn,         &
     1603                                           '&cys=', cys, ' cyn=', cyn,         &
    16041604                                           ' cwy=', cwy,                       &
    16051605                                           ' ch=', ch, ' nx=', nx, ' ny=', ny
     
    16101610               canyon_width_y /= 9999999.9_wp )  THEN
    16111611             message_string = 'inconsistent canyon parameters:' //             &   
    1612                               ' street canyon can only be oriented' //         &
     1612                              '&street canyon can only be oriented' //         &
    16131613                              ' either in x- or in y-direction'
    16141614             CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
     
    19031903             WRITE( message_string, * )                                        &
    19041904               'The value for "topography_grid_convention" ',                  &
    1905                'is not set. Its default value is only valid for ',             &
     1905               'is not set. Its default value is & only valid for ',           &
    19061906               '"topography" = ''single_building'', ''tunnel'' ',              &
    1907                '''single_street_canyon'' or ''read_from_file''.',              &
    1908                ' Choose ''cell_edge'' or ''cell_center''.'
     1907               '''single_street_canyon'' & or ''read_from_file''.',            &
     1908               '& Choose ''cell_edge'' or ''cell_center''.'
    19091909             CALL message( 'init_grid', 'PA0239', 1, 2, 0, 6, 0 )
    19101910          ELSE
     
    19231923          WRITE( message_string, * )                                           &
    19241924            'The value for "topography_grid_convention" is ',                  &
    1925             'not recognized. Choose ''cell_edge'' or ''cell_center''.'
     1925            'not recognized.& Choose ''cell_edge'' or ''cell_center''.'
    19261926          CALL message( 'init_grid', 'PA0240', 1, 2, 0, 6, 0 )
    19271927       ENDIF
Note: See TracChangeset for help on using the changeset viewer.