Ignore:
Timestamp:
May 28, 2018 7:55:41 AM (3 years ago)
Author:
Giersch
Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:
1 edited

Legend:

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

    r2968 r3045  
    2525! -----------------
    2626! $Id$
     27! Error messages revised
     28!
     29! 2968 2018-04-13 11:52:24Z suehring
    2730! Bugfix in initialization in case of elevated model surface. Introduce
    2831! index for minimum topography-top.
     
    651654       IF ( nzb_local_min < 0  .OR.  nzb_local_max  > nz + 1 )  THEN
    652655          WRITE( message_string, * ) 'nzb_local values are outside the',       &
    653                                 'model domain',                                &
    654                                 '&MINVAL( nzb_local ) = ', nzb_local_min,      &
    655                                 '&MAXVAL( nzb_local ) = ', nzb_local_max
     656                                ' model domain',                               &
     657                                ' MINVAL( nzb_local ) = ', nzb_local_min,      &
     658                                ' MAXVAL( nzb_local ) = ', nzb_local_max
    656659          CALL message( 'init_grid', 'PA0210', 1, 2, 0, 6, 0 )
    657660       ENDIF
     
    14971500               ( bys < 1 ) .OR. ( byn > ny-1 ) .OR. ( byn < bys+3 ) )  THEN
    14981501             WRITE( message_string, * ) 'inconsistent building parameters:',   &
    1499                                       '& bxl=', bxl, 'bxr=', bxr, 'bys=', bys, &
     1502                                      ' bxl=', bxl, 'bxr=', bxr, 'bys=', bys, &
    15001503                                      'byn=', byn, 'nx=', nx, 'ny=', ny
    15011504             CALL message( 'init_grid', 'PA0203', 1, 2, 0, 6, 0 )
     
    15891592                  ( ch < 3 ) )  THEN
    15901593                WRITE( message_string, * ) 'inconsistent canyon parameters:',  &
    1591                                            '&cxl=', cxl, 'cxr=', cxr,          &
    1592                                            'cwx=', cwx,                        &
    1593                                            'ch=', ch, 'nx=', nx, 'ny=', ny
     1594                                           ' cxl=', cxl, ' cxr=', cxr,         &
     1595                                           ' cwx=', cwx,                       &
     1596                                           ' ch=', ch, ' nx=', nx, ' ny=', ny
    15941597                CALL message( 'init_grid', 'PA0205', 1, 2, 0, 6, 0 )
    15951598             ENDIF
     
    15981601                  ( ch < 3 ) )  THEN
    15991602                WRITE( message_string, * ) 'inconsistent canyon parameters:',  &
    1600                                            '&cys=', cys, 'cyn=', cyn,          &
    1601                                            'cwy=', cwy,                        &
    1602                                            'ch=', ch, 'nx=', nx, 'ny=', ny
     1603                                           ' cys=', cys, ' cyn=', cyn,         &
     1604                                           ' cwy=', cwy,                       &
     1605                                           ' ch=', ch, ' nx=', nx, ' ny=', ny
    16031606                CALL message( 'init_grid', 'PA0206', 1, 2, 0, 6, 0 )
    16041607             ENDIF
     
    16071610               canyon_width_y /= 9999999.9_wp )  THEN
    16081611             message_string = 'inconsistent canyon parameters:' //             &   
    1609                               '&street canyon can only be oriented' //         &
    1610                               '&either in x- or in y-direction'
     1612                              ' street canyon can only be oriented' //         &
     1613                              ' either in x- or in y-direction'
    16111614             CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
    16121615          ENDIF
     
    18951898               TRIM( topography ) /= 'read_from_file')  THEN
    18961899!--          The default value is not applicable here, because it is only valid
    1897 !--          for the two standard cases 'single_building' and 'read_from_file'
     1900!--          for the four standard cases 'single_building',
     1901!--          'single_street_canyon', 'tunnel' and 'read_from_file'
    18981902!--          defined in init_grid.
    18991903             WRITE( message_string, * )                                        &
    19001904               'The value for "topography_grid_convention" ',                  &
    1901                'is not set. Its default value is & only valid for ',           &
    1902                '"topography" = ''single_building'', ',                         &
    1903                '''single_street_canyon'' & or ''read_from_file''.',            &
    1904                ' & Choose ''cell_edge'' or ''cell_center''.'
     1905               'is not set. Its default value is only valid for ',             &
     1906               '"topography" = ''single_building'', ''tunnel'' ',              &
     1907               '''single_street_canyon'' or ''read_from_file''.',              &
     1908               ' Choose ''cell_edge'' or ''cell_center''.'
    19051909             CALL message( 'init_grid', 'PA0239', 1, 2, 0, 6, 0 )
    19061910          ELSE
     
    19191923          WRITE( message_string, * )                                           &
    19201924            'The value for "topography_grid_convention" is ',                  &
    1921             'not recognized. & Choose ''cell_edge'' or ''cell_center''.'
     1925            'not recognized. Choose ''cell_edge'' or ''cell_center''.'
    19221926          CALL message( 'init_grid', 'PA0240', 1, 2, 0, 6, 0 )
    19231927       ENDIF
Note: See TracChangeset for help on using the changeset viewer.