Ignore:
Timestamp:
Jun 9, 2017 1:27:48 PM (4 years ago)
Author:
Giersch
Message:

Changed error messages

File:
1 edited

Legend:

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

    r2233 r2274  
    2525! -----------------
    2626! $Id$
     27! Changed error messages
     28!
     29! 2233 2017-05-30 18:08:54Z suehring
    2730!
    2831! 2232 2017-05-30 17:47:52Z suehring
     
    726729               tunnel_width_y == 9999999.9_wp  )  THEN
    727730             message_string = 'No tunnel width is given. '
    728              CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
     731             CALL message( 'init_grid', 'PA0280', 1, 2, 0, 6, 0 )
    729732          ENDIF
    730733          IF ( tunnel_width_x /= 9999999.9_wp  .AND.                           &
     
    733736                              'tunnel can only be oriented' //                 &
    734737                              'either in x- or in y-direction.'
    735              CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
     738             CALL message( 'init_grid', 'PA0281', 1, 2, 0, 6, 0 )
    736739          ENDIF
    737740!
     
    740743             IF ( tunnel_width_x > ( nx + 1 ) * dx )  THEN
    741744                message_string = 'Tunnel width too large'
    742                 CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
     745                CALL message( 'init_grid', 'PA0282', 1, 2, 0, 6, 0 )
    743746             ENDIF
    744747
     
    758761               tunnel_width_x - 2.0_wp * tunnel_wall_depth <= 2.0_wp * dx )  THEN
    759762             message_string = 'Tunnel width too small'
    760              CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
     763             CALL message( 'init_grid', 'PA0175', 1, 2, 0, 6, 0 )
    761764          ENDIF
    762765          IF ( tunnel_width_y /= 9999999.9_wp  .AND.                           &
    763766               tunnel_width_y - 2.0_wp * tunnel_wall_depth <= 2.0_wp * dy )  THEN
    764767             message_string = 'Tunnel width too small'
    765              CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
     768             CALL message( 'init_grid', 'PA0455', 1, 2, 0, 6, 0 )
    766769          ENDIF
    767770!
     
    770773             IF ( tunnel_width_y > ( ny + 1 ) * dy )  THEN
    771774                message_string = 'Tunnel width too large'
    772                 CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
     775                CALL message( 'init_grid', 'PA0456', 1, 2, 0, 6, 0 )
    773776             ENDIF
    774777
     
    910913                      message_string = 'NetCDF attribute lod ' //              &
    911914                                       '(level of detail) is not set properly.'
    912                       CALL message( 'init_grid', 'PA0208', 1, 2, 0, 6, 0 ) !Error number still need to be set properly
     915                      CALL message( 'init_grid', 'PA0457', 1, 2, 0, 6, 0 )
    913916                   ENDIF
    914917!
Note: See TracChangeset for help on using the changeset viewer.