Ignore:
Timestamp:
Nov 2, 2016 4:44:25 PM (5 years ago)
Author:
knoop
Message:

Added error code for anelastic approximation

File:
1 edited

Legend:

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

    r2043 r2044  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Added error code for anelastic approximation
    2323!
    2424! Former revisions:
     
    855855       message_string = 'unknown approximation: approximation = "' //    &
    856856                        TRIM( approximation ) // '"'
    857        CALL message( 'check_parameters', 'PA0000', 1, 2, 0, 6, 0 )
     857       CALL message( 'check_parameters', 'PA0446', 1, 2, 0, 6, 0 )
    858858    ENDIF
    859859
     
    864864       message_string = 'Anelastic approximation requires: ' //                &
    865865                        'momentum_advec = "ws-scheme"'
    866        CALL message( 'check_parameters', 'PA0000', 1, 2, 0, 6, 0 )
     866       CALL message( 'check_parameters', 'PA0447', 1, 2, 0, 6, 0 )
    867867    ENDIF
    868868    IF ( TRIM( approximation ) == 'anelastic'   .AND.   &
     
    872872                        'psolver = "sor" and ' // &
    873873                        'psolver = "multigrid_noopt"'
    874        CALL message( 'check_parameters', 'PA0000', 1, 2, 0, 6, 0 )
     874       CALL message( 'check_parameters', 'PA0448', 1, 2, 0, 6, 0 )
    875875    ENDIF
    876876    IF ( TRIM( approximation ) == 'anelastic'   .AND.   &
     
    878878       message_string = 'Anelastic approximation is not allowed with:' //      &
    879879                        'conserve_volume_flow = .TRUE.'
    880        CALL message( 'check_parameters', 'PA0000', 1, 2, 0, 6, 0 )
     880       CALL message( 'check_parameters', 'PA0449', 1, 2, 0, 6, 0 )
    881881    ENDIF
    882882
     
    888888       message_string = 'unknown flux input mode: flux_input_mode = "' //      &
    889889                        TRIM( flux_input_mode ) // '"'
    890        CALL message( 'check_parameters', 'PA0000', 1, 2, 0, 6, 0 )
     890       CALL message( 'check_parameters', 'PA0450', 1, 2, 0, 6, 0 )
    891891    ENDIF
    892892!-- Set flux input mode according to approximation if applicable
     
    906906       message_string = 'unknown flux output mode: flux_output_mode = "' //    &
    907907                        TRIM( flux_output_mode ) // '"'
    908        CALL message( 'check_parameters', 'PA0000', 1, 2, 0, 6, 0 )
     908       CALL message( 'check_parameters', 'PA0451', 1, 2, 0, 6, 0 )
    909909    ENDIF
    910910!-- Set flux output mode according to approximation if applicable
Note: See TracChangeset for help on using the changeset viewer.