Changeset 4383 for palm/trunk


Ignore:
Timestamp:
Jan 22, 2020 10:55:45 AM (5 years ago)
Author:
Giersch
Message:

Error numbers related to closed channel flow revised to prevent double usage

File:
1 edited

Legend:

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

    r4360 r4383  
    2525! -----------------
    2626! 4172 2019-08-20 11:55:33Z oliver.maas
     27! Some error numbers revised to prevent double usage
     28!
     29! 11:55:33Z oliver.maas
    2730! Checks for closed channel flow implemented
    2831!
     
    515518          symmetry_flag = 1
    516519          message_string = 'Bottom and top boundary are treated equal'
    517           CALL message( 'check_parameters', 'PA0676', 0, 0, 0, 6, 0 )
     520          CALL message( 'check_parameters', 'PA0699', 0, 0, 0, 6, 0 )
    518521       
    519522          IF ( dz(1) /= dz(COUNT( dz /= -1.0_wp )) .OR.                        &
     
    521524             WRITE( message_string, * )  'dz should be equal close to the ' // &
    522525                                         'boundaries due to symmetrical problem'
    523              CALL message( 'check_parameters', 'PA0313', 1, 2, 0, 6, 0 )
     526             CALL message( 'check_parameters', 'PA0700', 1, 2, 0, 6, 0 )
    524527          ENDIF
    525528       
     
    528531                                         'allowed if a closed channel '//      &
    529532                                         'shall be used'
    530              CALL message( 'check_parameters', 'PA0688', 1, 2, 0, 6, 0 )
     533             CALL message( 'check_parameters', 'PA0701', 1, 2, 0, 6, 0 )
    531534          ENDIF
    532535       
     
    534537             WRITE( message_string, * )  'The ocean mode is not allowed if '// &
    535538                                         'a closed channel shall be used'
    536              CALL message( 'check_parameters', 'PA0689', 1, 2, 0, 6, 0 )
     539             CALL message( 'check_parameters', 'PA0702', 1, 2, 0, 6, 0 )
    537540          ENDIF
    538541       
     
    542545                                         'upwind scheme of Wicker and ' //     &
    543546                                         'Skamarock as the advection scheme'
    544              CALL message( 'check_parameters', 'PA0690', 1, 2, 0, 6, 0 )
     547             CALL message( 'check_parameters', 'PA0703', 1, 2, 0, 6, 0 )
    545548          ENDIF
    546549       ENDIF
Note: See TracChangeset for help on using the changeset viewer.