Ignore:
Timestamp:
Feb 2, 2009 7:39:34 AM (13 years ago)
Author:
raasch
Message:

preparations for the next release

File:
1 edited

Legend:

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

    r222 r226  
    44! Actual revisions:
    55! -----------------
     6!
     7!
     8! Former revisions:
     9! -----------------
     10! $Id$
     11!
     12! 222 2009-01-12 16:04:16Z letzel
    613! +user_check_parameters
    714! Output of messages replaced by message handling routine.
     
    916! deleted __mpi2 directives
    1017! Check that PALM is called with mrun -K parallel for coupling
    11 !
    12 ! Former revisions:
    13 ! -----------------
    14 ! $Id$
    1518!
    1619! 197 2008-09-16 15:29:03Z raasch
     
    114117       message_string = '"host" is not set. Please check that environment ' // &
    115118                        'variable "localhost" & is set before running PALM'
    116        CALL handle_palm_message( 'check_parameters', 'PA0001', 0, 0, 0, 6, 0 )
     119       CALL message( 'check_parameters', 'PA0001', 0, 0, 0, 6, 0 )
    117120    ENDIF
    118121
     
    123126         coupling_mode /= 'ocean_to_atmosphere' )  THEN
    124127       message_string = 'illegal coupling mode: ' // TRIM( coupling_mode )
    125        CALL handle_palm_message( 'check_parameters', 'PA0002', 1, 2, 0, 6, 0 )
     128       CALL message( 'check_parameters', 'PA0002', 1, 2, 0, 6, 0 )
    126129    ENDIF
    127130
     
    133136          message_string = 'dt_coupling is not set but required for coup' // &
    134137                           'ling mode "' //  TRIM( coupling_mode ) // '"'
    135           CALL handle_palm_message( 'check_parameters', 'PA0003', 1, 2, 0, 6, &
    136                                     0 )
     138          CALL message( 'check_parameters', 'PA0003', 1, 2, 0, 6, 0 )
    137139       ENDIF
    138140
     
    146148                 '": dt_coupling = ', dt_coupling, '& is not equal to ',       &
    147149                 'dt_coupling_remote = ', remote
    148           CALL handle_palm_message( 'check_parameters', 'PA0004', 1, 2, 0, 6, &
    149                                     0 )
     150          CALL message( 'check_parameters', 'PA0004', 1, 2, 0, 6, 0 )
    150151       ENDIF
    151152       IF ( dt_coupling <= 0.0 )  THEN
     
    157158                 '": dt_coupling <= 0.0 & is not allowed and is reset to ',    &
    158159                 'MAX(dt_max(A,O)) = ', dt_coupling
    159           CALL handle_palm_message( 'check_parameters', 'PA0005', 0, 1, 0, 6, &
    160                                     0 )
     160          CALL message( 'check_parameters', 'PA0005', 0, 1, 0, 6, 0 )
    161161       ENDIF
    162162
     
    169169                 '": restart_time = ', restart_time, '& is not equal to ',     &
    170170                 'restart_time_remote = ', remote
    171           CALL handle_palm_message( 'check_parameters', 'PA0006', 1, 2, 0, 6, &
    172                                     0 )
     171          CALL message( 'check_parameters', 'PA0006', 1, 2, 0, 6, 0 )
    173172       ENDIF
    174173
     
    181180                 '": dt_restart = ', dt_restart, '& is not equal to ',         &
    182181                 'dt_restart_remote = ', remote
    183           CALL handle_palm_message( 'check_parameters', 'PA0007', 1, 2, 0, 6, &
    184                                     0 )
     182          CALL message( 'check_parameters', 'PA0007', 1, 2, 0, 6, 0 )
    185183       ENDIF
    186184
     
    192190                 '": end_time = ', end_time, '& is not equal to ',             &
    193191                 'end_time_remote = ', remote
    194           CALL handle_palm_message( 'check_parameters', 'PA0008', 1, 2, 0, 6, &
    195                                     0 )
     192          CALL message( 'check_parameters', 'PA0008', 1, 2, 0, 6, 0 )
    196193       ENDIF
    197194
     
    202199          WRITE( message_string, * ) 'coupling mode "', TRIM( coupling_mode ), &
    203200                 '":  dx = ', dx, '& is not equal to dx_remote = ', remote
    204           CALL handle_palm_message( 'check_parameters', 'PA0009', 1, 2, 0, 6, &
    205                                     0 )
     201          CALL message( 'check_parameters', 'PA0009', 1, 2, 0, 6, 0 )
    206202       ENDIF
    207203
     
    212208          WRITE( message_string, * ) 'coupling mode "', TRIM( coupling_mode ), &
    213209                 '":  dy = ', dy, '& is not equal to dy_remote = ', remote
    214           CALL handle_palm_message( 'check_parameters', 'PA0010', 1, 2, 0, 6, &
    215                                     0 )
     210          CALL message( 'check_parameters', 'PA0010', 1, 2, 0, 6, 0 )
    216211       ENDIF
    217212
     
    222217          WRITE( message_string, * ) 'coupling mode "', TRIM( coupling_mode ), &
    223218                 '": nx = ', nx, '& is not equal to nx_remote = ', iremote
    224           CALL handle_palm_message( 'check_parameters', 'PA0011', 1, 2, 0, 6, &
    225                                     0 )
     219          CALL message( 'check_parameters', 'PA0011', 1, 2, 0, 6, 0 )
    226220       ENDIF
    227221
     
    232226          WRITE( message_string, * ) 'coupling mode "', TRIM( coupling_mode ), &
    233227                 '": ny = ', ny, '& is not equal to ny_remote = ', iremote
    234           CALL handle_palm_message( 'check_parameters', 'PA0012', 1, 2, 0, 6, &
    235                                     0 )
     228          CALL message( 'check_parameters', 'PA0012', 1, 2, 0, 6, 0 )
    236229       ENDIF
    237230#else
    238231       WRITE( message_string, * ) 'coupling requires PALM to be called with', &
    239232            ' ''mrun -K parallel'''
    240        CALL handle_palm_message( 'check_parameters', 'PA0141', 1, 2, 0, 6, 0 )
     233       CALL message( 'check_parameters', 'PA0141', 1, 2, 0, 6, 0 )
    241234#endif
    242235    ENDIF
     
    288281       message_string = 'illegal value given for loop_optimization: "' // &
    289282                        TRIM( loop_optimization ) // '"'
    290        CALL handle_palm_message( 'check_parameters', 'PA0013', 1, 2, 0, 6, 0 )
     283       CALL message( 'check_parameters', 'PA0013', 1, 2, 0, 6, 0 )
    291284    ENDIF
    292285
     
    328321          message_string = 'a non-flat topography does not allow ' // &
    329322                           TRIM( action )
    330           CALL handle_palm_message( 'check_parameters', 'PA0014', 1, 2, 0, 6, &
    331                                     0 )
     323          CALL message( 'check_parameters', 'PA0014', 1, 2, 0, 6, 0 )
    332324       ENDIF
    333325    ENDIF
     
    345337       IF ( action /= ' ' )  THEN
    346338          message_string = 'ocean = .T. does not allow ' // TRIM( action )
    347           CALL handle_palm_message( 'check_parameters', 'PA0015', 1, 2, 0, 6, &
    348                                     0 )
     339          CALL message( 'check_parameters', 'PA0015', 1, 2, 0, 6, 0 )
    349340       ENDIF
    350341    ENDIF
     
    357348       message_string = 'unknown solver for perturbation pressure: psolver' // &
    358349                        ' = "' // TRIM( psolver ) // '"'
    359        CALL handle_palm_message( 'check_parameters', 'PA0016', 1, 2, 0, 6, 0 )
     350       CALL message( 'check_parameters', 'PA0016', 1, 2, 0, 6, 0 )
    360351    ENDIF
    361352
     
    365356                        'for a 1d domain-decomposition along x & please do' // &
    366357                        ' not set npey/=1 in the parameter file'
    367        CALL handle_palm_message( 'check_parameters', 'PA0017', 1, 2, 0, 6, 0 )
     358       CALL message( 'check_parameters', 'PA0017', 1, 2, 0, 6, 0 )
    368359    ENDIF
    369360    IF ( psolver == 'poisfft_hybrid'  .AND.                     &
     
    374365                        'work for subdomains with unequal size & please ' // &
    375366                        'set grid_matching = ''strict'' in the parameter file'
    376        CALL handle_palm_message( 'check_parameters', 'PA0018', 1, 2, 0, 6, 0 )
     367       CALL message( 'check_parameters', 'PA0018', 1, 2, 0, 6, 0 )
    377368    ENDIF
    378369#else
     
    380371       message_string = 'psolver = "' // TRIM( psolver ) // '" only works' // &
    381372                        ' for a parallel environment'
    382        CALL handle_palm_message( 'check_parameters', 'PA0019', 1, 2, 0, 6, 0 )
     373       CALL message( 'check_parameters', 'PA0019', 1, 2, 0, 6, 0 )
    383374    ENDIF
    384375#endif
     
    392383          message_string = 'unknown multigrid cycle: cycle_mg = "' // &
    393384                           TRIM( cycle_mg ) // '"'
    394           CALL handle_palm_message( 'check_parameters', 'PA0020', 1, 2, 0, 6, &
    395                                     0 )
     385          CALL message( 'check_parameters', 'PA0020', 1, 2, 0, 6, 0 )
    396386       ENDIF
    397387    ENDIF
     
    402392       message_string = 'unknown fft-algorithm: fft_method = "' // &
    403393                        TRIM( fft_method ) // '"'
    404        CALL handle_palm_message( 'check_parameters', 'PA0021', 1, 2, 0, 6, 0 )
     394       CALL message( 'check_parameters', 'PA0021', 1, 2, 0, 6, 0 )
    405395    ENDIF
    406396
     
    411401       message_string = 'unknown advection scheme: momentum_advec = "' // &
    412402                        TRIM( momentum_advec ) // '"'
    413        CALL handle_palm_message( 'check_parameters', 'PA0022', 1, 2, 0, 6, 0 )
     403       CALL message( 'check_parameters', 'PA0022', 1, 2, 0, 6, 0 )
    414404    ENDIF
    415405    IF ( ( momentum_advec == 'ups-scheme'  .OR.  scalar_advec == 'ups-scheme' )&
     
    418408                        '" is not allowed with timestep_scheme = "' //    &
    419409                        TRIM( timestep_scheme ) // '"'
    420        CALL handle_palm_message( 'check_parameters', 'PA0023', 1, 2, 0, 6, 0 )
     410       CALL message( 'check_parameters', 'PA0023', 1, 2, 0, 6, 0 )
    421411    ENDIF
    422412
     
    425415       message_string = 'unknown advection scheme: scalar_advec = "' // &
    426416                        TRIM( scalar_advec ) // '"'
    427        CALL handle_palm_message( 'check_parameters', 'PA0024', 1, 2, 0, 6, 0 )
     417       CALL message( 'check_parameters', 'PA0024', 1, 2, 0, 6, 0 )
    428418    ENDIF
    429419
     
    432422       message_string = 'use_upstream_for_tke set .TRUE. because ' // &
    433423                        'use_sgs_for_particles = .TRUE.'
    434        CALL handle_palm_message( 'check_parameters', 'PA0025', 0, 1, 0, 6, 0 )
     424       CALL message( 'check_parameters', 'PA0025', 0, 1, 0, 6, 0 )
    435425    ENDIF
    436426
     
    438428       message_string = 'use_upstream_for_tke = .TRUE. not allowed with ' // &
    439429                        'timestep_scheme = "' // TRIM( timestep_scheme ) // '"'
    440        CALL handle_palm_message( 'check_parameters', 'PA0026', 1, 2, 0, 6, 0 )
     430       CALL message( 'check_parameters', 'PA0026', 1, 2, 0, 6, 0 )
    441431    ENDIF
    442432
     
    463453          message_string = 'unknown timestep scheme: timestep_scheme = "' // &
    464454                           TRIM( timestep_scheme ) // '"'
    465           CALL handle_palm_message( 'check_parameters', 'PA0027', 1, 2, 0, 6, &
    466                                     0 )
     455          CALL message( 'check_parameters', 'PA0027', 1, 2, 0, 6, 0 )
    467456
    468457    END SELECT
     
    473462                        '" & does not work with timestep_scheme "' // &
    474463                        TRIM( timestep_scheme ) // '"'
    475        CALL handle_palm_message( 'check_parameters', 'PA0028', 1, 2, 0, 6, 0 )
     464       CALL message( 'check_parameters', 'PA0028', 1, 2, 0, 6, 0 )
    476465    ENDIF
    477466
     
    481470                        TRIM( momentum_advec ) // '" & does not work with ' // &
    482471                        'timestep_scheme "' // TRIM( timestep_scheme ) // '"'
    483        CALL handle_palm_message( 'check_parameters', 'PA0029', 1, 2, 0, 6, 0 )
     472       CALL message( 'check_parameters', 'PA0029', 1, 2, 0, 6, 0 )
    484473    ENDIF
    485474
     
    500489                message_string = 'initializing_action = "' // &
    501490                                 TRIM( action ) // '" unkown or not allowed'
    502                 CALL handle_palm_message( 'check_parameters', 'PA0030', 1, 2, &
    503                                           0, 6, 0 )
     491                CALL message( 'check_parameters', 'PA0030', 1, 2, 0, 6, 0 )
    504492
    505493          END SELECT
     
    512500                        ' and "set_1d-model_profiles" are not allowed ' //  &
    513501                        'simultaneously'
    514        CALL handle_palm_message( 'check_parameters', 'PA0031', 1, 2, 0, 6, 0 )
     502       CALL message( 'check_parameters', 'PA0031', 1, 2, 0, 6, 0 )
    515503    ENDIF
    516504
     
    519507       message_string = 'initializing_actions = "set_constant_profiles"' // &
    520508                        ' and "by_user" are not allowed simultaneously'
    521        CALL handle_palm_message( 'check_parameters', 'PA0032', 1, 2, 0, 6, 0 )
     509       CALL message( 'check_parameters', 'PA0032', 1, 2, 0, 6, 0 )
    522510    ENDIF
    523511
     
    526514       message_string = 'initializing_actions = "by_user" and ' // &
    527515                        '"set_1d-model_profiles" are not allowed simultaneously'
    528        CALL handle_palm_message( 'check_parameters', 'PA0033', 1, 2, 0, 6, 0 )
     516       CALL message( 'check_parameters', 'PA0033', 1, 2, 0, 6, 0 )
    529517    ENDIF
    530518
     
    532520       WRITE( message_string, * ) 'cloud_physics = ', cloud_physics, ' is ', &
    533521              'not allowed with humidity = ', humidity
    534        CALL handle_palm_message( 'check_parameters', 'PA0034', 1, 2, 0, 6, 0 )
     522       CALL message( 'check_parameters', 'PA0034', 1, 2, 0, 6, 0 )
    535523    ENDIF
    536524
     
    538526       WRITE( message_string, * ) 'precipitation = ', precipitation, ' is ', &
    539527              'not allowed with cloud_physics = ', cloud_physics
    540        CALL handle_palm_message( 'check_parameters', 'PA0035', 1, 2, 0, 6, 0 )
     528       CALL message( 'check_parameters', 'PA0035', 1, 2, 0, 6, 0 )
    541529    ENDIF
    542530
     
    544532       message_string = 'humidity = .TRUE. and sloping_surface = .TRUE. ' // &
    545533                        'are not allowed simultaneously'
    546        CALL handle_palm_message( 'check_parameters', 'PA0036', 1, 2, 0, 6, 0 )
     534       CALL message( 'check_parameters', 'PA0036', 1, 2, 0, 6, 0 )
    547535    ENDIF
    548536
    549537    IF ( humidity  .AND.  scalar_advec == 'ups-scheme' )  THEN
    550538       message_string = 'UPS-scheme is not implemented for humidity = .TRUE.'
    551        CALL handle_palm_message( 'check_parameters', 'PA0037', 1, 2, 0, 6, 0 )
     539       CALL message( 'check_parameters', 'PA0037', 1, 2, 0, 6, 0 )
    552540    ENDIF
    553541
     
    555543       message_string = 'humidity = .TRUE. and passive_scalar = .TRUE. ' // &
    556544                        'is not allowed simultaneously'
    557        CALL handle_palm_message( 'check_parameters', 'PA0038', 1, 2, 0, 6, 0 )
     545       CALL message( 'check_parameters', 'PA0038', 1, 2, 0, 6, 0 )
    558546    ENDIF
    559547
     
    561549       message_string = 'UPS-scheme is not implemented for passive_scalar' // &
    562550                        ' = .TRUE.'
    563        CALL handle_palm_message( 'check_parameters', 'PA0039', 1, 2, 0, 6, 0 )
     551       CALL message( 'check_parameters', 'PA0039', 1, 2, 0, 6, 0 )
    564552    ENDIF
    565553
     
    567555       message_string = 'illegal value "' // TRIM( grid_matching ) // &
    568556                        '" found for parameter grid_matching'
    569        CALL handle_palm_message( 'check_parameters', 'PA0040', 1, 2, 0, 6, 0 )
     557       CALL message( 'check_parameters', 'PA0040', 1, 2, 0, 6, 0 )
    570558    ENDIF
    571559
     
    573561       message_string = 'plant_canopy = .TRUE. requires a non-zero drag ' // &
    574562                        'coefficient & given value is drag_coefficient = 0.0'
    575        CALL handle_palm_message( 'check_parameters', 'PA0041', 1, 2, 0, 6, 0 )
     563       CALL message( 'check_parameters', 'PA0041', 1, 2, 0, 6, 0 )
    576564    ENDIF
    577565
     
    945933    IF ( ocean .AND. .NOT. use_top_fluxes )  THEN
    946934       message_string = 'use_top_fluxes must be .TRUE. in ocean version'
    947        CALL handle_palm_message( 'check_parameters', 'PA0042', 1, 2, 0, 6, 0 )
     935       CALL message( 'check_parameters', 'PA0042', 1, 2, 0, 6, 0 )
    948936    ENDIF
    949937
     
    954942          WRITE( message_string, * ) 'ABS( alpha_surface = ', alpha_surface, &
    955943                                     ' ) must be < 90.0'
    956           CALL handle_palm_message( 'check_parameters', 'PA0043', 1, 2, 0, 6, &
    957                                     0 )
     944          CALL message( 'check_parameters', 'PA0043', 1, 2, 0, 6, 0 )
    958945       ENDIF
    959946       sloping_surface = .TRUE.
     
    967954       IF ( dt <= 0.0  .AND.  dt /= -1.0 )  THEN
    968955          WRITE( message_string, * ) 'dt = ', dt , ' <= 0.0'
    969           CALL handle_palm_message( 'check_parameters', 'PA0044', 1, 2, 0, 6, &
    970                                     0 )
     956          CALL message( 'check_parameters', 'PA0044', 1, 2, 0, 6, 0 )
    971957       ENDIF
    972958       dt_3d = dt
     
    991977          WRITE( message_string, * ) 'cfl_factor = ', cfl_factor, &
    992978                 ' out of range & 0.0 < cfl_factor <= 1.0 is required'
    993           CALL handle_palm_message( 'check_parameters', 'PA0045', 1, 2, 0, 6, &
    994                                     0 )
     979          CALL message( 'check_parameters', 'PA0045', 1, 2, 0, 6, 0 )
    995980       ENDIF
    996981    ENDIF
     
    1012997          message_string = 'baroclinicity (ug) not allowed simultaneously' // &
    1013998                           ' with galilei transformation'
    1014           CALL handle_palm_message( 'check_parameters', 'PA0046', 1, 2, 0, 6, &
    1015                                     0 )
     999          CALL message( 'check_parameters', 'PA0046', 1, 2, 0, 6, 0 )
    10161000       ELSEIF ( use_ug_for_galilei_tr .AND.                &
    10171001                vg_vertical_gradient_level(1) /= 0.0 )  THEN
    10181002          message_string = 'baroclinicity (vg) not allowed simultaneously' // &
    10191003                           ' with galilei transformation'
    1020           CALL handle_palm_message( 'check_parameters', 'PA0047', 1, 2, 0, 6, &
    1021                                     0 )
     1004          CALL message( 'check_parameters', 'PA0047', 1, 2, 0, 6, 0 )
    10221005       ELSE
    10231006          message_string = 'variable translation speed used for galilei-' // &
    10241007             'transformation, which may cause & instabilities in stably ' // &
    10251008             'stratified regions'
    1026           CALL handle_palm_message( 'check_parameters', 'PA0048', 0, 1, 0, 6, &
    1027                                     0 )
     1009          CALL message( 'check_parameters', 'PA0048', 0, 1, 0, 6, 0 )
    10281010       ENDIF
    10291011    ENDIF
     
    10411023       message_string = 'unknown boundary condition: bc_lr = "' // &
    10421024                        TRIM( bc_lr ) // '"'
    1043        CALL handle_palm_message( 'check_parameters', 'PA0049', 1, 2, 0, 6, 0 )
     1025       CALL message( 'check_parameters', 'PA0049', 1, 2, 0, 6, 0 )
    10441026    ENDIF
    10451027    IF ( bc_ns /= 'cyclic'  .AND.  bc_ns /= 'dirichlet/radiation'  .AND. &
     
    10471029       message_string = 'unknown boundary condition: bc_ns = "' // &
    10481030                        TRIM( bc_ns ) // '"'
    1049        CALL handle_palm_message( 'check_parameters', 'PA0050', 1, 2, 0, 6, 0 )
     1031       CALL message( 'check_parameters', 'PA0050', 1, 2, 0, 6, 0 )
    10501032    ENDIF
    10511033
     
    10581040          message_string = 'non-cyclic lateral boundaries do not allow ' // &
    10591041                           'psolver = "' // TRIM( psolver ) // '"'
    1060           CALL handle_palm_message( 'check_parameters', 'PA0051', 1, 2, 0, 6, &
    1061                                     0 )
     1042          CALL message( 'check_parameters', 'PA0051', 1, 2, 0, 6, 0 )
    10621043       ENDIF
    10631044       IF ( momentum_advec /= 'pw-scheme' )  THEN
    10641045          message_string = 'non-cyclic lateral boundaries do not allow ' // &
    10651046                           'momentum_advec = "' // TRIM( momentum_advec ) // '"'
    1066           CALL handle_palm_message( 'check_parameters', 'PA0052', 1, 2, 0, 6, &
    1067                                     0 )
     1047          CALL message( 'check_parameters', 'PA0052', 1, 2, 0, 6, 0 )
    10681048       ENDIF
    10691049       IF ( scalar_advec /= 'pw-scheme' )  THEN
    10701050          message_string = 'non-cyclic lateral boundaries do not allow ' // &
    10711051                           'scalar_advec = "' // TRIM( scalar_advec ) // '"'
    1072           CALL handle_palm_message( 'check_parameters', 'PA0053', 1, 2, 0, 6, &
    1073                                     0 )
     1052          CALL message( 'check_parameters', 'PA0053', 1, 2, 0, 6, 0 )
    10741053       ENDIF
    10751054       IF ( galilei_transformation )  THEN
    10761055          message_string = 'non-cyclic lateral boundaries do not allow ' // &
    10771056                           'galilei_transformation = .T.'
    1078           CALL handle_palm_message( 'check_parameters', 'PA0054', 1, 2, 0, 6, &
    1079                                     0 )
     1057          CALL message( 'check_parameters', 'PA0054', 1, 2, 0, 6, 0 )
    10801058       ENDIF
    10811059    ENDIF
     
    10871065       IF ( adjust_mixing_length  .AND.  prandtl_layer )  THEN
    10881066          message_string = 'adjust_mixing_length = TRUE and bc_e_b = "neumann"'
    1089           CALL handle_palm_message( 'check_parameters', 'PA0055', 0, 1, 0, 6, &
    1090                                     0 )
     1067          CALL message( 'check_parameters', 'PA0055', 0, 1, 0, 6, 0 )
    10911068       ENDIF
    10921069    ELSEIF ( bc_e_b == '(u*)**2+neumann' )  THEN
     
    10951072          message_string = 'adjust_mixing_length = FALSE and bc_e_b = "' // &
    10961073                           TRIM( bc_e_b ) // '"'
    1097           CALL handle_palm_message( 'check_parameters', 'PA0056', 0, 1, 0, 6, &
    1098                                     0 )
     1074          CALL message( 'check_parameters', 'PA0056', 0, 1, 0, 6, 0 )
    10991075       ENDIF
    11001076       IF ( .NOT. prandtl_layer )  THEN
     
    11031079          message_string = 'boundary condition bc_e_b changed to "' // &
    11041080                           TRIM( bc_e_b ) // '"'
    1105           CALL handle_palm_message( 'check_parameters', 'PA0057', 0, 1, 0, 6, &
    1106                                     0 )
     1081          CALL message( 'check_parameters', 'PA0057', 0, 1, 0, 6, 0 )
    11071082       ENDIF
    11081083    ELSE
    11091084       message_string = 'unknown boundary condition: bc_e_b = "' // &
    11101085                        TRIM( bc_e_b ) // '"'
    1111        CALL handle_palm_message( 'check_parameters', 'PA0058', 1, 2, 0, 6, 0 )
     1086       CALL message( 'check_parameters', 'PA0058', 1, 2, 0, 6, 0 )
    11121087    ENDIF
    11131088
     
    11231098       message_string = 'unknown boundary condition: bc_p_b = "' // &
    11241099                        TRIM( bc_p_b ) // '"'
    1125        CALL handle_palm_message( 'check_parameters', 'PA0059', 1, 2, 0, 6, 0 )
     1100       CALL message( 'check_parameters', 'PA0059', 1, 2, 0, 6, 0 )
    11261101    ENDIF
    11271102    IF ( ibc_p_b == 2  .AND.  .NOT. prandtl_layer )  THEN
    11281103       message_string = 'boundary condition: bc_p_b = "' // TRIM( bc_p_b ) // &
    11291104                        '" not allowed with prandtl_layer = .FALSE.'
    1130        CALL handle_palm_message( 'check_parameters', 'PA0060', 1, 2, 0, 6, 0 )
     1105       CALL message( 'check_parameters', 'PA0060', 1, 2, 0, 6, 0 )
    11311106    ENDIF
    11321107    IF ( bc_p_t == 'dirichlet' )  THEN
     
    11371112       message_string = 'unknown boundary condition: bc_p_t = "' // &
    11381113                        TRIM( bc_p_t ) // '"'
    1139        CALL handle_palm_message( 'check_parameters', 'PA0061', 1, 2, 0, 6, 0 )
     1114       CALL message( 'check_parameters', 'PA0061', 1, 2, 0, 6, 0 )
    11401115    ENDIF
    11411116
     
    11521127          message_string = 'unknown boundary condition: bc_pt_b = "' // &
    11531128                           TRIM( bc_pt_b ) // '"'
    1154           CALL handle_palm_message( 'check_parameters', 'PA0062', 1, 2, 0, 6, &
    1155                                     0 )
     1129          CALL message( 'check_parameters', 'PA0062', 1, 2, 0, 6, 0 )
    11561130       ENDIF
    11571131    ENDIF
     
    11661140       message_string = 'unknown boundary condition: bc_pt_t = "' // &
    11671141                        TRIM( bc_pt_t ) // '"'
    1168        CALL handle_palm_message( 'check_parameters', 'PA0063', 1, 2, 0, 6, 0 )
     1142       CALL message( 'check_parameters', 'PA0063', 1, 2, 0, 6, 0 )
    11691143    ENDIF
    11701144
     
    11781152       message_string = 'both, top_momentumflux_u AND top_momentumflux_v ' // &
    11791153                        'must be set'
    1180        CALL handle_palm_message( 'check_parameters', 'PA0064', 1, 2, 0, 6, 0 )
     1154       CALL message( 'check_parameters', 'PA0064', 1, 2, 0, 6, 0 )
    11811155    ENDIF
    11821156
     
    11891163       message_string = 'boundary_condition: bc_pt_b = "' // TRIM( bc_pt_b ) //&
    11901164                        '& is not allowed with constant_heatflux = .TRUE.'
    1191        CALL handle_palm_message( 'check_parameters', 'PA0065', 1, 2, 0, 6, 0 )
     1165       CALL message( 'check_parameters', 'PA0065', 1, 2, 0, 6, 0 )
    11921166    ENDIF
    11931167    IF ( constant_heatflux  .AND.  pt_surface_initial_change /= 0.0 )  THEN
     
    11951169               'wed with pt_surface_initial_change (/=0) = ', &
    11961170               pt_surface_initial_change
    1197        CALL handle_palm_message( 'check_parameters', 'PA0066', 1, 2, 0, 6, 0 )
     1171       CALL message( 'check_parameters', 'PA0066', 1, 2, 0, 6, 0 )
    11981172    ENDIF
    11991173
     
    12061180       message_string = 'boundary_condition: bc_pt_t = "' // TRIM( bc_pt_t ) //&
    12071181                        '" is not allowed with constant_top_heatflux = .TRUE.'
    1208        CALL handle_palm_message( 'check_parameters', 'PA0067', 1, 2, 0, 6, 0 )
     1182       CALL message( 'check_parameters', 'PA0067', 1, 2, 0, 6, 0 )
    12091183    ENDIF
    12101184
     
    12191193          message_string = 'unknown boundary condition: bc_sa_t = "' // &
    12201194                           TRIM( bc_sa_t ) // '"'
    1221           CALL handle_palm_message( 'check_parameters', 'PA0068', 1, 2, 0, 6, &
    1222                                     0 )
     1195          CALL message( 'check_parameters', 'PA0068', 1, 2, 0, 6, 0 )
    12231196       ENDIF
    12241197
     
    12281201                           TRIM( bc_sa_t ) // '" requires to set ' // &
    12291202                           'top_salinityflux'
    1230           CALL handle_palm_message( 'check_parameters', 'PA0069', 1, 2, 0, 6, &
    1231                                     0 )
     1203          CALL message( 'check_parameters', 'PA0069', 1, 2, 0, 6, 0 )
    12321204       ENDIF
    12331205
     
    12411213                           TRIM( bc_sa_t ) // '" is not allowed with ' // &
    12421214                           'constant_top_salinityflux = .TRUE.'
    1243           CALL handle_palm_message( 'check_parameters', 'PA0070', 1, 2, 0, 6, &
    1244                                     0 )
     1215          CALL message( 'check_parameters', 'PA0070', 1, 2, 0, 6, 0 )
    12451216       ENDIF
    12461217
     
    12631234          message_string = 'unknown boundary condition: bc_' // TRIM( sq ) // &
    12641235                           '_b ="' // TRIM( bc_q_b ) // '"'
    1265           CALL handle_palm_message( 'check_parameters', 'PA0071', 1, 2, 0, 6, &
    1266                                     0 )
     1236          CALL message( 'check_parameters', 'PA0071', 1, 2, 0, 6, 0 )
    12671237       ENDIF
    12681238       IF ( bc_q_t == 'dirichlet' )  THEN
     
    12731243          message_string = 'unknown boundary condition: bc_' // TRIM( sq ) // &
    12741244                           '_t ="' // TRIM( bc_q_t ) // '"'
    1275           CALL handle_palm_message( 'check_parameters', 'PA0072', 1, 2, 0, 6, &
    1276                                     0 )
     1245          CALL message( 'check_parameters', 'PA0072', 1, 2, 0, 6, 0 )
    12771246       ENDIF
    12781247
     
    12871256                           '= "' // TRIM( bc_q_b ) // '" is not allowed wi' // &
    12881257                           'th prescribed surface flux'
    1289           CALL handle_palm_message( 'check_parameters', 'PA0073', 1, 2, 0, 6, &
    1290                                     0 )
     1258          CALL message( 'check_parameters', 'PA0073', 1, 2, 0, 6, 0 )
    12911259       ENDIF
    12921260       IF ( constant_waterflux  .AND.  q_surface_initial_change /= 0.0 )  THEN
     
    12941262                 'wed with ', sq, '_surface_initial_change (/=0) = ', &
    12951263                 q_surface_initial_change
    1296           CALL handle_palm_message( 'check_parameters', 'PA0074', 1, 2, 0, 6, &
    1297                                     0 )
     1264          CALL message( 'check_parameters', 'PA0074', 1, 2, 0, 6, 0 )
    12981265       ENDIF
    12991266       
     
    13091276          message_string = 'boundary condition: bc_uv_b = "' // &
    13101277               TRIM( bc_uv_b ) // '" is not allowed with prandtl_layer = .TRUE.'
    1311           CALL handle_palm_message( 'check_parameters', 'PA0075', 1, 2, 0, 6, &
    1312                                     0 )
     1278          CALL message( 'check_parameters', 'PA0075', 1, 2, 0, 6, 0 )
    13131279       ENDIF
    13141280    ELSE
    13151281       message_string = 'unknown boundary condition: bc_uv_b = "' // &
    13161282                        TRIM( bc_uv_b ) // '"'
    1317        CALL handle_palm_message( 'check_parameters', 'PA0076', 1, 2, 0, 6, 0 )
     1283       CALL message( 'check_parameters', 'PA0076', 1, 2, 0, 6, 0 )
    13181284    ENDIF
    13191285
     
    13291295          message_string = 'unknown boundary condition: bc_uv_t = "' // &
    13301296                           TRIM( bc_uv_t ) // '"'
    1331           CALL handle_palm_message( 'check_parameters', 'PA0077', 1, 2, 0, 6, &
    1332                                     0 )
     1297          CALL message( 'check_parameters', 'PA0077', 1, 2, 0, 6, 0 )
    13331298       ENDIF
    13341299    ENDIF
     
    13471312          WRITE( message_string, * )  'rayleigh_damping_factor = ', &
    13481313                              rayleigh_damping_factor, ' out of range [0.0,1.0]'
    1349           CALL handle_palm_message( 'check_parameters', 'PA0078', 1, 2, 0, 6, &
    1350                                     0 )
     1314          CALL message( 'check_parameters', 'PA0078', 1, 2, 0, 6, 0 )
    13511315       ENDIF
    13521316    ENDIF
     
    13641328             WRITE( message_string, * )  'rayleigh_damping_height = ', &
    13651329                   rayleigh_damping_height, ' out of range [0.0,', zu(nzt), ']'
    1366              CALL handle_palm_message( 'check_parameters', 'PA0079', 1, 2, 0, &
    1367                                        6, 0 )
     1330             CALL message( 'check_parameters', 'PA0079', 1, 2, 0, 6, 0 )
    13681331          ENDIF
    13691332       ELSE
     
    13721335             WRITE( message_string, * )  'rayleigh_damping_height = ', &
    13731336                   rayleigh_damping_height, ' out of range [0.0,', zu(nzb), ']'
    1374              CALL handle_palm_message( 'check_parameters', 'PA0079', 1, 2, 0, &
    1375                                        6, 0 )
     1337             CALL message( 'check_parameters', 'PA0079', 1, 2, 0, 6, 0 )
    13761338          ENDIF
    13771339       ENDIF
     
    13841346         overshoot_limit_e < 0.0 )  THEN
    13851347       message_string = 'overshoot_limit_... < 0.0 is not allowed'
    1386        CALL handle_palm_message( 'check_parameters', 'PA0080', 1, 2, 0, 6, 0 )
     1348       CALL message( 'check_parameters', 'PA0080', 1, 2, 0, 6, 0 )
    13871349    ENDIF
    13881350    IF ( ups_limit_u < 0.0 .OR. ups_limit_v < 0.0 .OR. ups_limit_w < 0.0 .OR. &
    13891351         ups_limit_pt < 0.0 .OR. ups_limit_e < 0.0 )  THEN
    13901352       message_string = 'ups_limit_... < 0.0 is not allowed'
    1391        CALL handle_palm_message( 'check_parameters', 'PA0081', 1, 2, 0, 6, 0 )
     1353       CALL message( 'check_parameters', 'PA0081', 1, 2, 0, 6, 0 )
    13921354    ENDIF
    13931355
     
    13991361       WRITE ( message_string, * ) 'number of statistic_regions = ', &
    14001362                   statistic_regions+1, ' but only 10 regions are allowed'
    1401        CALL handle_palm_message( 'check_parameters', 'PA0082', 1, 2, 0, 6, 0 )
     1363       CALL message( 'check_parameters', 'PA0082', 1, 2, 0, 6, 0 )
    14021364    ENDIF
    14031365    IF ( normalizing_region > statistic_regions  .OR. &
     
    14061368                normalizing_region, ' must be >= 0 and <= ',statistic_regions, &
    14071369                ' (value of statistic_regions)'
    1408        CALL handle_palm_message( 'check_parameters', 'PA0083', 1, 2, 0, 6, 0 )
     1370       CALL message( 'check_parameters', 'PA0083', 1, 2, 0, 6, 0 )
    14091371    ENDIF
    14101372
     
    14161378       message_string = 'dt_sort_particles is reset to 0.0 because of cloud' //&
    14171379                        '_droplets = .TRUE.'
    1418        CALL handle_palm_message( 'check_parameters', 'PA0084', 0, 1, 0, 6, 0 )
     1380       CALL message( 'check_parameters', 'PA0084', 0, 1, 0, 6, 0 )
    14191381    ENDIF
    14201382
     
    14551417       WRITE( message_string, * )  'averaging_interval = ', &
    14561418             averaging_interval, ' must be <= dt_data_output = ', dt_data_output
    1457        CALL handle_palm_message( 'check_parameters', 'PA0085', 1, 2, 0, 6, 0 )
     1419       CALL message( 'check_parameters', 'PA0085', 1, 2, 0, 6, 0 )
    14581420    ENDIF
    14591421
     
    14651427       WRITE( message_string, * )  'averaging_interval_pr = ', &
    14661428             averaging_interval_pr, ' must be <= dt_dopr = ', dt_dopr
    1467        CALL handle_palm_message( 'check_parameters', 'PA0086', 1, 2, 0, 6, 0 )
     1429       CALL message( 'check_parameters', 'PA0086', 1, 2, 0, 6, 0 )
    14681430    ENDIF
    14691431
     
    14751437       WRITE( message_string, * )  'averaging_interval_sp = ', &
    14761438             averaging_interval_sp, ' must be <= dt_dosp = ', dt_dosp
    1477        CALL handle_palm_message( 'check_parameters', 'PA0087', 1, 2, 0, 6, 0 )
     1439       CALL message( 'check_parameters', 'PA0087', 1, 2, 0, 6, 0 )
    14781440    ENDIF
    14791441
     
    15011463                dt_averaging_input, ' must be <= averaging_interval = ', &
    15021464                averaging_interval
    1503        CALL handle_palm_message( 'check_parameters', 'PA0088', 1, 2, 0, 6, 0 )
     1465       CALL message( 'check_parameters', 'PA0088', 1, 2, 0, 6, 0 )
    15041466    ENDIF
    15051467
     
    15081470                dt_averaging_input_pr, ' must be <= averaging_interval_pr = ', &
    15091471                averaging_interval_pr
    1510        CALL handle_palm_message( 'check_parameters', 'PA0089', 1, 2, 0, 6, 0 )
     1472       CALL message( 'check_parameters', 'PA0089', 1, 2, 0, 6, 0 )
    15111473    ENDIF
    15121474
     
    15211483                 precipitation_amount_interval, ' must not be larger than ', &
    15221484                 'dt_do2d_xy = ', dt_do2d_xy
    1523              CALL handle_palm_message( 'check_parameters', 'PA0090', 1, 2, 0, &
    1524                                        6, 0 )
     1485             CALL message( 'check_parameters', 'PA0090', 1, 2, 0, 6, 0 )
    15251486          ENDIF
    15261487       ENDIF
     
    16911652                                 TRIM( data_output_pr(i) ) // ' is not imp' // &
    16921653                                 'lemented for ocean = .FALSE.'
    1693                 CALL handle_palm_message( 'check_parameters', 'PA0091', 1, 2, &
    1694                                           0, 6, 0 )
     1654                CALL message( 'check_parameters', 'PA0091', 1, 2, 0, 6, 0 )
    16951655             ELSE
    16961656                dopr_index(i) = 23
     
    17601720                                 TRIM( data_output_pr(i) ) // ' is not imp' // &
    17611721                                 'lemented for humidity = .FALSE.'
    1762                 CALL handle_palm_message( 'check_parameters', 'PA0092', 1, 2, &
    1763                                           0, 6, 0 )
     1722                CALL message( 'check_parameters', 'PA0092', 1, 2, 0, 6, 0 )
    17641723             ELSE
    17651724                dopr_index(i) = 41
     
    17791738                                 TRIM( data_output_pr(i) ) // ' is not imp' // &
    17801739                                 'lemented for passive_scalar = .FALSE.'
    1781                 CALL handle_palm_message( 'check_parameters', 'PA0093', 1, 2, &
    1782                                           0, 6, 0 )
     1740                CALL message( 'check_parameters', 'PA0093', 1, 2, 0, 6, 0 )
    17831741             ELSE
    17841742                dopr_index(i) = 41
     
    18211779                                 TRIM( data_output_pr(i) ) // ' is not imp' // &
    18221780                                 'lemented for cloud_physics = .FALSE.'
    1823                 CALL handle_palm_message( 'check_parameters', 'PA0094', 1, 2, &
    1824                                           0, 6, 0 )
     1781                CALL message( 'check_parameters', 'PA0094', 1, 2, 0, 6, 0 )
    18251782             ELSE
    18261783                dopr_index(i) = 4
     
    18661823                                 TRIM( data_output_pr(i) ) // ' is not imp' // &
    18671824                                 'lemented for humidity = .FALSE.'
    1868                 CALL handle_palm_message( 'check_parameters', 'PA0092', 1, 2, &
    1869                                           0, 6, 0 )
     1825                CALL message( 'check_parameters', 'PA0092', 1, 2, 0, 6, 0 )
    18701826             ELSE
    18711827                dopr_index(i) = 48
     
    18791835                                 TRIM( data_output_pr(i) ) // ' is not imp' // &
    18801836                                 'lemented for humidity = .FALSE.'
    1881                 CALL handle_palm_message( 'check_parameters', 'PA0092', 1, 2, &
    1882                                           0, 6, 0 )
     1837                CALL message( 'check_parameters', 'PA0092', 1, 2, 0, 6, 0 )
    18831838             ELSE
    18841839                dopr_index(i) = 49
     
    18921847                                 TRIM( data_output_pr(i) ) // ' is not imp' // &
    18931848                                 'lemented for humidity = .FALSE.'
    1894                 CALL handle_palm_message( 'check_parameters', 'PA0092', 1, 2, &
    1895                                           0, 6, 0 )
     1849                CALL message( 'check_parameters', 'PA0092', 1, 2, 0, 6, 0 )
    18961850             ELSE
    18971851                dopr_index(i) = 50
     
    19051859                                 TRIM( data_output_pr(i) ) // ' is not imp' // &
    19061860                                 'lemented for passive_scalar = .FALSE.'
    1907                 CALL handle_palm_message( 'check_parameters', 'PA0093', 1, 2, &
    1908                                           0, 6, 0 )
     1861                CALL message( 'check_parameters', 'PA0093', 1, 2, 0, 6, 0 )
    19091862             ELSE
    19101863                dopr_index(i) = 48
     
    19181871                                 TRIM( data_output_pr(i) ) // ' is not imp' // &
    19191872                                 'lemented for passive_scalar = .FALSE.'
    1920                 CALL handle_palm_message( 'check_parameters', 'PA0093', 1, 2, &
    1921                                           0, 6, 0 )
     1873                CALL message( 'check_parameters', 'PA0093', 1, 2, 0, 6, 0 )
    19221874             ELSE
    19231875                dopr_index(i) = 49
     
    19311883                                 TRIM( data_output_pr(i) ) // ' is not imp' // &
    19321884                                 'lemented for passive_scalar = .FALSE.'
    1933                 CALL handle_palm_message( 'check_parameters', 'PA0093', 1, 2, &
    1934                                           0, 6, 0 )
     1885                CALL message( 'check_parameters', 'PA0093', 1, 2, 0, 6, 0 )
    19351886             ELSE
    19361887                dopr_index(i) = 50
     
    19541905                                 'lemented for cloud_physics = .FALSE. an&' // &
    19551906                                 'd humidity = .FALSE.'
    1956                 CALL handle_palm_message( 'check_parameters', 'PA0095', 1, 2, &
    1957                                           0, 6, 0 )
     1907                CALL message( 'check_parameters', 'PA0095', 1, 2, 0, 6, 0 )
    19581908             ENDIF
    19591909
     
    19731923                                 'lemented for cloud_physics = .FALSE. an&' // &
    19741924                                 'd humidity = .FALSE.'
    1975                 CALL handle_palm_message( 'check_parameters', 'PA0095', 1, 2, &
    1976                                           0, 6, 0 )
     1925                CALL message( 'check_parameters', 'PA0095', 1, 2, 0, 6, 0 )
    19771926             ENDIF
    19781927
     
    19921941                                 'lemented for cloud_physics = .FALSE. an&' // &
    19931942                                 'd humidity = .FALSE.'
    1994                 CALL handle_palm_message( 'check_parameters', 'PA0095', 1, 2, &
    1995                                           0, 6, 0 )
     1943                CALL message( 'check_parameters', 'PA0095', 1, 2, 0, 6, 0 )
    19961944             ENDIF
    19971945
     
    20021950                                 'lemented for cloud_physics = .FALSE. or'  // &
    20031951                                 '&cloud_droplets = .FALSE.'
    2004                 CALL handle_palm_message( 'check_parameters', 'PA0096', 1, 2, &
    2005                                           0, 6, 0 )
     1952                CALL message( 'check_parameters', 'PA0096', 1, 2, 0, 6, 0 )
    20061953             ELSE
    20071954                dopr_index(i) = 54
     
    20652012                                 TRIM( data_output_pr(i) ) // ' is not imp' // &
    20662013                                 'lemented for ocean = .FALSE.'
    2067                 CALL handle_palm_message( 'check_parameters', 'PA0091', 1, 2, &
    2068                                           0, 6, 0 )
     2014                CALL message( 'check_parameters', 'PA0091', 1, 2, 0, 6, 0 )
    20692015             ELSE
    20702016                dopr_index(i) = 65
     
    20782024                                 TRIM( data_output_pr(i) ) // ' is not imp' // &
    20792025                                 'lemented for ocean = .FALSE.'
    2080                 CALL handle_palm_message( 'check_parameters', 'PA0091', 1, 2, &
    2081                                           0, 6, 0 )
     2026                CALL message( 'check_parameters', 'PA0091', 1, 2, 0, 6, 0 )
    20822027             ELSE
    20832028                dopr_index(i) = 66
     
    20912036                                 TRIM( data_output_pr(i) ) // ' is not imp' // &
    20922037                                 'lemented for ocean = .FALSE.'
    2093                 CALL handle_palm_message( 'check_parameters', 'PA0091', 1, 2, &
    2094                                           0, 6, 0 )
     2038                CALL message( 'check_parameters', 'PA0091', 1, 2, 0, 6, 0 )
    20952039             ELSE
    20962040                dopr_index(i) = 67
     
    21142058                                 TRIM( data_output_pr(i) ) // ' is not imp' // &
    21152059                                 'lemented for humidity = .FALSE.'
    2116                 CALL handle_palm_message( 'check_parameters', 'PA0092', 1, 2, &
    2117                                           0, 6, 0 )
     2060                CALL message( 'check_parameters', 'PA0092', 1, 2, 0, 6, 0 )
    21182061             ELSE
    21192062                dopr_index(i) = 70
     
    21312074                                    'data_output_pr_user = "' // &
    21322075                                    TRIM( data_output_pr(i) ) // '"'
    2133                    CALL handle_palm_message( 'check_parameters', 'PA0097', 1, &
    2134                                              2, 0, 6, 0 )
     2076                   CALL message( 'check_parameters', 'PA0097', 1, 2, 0, 6, 0 )
    21352077                ELSE
    21362078                   message_string = 'illegal value for data_output_pr = "' // &
    21372079                                    TRIM( data_output_pr(i) ) // '"'
    2138                    CALL handle_palm_message( 'check_parameters', 'PA0098', 1, &
    2139                                              2, 0, 6, 0 )
     2080                   CALL message( 'check_parameters', 'PA0098', 1, 2, 0, 6, 0 )
    21402081                ENDIF
    21412082             ENDIF
     
    21752116          WRITE( message_string, * )  'z_max_do1d = ', z_max_do1d, ' must ', &
    21762117                 'be >= ', zu(nzb+1), ' or <= ', zu(nzt+1)
    2177           CALL handle_palm_message( 'check_parameters', 'PA0099', 1, 2, 0, 6, &
    2178                                     0 )
     2118          CALL message( 'check_parameters', 'PA0099', 1, 2, 0, 6, 0 )
    21792119       ELSE
    21802120          cross_uymax = z_max_do1d
     
    21952135                              'zed_x = "' // TRIM( cross_normalized_x(i) ) // &
    21962136                              '"'
    2197              CALL handle_palm_message( 'check_parameters', 'PA0100', 1, 2, 0, &
    2198                                        6, 0 )
     2137             CALL message( 'check_parameters', 'PA0100', 1, 2, 0, 6, 0 )
    21992138
    22002139       END SELECT
     
    22082147                              'zed_y = "' // TRIM( cross_normalized_y(i) ) // &
    22092148                              '"'
    2210              CALL handle_palm_message( 'check_parameters', 'PA0101', 1, 2, 0, &
    2211                                        6, 0 )
     2149             CALL message( 'check_parameters', 'PA0101', 1, 2, 0, 6, 0 )
    22122150
    22132151       END SELECT
     
    22192157       WRITE( message_string, * )  'z_max_do1d_normalized = ', &
    22202158                                   z_max_do1d_normalized, ' must be >= 0.0'
    2221        CALL handle_palm_message( 'check_parameters', 'PA0101', 1, 2, 0, 6, 0 )
     2159       CALL message( 'check_parameters', 'PA0101', 1, 2, 0, 6, 0 )
    22222160    ENDIF
    22232161
     
    22352173             message_string = 'number of output quantitities given by data' // &
    22362174                '_output and data_output_user exceeds the limit of 100'
    2237              CALL handle_palm_message( 'check_parameters', 'PA0102', 1, 2, 0, &
    2238                                        6, 0 )
     2175             CALL message( 'check_parameters', 'PA0102', 1, 2, 0, 6, 0 )
    22392176          ENDIF
    22402177          data_output(i) = data_output_user(j)
     
    22792216                message_string = 'output of "' // TRIM( var ) // '" requi' // &
    22802217                                 'res constant_diffusion = .FALSE.'
    2281                 CALL handle_palm_message( 'check_parameters', 'PA0103', 1, 2, &
    2282                                           0, 6, 0 )
     2218                CALL message( 'check_parameters', 'PA0103', 1, 2, 0, 6, 0 )
    22832219             ENDIF
    22842220             unit = 'm2/s2'
     
    22882224                message_string = 'output of "' // TRIM( var ) // '" requir' // &
    22892225                   'es a "particles_par"-NAMELIST in the parameter file (PARIN)'
    2290                 CALL handle_palm_message( 'check_parameters', 'PA0104', 1, 2, &
    2291                                           0, 6, 0 )
     2226                CALL message( 'check_parameters', 'PA0104', 1, 2, 0, 6, 0 )
    22922227             ENDIF
    22932228             IF ( TRIM( var ) == 'pc' )  unit = 'number'
     
    22982233                message_string = 'output of "' // TRIM( var ) // '" requi' // &
    22992234                                 'res humidity = .TRUE.'
    2300                 CALL handle_palm_message( 'check_parameters', 'PA0105', 1, 2, &
    2301                                           0, 6, 0 )
     2235                CALL message( 'check_parameters', 'PA0105', 1, 2, 0, 6, 0 )
    23022236             ENDIF
    23032237             IF ( TRIM( var ) == 'q'   )  unit = 'kg/kg'
     
    23082242                message_string = 'output of "' // TRIM( var ) // '" requi' // &
    23092243                         'res cloud_physics = .TRUE. or cloud_droplets = .TRUE.'
    2310                 CALL handle_palm_message( 'check_parameters', 'PA0106', 1, 2, &
    2311                                           0, 6, 0 )
     2244                CALL message( 'check_parameters', 'PA0106', 1, 2, 0, 6, 0 )
    23122245             ENDIF
    23132246             unit = 'kg/kg'
     
    23172250                message_string = 'output of "' // TRIM( var ) // '" requi' // &
    23182251                                 'res cloud_droplets = .TRUE.'
    2319                 CALL handle_palm_message( 'check_parameters', 'PA0107', 1, 2, &
    2320                                           0, 6, 0 )
     2252                CALL message( 'check_parameters', 'PA0107', 1, 2, 0, 6, 0 )
    23212253             ENDIF
    23222254             IF ( TRIM( var ) == 'ql_c'  )  unit = 'kg/kg'
     
    23282260                message_string = 'output of "' // TRIM( var ) // '" requi' // &
    23292261                                 'res cloud_physics = .TRUE.'
    2330                 CALL handle_palm_message( 'check_parameters', 'PA0108', 1, 2, &
    2331                                           0, 6, 0 )
     2262                CALL message( 'check_parameters', 'PA0108', 1, 2, 0, 6, 0 )
    23322263             ENDIF
    23332264             unit = 'kg/kg'
     
    23372268                message_string = 'output of "' // TRIM( var ) // '" requi' // &
    23382269                                 'res ocean = .TRUE.'
    2339                 CALL handle_palm_message( 'check_parameters', 'PA0109', 1, 2, &
    2340                                           0, 6, 0 )
     2270                CALL message( 'check_parameters', 'PA0109', 1, 2, 0, 6, 0 )
    23412271             ENDIF
    23422272             unit = 'kg/m3'
     
    23462276                message_string = 'output of "' // TRIM( var ) // '" requi' // &
    23472277                                 'res passive_scalar = .TRUE.'
    2348                 CALL handle_palm_message( 'check_parameters', 'PA0110', 1, 2, &
    2349                                           0, 6, 0 )
     2278                CALL message( 'check_parameters', 'PA0110', 1, 2, 0, 6, 0 )
    23502279             ENDIF
    23512280             unit = 'conc'
     
    23552284                message_string = 'output of "' // TRIM( var ) // '" requi' // &
    23562285                                 'res ocean = .TRUE.'
    2357                 CALL handle_palm_message( 'check_parameters', 'PA0109', 1, 2, &
    2358                                           0, 6, 0 )
     2286                CALL message( 'check_parameters', 'PA0109', 1, 2, 0, 6, 0 )
    23592287             ENDIF
    23602288             unit = 'psu'
     
    23652293                                 TRIM( var ) // '" & only 2d-horizontal ' // &
    23662294                                 'cross sections are allowed for this value'
    2367                 CALL handle_palm_message( 'check_parameters', 'PA0111', 1, 2, &
    2368                                           0, 6, 0 )
     2295                CALL message( 'check_parameters', 'PA0111', 1, 2, 0, 6, 0 )
    23692296             ENDIF
    23702297             IF ( TRIM( var ) == 'lwp*'  .AND.  .NOT. cloud_physics )  THEN
    23712298                message_string = 'output of "' // TRIM( var ) // '" requi' // &
    23722299                                 'res cloud_physics = .TRUE.'
    2373                 CALL handle_palm_message( 'check_parameters', 'PA0108', 1, 2, &
    2374                                           0, 6, 0 )
     2300                CALL message( 'check_parameters', 'PA0108', 1, 2, 0, 6, 0 )
    23752301             ENDIF
    23762302             IF ( TRIM( var ) == 'pra*'  .AND.  .NOT. precipitation )  THEN
    23772303                message_string = 'output of "' // TRIM( var ) // '" requi' // &
    23782304                                 'res precipitation = .TRUE.'
    2379                 CALL handle_palm_message( 'check_parameters', 'PA0112', 1, 2, &
    2380                                           0, 6, 0 )
     2305                CALL message( 'check_parameters', 'PA0112', 1, 2, 0, 6, 0 )
    23812306             ENDIF
    23822307             IF ( TRIM( var ) == 'pra*'  .AND.  j == 1 )  THEN
    23832308                message_string = 'temporal averaging of precipitation ' // &
    23842309                          'amount "' // TRIM( var ) // '" is not possible'
    2385                 CALL handle_palm_message( 'check_parameters', 'PA0113', 1, 2, &
    2386                                           0, 6, 0 )
     2310                CALL message( 'check_parameters', 'PA0113', 1, 2, 0, 6, 0 )
    23872311             ENDIF
    23882312             IF ( TRIM( var ) == 'prr*'  .AND.  .NOT. precipitation )  THEN
    23892313                message_string = 'output of "' // TRIM( var ) // '" requi' // &
    23902314                                 'res precipitation = .TRUE.'
    2391                 CALL handle_palm_message( 'check_parameters', 'PA0112', 1, 2, &
    2392                                           0, 6, 0 )
     2315                CALL message( 'check_parameters', 'PA0112', 1, 2, 0, 6, 0 )
    23932316             ENDIF
    23942317
     
    24162339                   message_string = 'illegal value for data_output or ' // &
    24172340                         'data_output_user = "' // TRIM( data_output(i) ) // '"'
    2418                    CALL handle_palm_message( 'check_parameters', 'PA0114', 1, &
    2419                                              2, 0, 6, 0 )
     2341                   CALL message( 'check_parameters', 'PA0114', 1, 2, 0, 6, 0 )
    24202342                ELSE
    24212343                   message_string = 'illegal value for data_output =' // &
    24222344                                    TRIM( data_output(i) ) // '"'
    2423                    CALL handle_palm_message( 'check_parameters', 'PA0115', 1, &
    2424                                              2, 0, 6, 0 )
     2345                   CALL message( 'check_parameters', 'PA0115', 1, 2, 0, 6, 0 )
    24252346                ENDIF
    24262347             ENDIF
     
    24892410                    ' must be >= ', zu(nzb+1), '(zu(nzb+1)) and <= ', zu(nzt), &
    24902411                    ' (zu(nzt))'
    2491        CALL handle_palm_message( 'check_parameters', 'PA0116', 1, 2, 0, 6, 0 )
     2412       CALL message( 'check_parameters', 'PA0116', 1, 2, 0, 6, 0 )
    24922413    ENDIF
    24932414
     
    25042425          message_string = 'do3d_compress = .TRUE. not allowed on host "' // &
    25052426                           TRIM( host ) // '"'
    2506           CALL handle_palm_message( 'check_parameters', 'PA0117', 1, 2, 0, 6, &
    2507                                     0 )
     2427          CALL message( 'check_parameters', 'PA0117', 1, 2, 0, 6, 0 )
    25082428       ENDIF
    25092429
     
    25162436             WRITE( message_string, * )  'illegal precision: do3d_comp_prec', &
    25172437                                   '(', i, ') = "', TRIM(do3d_comp_prec(i)),'"'
    2518              CALL handle_palm_message( 'check_parameters', 'PA0118', 1, 2, 0, &
    2519                                        6, 0 )
     2438             CALL message( 'check_parameters', 'PA0118', 1, 2, 0, 6, 0 )
    25202439          ENDIF
    25212440
     
    25402459                     TRIM( do3d_comp_prec(i) ), '" given for do3d_comp_prec(', &
    25412460                     i, ')'
    2542                 CALL handle_palm_message( 'check_parameters', 'PA0119', 1, 2, &
    2543                                           0, 6, 0 )
     2461                CALL message( 'check_parameters', 'PA0119', 1, 2, 0, 6, 0 )
    25442462
    25452463          END SELECT
     
    25752493                message_string = 'unknown value for data_output_format "' // &
    25762494                                 TRIM( data_output_format(i) ) // '"'
    2577                 CALL handle_palm_message( 'check_parameters', 'PA0120', 1, 2, &
    2578                                           0, 6, 0 )
     2495                CALL message( 'check_parameters', 'PA0120', 1, 2, 0, 6, 0 )
    25792496
    25802497          END SELECT
     
    25972514       IF ( km_constant < 0.0 )  THEN
    25982515          WRITE( message_string, * )  'km_constant = ', km_constant, ' < 0.0'
    2599           CALL handle_palm_message( 'check_parameters', 'PA0121', 1, 2, 0, 6, &
    2600                                     0 )
     2516          CALL message( 'check_parameters', 'PA0121', 1, 2, 0, 6, 0 )
    26012517       ELSE
    26022518          IF ( prandtl_number < 0.0 )  THEN
    26032519             WRITE( message_string, * )  'prandtl_number = ', prandtl_number, &
    26042520                                         ' < 0.0'
    2605              CALL handle_palm_message( 'check_parameters', 'PA0122', 1, 2, 0, &
    2606                                        6, 0 )
     2521             CALL message( 'check_parameters', 'PA0122', 1, 2, 0, 6, 0 )
    26072522          ENDIF
    26082523          constant_diffusion = .TRUE.
     
    26112526             message_string = 'prandtl_layer is not allowed with fixed ' // &
    26122527                              'value of km'
    2613              CALL handle_palm_message( 'check_parameters', 'PA0123', 1, 2, 0, &
    2614                                        6, 0 )
     2528             CALL message( 'check_parameters', 'PA0123', 1, 2, 0, 6, 0 )
    26152529          ENDIF
    26162530       ENDIF
     
    26302544       IF ( outflow_damping_width <= 0  .OR.  outflow_damping_width > nx )  THEN
    26312545          message_string = 'outflow_damping width out of range'
    2632           CALL handle_palm_message( 'check_parameters', 'PA0124', 1, 2, 0, 6, &
    2633                                     0 )
     2546          CALL message( 'check_parameters', 'PA0124', 1, 2, 0, 6, 0 )
    26342547       ENDIF
    26352548    ENDIF
     
    26442557       IF ( outflow_damping_width <= 0  .OR.  outflow_damping_width > ny )  THEN
    26452558          message_string = 'outflow_damping width out of range'
    2646           CALL handle_palm_message( 'check_parameters', 'PA0124', 1, 2, 0, 6, &
    2647                                     0 )
     2559          CALL message( 'check_parameters', 'PA0124', 1, 2, 0, 6, 0 )
    26482560       ENDIF
    26492561    ENDIF
     
    26542566       WRITE( message_string, * )  'rif_min = ', rif_min, ' must be less ', &
    26552567                                   'than rif_max = ', rif_max
    2656        CALL handle_palm_message( 'check_parameters', 'PA0125', 1, 2, 0, 6, 0 )
     2568       CALL message( 'check_parameters', 'PA0125', 1, 2, 0, 6, 0 )
    26572569    ENDIF
    26582570
     
    26702582       WRITE( message_string, * )  'disturbance_level_b = ', &
    26712583                           disturbance_level_b, ' must be >= ', zu(3), '(zu(3))'
    2672        CALL handle_palm_message( 'check_parameters', 'PA0126', 1, 2, 0, 6, 0 )
     2584       CALL message( 'check_parameters', 'PA0126', 1, 2, 0, 6, 0 )
    26732585    ELSEIF ( disturbance_level_b > zu(nzt-2) )  THEN
    26742586       WRITE( message_string, * )  'disturbance_level_b = ', &
    26752587                   disturbance_level_b, ' must be <= ', zu(nzt-2), '(zu(nzt-2))'
    2676        CALL handle_palm_message( 'check_parameters', 'PA0127', 1, 2, 0, 6, 0 )
     2588       CALL message( 'check_parameters', 'PA0127', 1, 2, 0, 6, 0 )
    26772589    ELSE
    26782590       DO  k = 3, nzt-2
     
    26952607       WRITE( message_string, * )  'disturbance_level_t = ', &
    26962608                   disturbance_level_t, ' must be <= ', zu(nzt-2), '(zu(nzt-2))'
    2697        CALL handle_palm_message( 'check_parameters', 'PA0128', 1, 2, 0, 6, 0 )
     2609       CALL message( 'check_parameters', 'PA0128', 1, 2, 0, 6, 0 )
    26982610    ELSEIF ( disturbance_level_t < disturbance_level_b )  THEN
    26992611       WRITE( message_string, * )  'disturbance_level_t = ', &
    27002612                   disturbance_level_t, ' must be >= disturbance_level_b = ', &
    27012613                   disturbance_level_b
    2702        CALL handle_palm_message( 'check_parameters', 'PA0129', 1, 2, 0, 6, 0 )
     2614       CALL message( 'check_parameters', 'PA0129', 1, 2, 0, 6, 0 )
    27032615    ELSE
    27042616       DO  k = 3, nzt-2
     
    27182630                disturbance_level_ind_t, ' must be >= disturbance_level_b = ', &
    27192631                disturbance_level_b
    2720        CALL handle_palm_message( 'check_parameters', 'PA0130', 1, 2, 0, 6, 0 )
     2632       CALL message( 'check_parameters', 'PA0130', 1, 2, 0, 6, 0 )
    27212633    ENDIF
    27222634
     
    27352647       THEN
    27362648          message_string = 'inflow_disturbance_begin out of range'
    2737           CALL handle_palm_message( 'check_parameters', 'PA0131', 1, 2, 0, 6, &
    2738                                     0 )
     2649          CALL message( 'check_parameters', 'PA0131', 1, 2, 0, 6, 0 )
    27392650       ENDIF
    27402651       IF ( inflow_disturbance_end == -1 )  THEN
     
    27442655       THEN
    27452656          message_string = 'inflow_disturbance_end out of range'
    2746           CALL handle_palm_message( 'check_parameters', 'PA0132', 1, 2, 0, 6, &
    2747                                     0 )
     2657          CALL message( 'check_parameters', 'PA0132', 1, 2, 0, 6, 0 )
    27482658       ENDIF
    27492659    ELSEIF ( bc_ns /= 'cyclic' )  THEN
     
    27542664       THEN
    27552665          message_string = 'inflow_disturbance_begin out of range'
    2756           CALL handle_palm_message( 'check_parameters', 'PA0131', 1, 2, 0, 6, &
    2757                                     0 )
     2666          CALL message( 'check_parameters', 'PA0131', 1, 2, 0, 6, 0 )
    27582667       ENDIF
    27592668       IF ( inflow_disturbance_end == -1 )  THEN
     
    27632672       THEN
    27642673          message_string = 'inflow_disturbance_end out of range'
    2765           CALL handle_palm_message( 'check_parameters', 'PA0132', 1, 2, 0, 6, &
    2766                                     0 )
     2674          CALL message( 'check_parameters', 'PA0132', 1, 2, 0, 6, 0 )
    27672675       ENDIF
    27682676    ENDIF
     
    27892697       message_string = 'turbulent_inflow = .T. requires a Dirichlet ' // &
    27902698                        'condition at the inflow boundary'
    2791        CALL handle_palm_message( 'check_parameters', 'PA0133', 1, 2, 0, 6, 0 )
     2699       CALL message( 'check_parameters', 'PA0133', 1, 2, 0, 6, 0 )
    27922700    ENDIF
    27932701
     
    28032711             WRITE( message_string, * )  'illegal value for recycling_width:', &
    28042712                                         ' ', recycling_width
    2805              CALL handle_palm_message( 'check_parameters', 'PA0134', 1, 2, 0, &
    2806                                        6, 0 )
     2713             CALL message( 'check_parameters', 'PA0134', 1, 2, 0, 6, 0 )
    28072714          ENDIF
    28082715       ENDIF
     
    28182725       message_string = 'unknown random generator: random_generator = "' // &
    28192726                        TRIM( random_generator ) // '"'
    2820        CALL handle_palm_message( 'check_parameters', 'PA0135', 1, 2, 0, 6, 0 )
     2727       CALL message( 'check_parameters', 'PA0135', 1, 2, 0, 6, 0 )
    28212728    ENDIF
    28222729
     
    28302737          WRITE( message_string, * )  'damp_level_1d = ', damp_level_1d, &
    28312738                 ' must be > 0.0 and < ', zu(nzt+1), '(zu(nzt+1))'
    2832           CALL handle_palm_message( 'check_parameters', 'PA0136', 1, 2, 0, 6, &
    2833                                     0 )
     2739          CALL message( 'check_parameters', 'PA0136', 1, 2, 0, 6, 0 )
    28342740       ELSE
    28352741          DO  k = 1, nzt+1
     
    28482754       message_string = 'mixing_length_1d = "' // TRIM( mixing_length_1d ) // &
    28492755                        '" is unknown'
    2850        CALL handle_palm_message( 'check_parameters', 'PA0137', 1, 2, 0, 6, 0 )
     2756       CALL message( 'check_parameters', 'PA0137', 1, 2, 0, 6, 0 )
    28512757    ENDIF
    28522758    IF ( TRIM( dissipation_1d ) /= 'as_in_3d_model'  .AND. &
     
    28542760       message_string = 'dissipation_1d = "' // TRIM( dissipation_1d ) // &
    28552761                        '" is unknown'
    2856        CALL handle_palm_message( 'check_parameters', 'PA0138', 1, 2, 0, 6, 0 )
     2762       CALL message( 'check_parameters', 'PA0138', 1, 2, 0, 6, 0 )
    28572763    ENDIF
    28582764
     
    28892795                 termination_time_needed, ' must be > 30.0 on host "', &
    28902796                 TRIM( host ), '"'
    2891           CALL handle_palm_message( 'check_parameters', 'PA0139', 1, 2, 0, 6, &
    2892                                     0 )
     2797          CALL message( 'check_parameters', 'PA0139', 1, 2, 0, 6, 0 )
    28932798       ENDIF
    28942799    ELSEIF ( host(1:3) == 'ibm' )  THEN
     
    29012806                 termination_time_needed, ' should be >= 300.0 on host "', &
    29022807                 TRIM( host ), '"'
    2903           CALL handle_palm_message( 'check_parameters', 'PA0140', 1, 2, 0, 6, &
    2904                                     0 )
     2808          CALL message( 'check_parameters', 'PA0140', 1, 2, 0, 6, 0 )
    29052809       ENDIF
    29062810    ENDIF
Note: See TracChangeset for help on using the changeset viewer.