Changeset 226


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

preparations for the next release

Location:
palm/trunk
Files:
56 edited
1 moved

Legend:

Unmodified
Added
Removed
  • palm/trunk/DOC/tec/technical_documentation.html

    r198 r226  
    1212<br><table nosave="" cellpadding="0" cellspacing="0"> <caption>&nbsp; <br> </caption><tbody>
    1313</tbody><tbody> </tbody> <tbody> <tr nosave=""> <td nosave=""><b>Current
    14 model version:</b></td> <td><span style="font-weight: bold;">3.5</span></td> </tr>
     14model version:</b></td> <td><span style="font-weight: bold;">3.6</span></td> </tr>
    1515<tr nosave=""> <td nosave=""><b>Last
    1616change of this document</b>:&nbsp;</td> <td nosave=""><b>$Id$</b></td> </tr>
     
    24342434init_3d_model, init_dvrp, local_stop, plant_canopy_model, poismg,
    24352435prandtl_fluxes, pres, read_3d_binary, user_interface, wall_fluxes,
    2436 write_3d_binary<br></td></tr>
     2436write_3d_binary<br></td></tr><tr><td style="vertical-align: top;">02/02/09</td><td style="vertical-align: top;">SR</td><td style="vertical-align: top;">3.6</td><td style="vertical-align: top;">N</td><td style="vertical-align: top;">This
     2437release contains further additions, changes, and bugfixes for the
     2438SGI-ICE system, as well as important changes like the splitting of the
     2439user-interface into single files, a complete revision of the
     2440pre-compiling mechanism allowing to use different make-depositories
     2441simultaneously, and a revision of the reading-mechanism from restart
     2442files, which has no more restrictions in case that the previous and
     2443current run have different domain/subdomain sizes. A new handling of
     2444all kind of output messages is introduced with this release and will be
     2445applied to all existing messages within the next releases.<br><br><span style="font-weight: bold;">New features are:</span><br style="font-weight: bold;"><br>Restart runs on SGI-ICE are working. (mrun)<br>2d-decomposition is default on SGI-ICE systems. (init_pegrid)<br><br>Ocean-atmosphere coupling realized with MPI-1. mrun adjusted for this case (-Y option). Check that PALM is called with <span style="font-family: Courier New,Courier,monospace;">mrun</span>-option "<span style="font-style: italic;">-K parallel</span>" for coupling. Adjustments in <span style="font-family: Courier New,Courier,monospace;">mrun</span>, <span style="font-family: Courier New,Courier,monospace;">mbuild</span>, and <span style="font-family: Courier New,Courier,monospace;">subjob</span> for lcxt4.<br><br>DVRP arguments changed to single precision, mode pathlines added.<br><br>User can add additional routines in files <span style="font-family: Courier New,Courier,monospace;">user_additional_routines</span>.<br><br>User can check user parameters and deduce further quantities in <span style="font-family: Courier New,Courier,monospace;">user_check_parameters</span>.</td><td style="vertical-align: top;">check_for_restart,
     2446check_parameters, data_output_dvrp, init_dvrp, init_pegrid, local_stop,
     2447modules, package_parin, palm, surface_coupler, timestep<br><br>Makefile,&nbsp;mbuild, mrun, subjob<br><br><span style="font-weight: bold;">new:</span><br>init_coupling, user_additional_routines, user_check_parameters</td></tr><tr><td style="vertical-align: top;">&nbsp;</td><td style="vertical-align: top;">&nbsp;</td><td style="vertical-align: top;">&nbsp;</td><td style="vertical-align: top;">C</td><td style="vertical-align: top;">&nbsp;User interface has been split into single files.<br><br>Type of variables <span style="font-family: Courier New,Courier,monospace;">count</span> and <span style="font-family: Courier New,Courier,monospace;">count_rate</span>
     2448changed to INTEGER(8) in order to avoid "out of range" problems, which
     2449result in measured negative time intervals. (cpu_log, local_tremain,
     2450local_tremain_ini)<br><br>Reading mechanism from restart files
     2451completely revised. The subdomain/total domain size is now allowed to
     2452vary arbitrarily between the current and previous run. (read_var_list,
     2453read_3d_binary, user_read_restart_data)<br><br>Precompilation mechanism (<span style="font-family: Courier New,Courier,monospace;">mbuild</span>) completely revised: the source-tarfile remains in the source directory (<span style="font-family: Courier New,Courier,monospace;">trunk/SOURCE</span>).
     2454One depository per block (given in the config-file) is created. Always
     2455all files from the source directory are copied to the respective
     2456depository. No additional file checks are done any more (mrun version
     24572.1). The depository name used contains the conditions given by <span style="font-family: Courier New,Courier,monospace;">mrun</span>-option "<span style="font-family: Courier New,Courier,monospace;">-K</span>". (mbuild, mrun)<br><br>Output messages (including required stop of execution) can now be handled with the new subroutine&nbsp;<span style="font-family: Courier New,Courier,monospace;">message</span>. All output messages will be replaced by this routine step by step within the next revisions.<br><br>Neumann boundary condition at <span style="font-family: Courier New,Courier,monospace;">k=nzb</span> is explicitly set for better reading, although this has been already done in boundary_conds. (advec_s_bc)<br><br>Origin of the xy-coordinate system shifted from the center of the first grid cell (indices <span style="font-family: Courier New,Courier,monospace;">i=0</span>, <span style="font-family: Courier New,Courier,monospace;">j=0</span>) to the south-left corner of this cell. (netcdf) Topography definition according to new user parameter <span style="font-family: Courier New,Courier,monospace;">topography_grid_convention</span>. (init_grid, modules, user_header, user_init_grid, user_parin)</td><td style="vertical-align: top;">advec_s_bc,
     2458check_parameters, cpu_log, init_grid, local_stop, local_tremain,
     2459local_tremain_ini, modules, netcdf, read_3d_binary, read_var_list,
     2460user_read_restart_data<br><br>Makefile, mbuild, mrun<br><br><span style="font-weight: bold;">removed:</span><br>user_interface<br><br><span style="font-weight: bold;">new:</span><br>message,
     2461user_3d_data_averaging, user_actions, user_advec_particles,
     2462user_check_data_output, user_check_data_output_pr, user_data_output_2d,
     2463user_data_output_3d, user_data_output_dvrp, user_define_netcdf_grid,
     2464user_dvrp_coltab, user_header, user_init_3d_model, user_init,
     2465user_init_grid, user_init_particles, user_init_plant_canopy, user_last_actions, user_parin, user_parin, user_particle_attributes, user_read_restart_data, user_spectra, user_statistics</td></tr><tr><td style="vertical-align: top;">&nbsp;</td><td style="vertical-align: top;">&nbsp;</td><td style="vertical-align: top;">&nbsp;</td><td style="vertical-align: top;">E</td><td style="vertical-align: top;">&nbsp;Bugfix: array <span style="font-family: Courier New,Courier,monospace;">d</span> is reallocated in case that multigrid is used. (calc_spectra)<br><br>Bugfixes for nonparallel execution. (check_for_restart, cpu_statistics, inflow_turbulence,&nbsp;timestep)<br><br>Size of <span style="font-family: Courier New,Courier,monospace;">pf3d </span>adjusted to the required output size (1 gridpoint less, along all three dimensions), because output of a subset of the data (<span style="font-family: Courier New,Courier,monospace;">pf3d(nxa:nxe...)</span>) in the NF90_PUT_VAR statement caused segmentation fault with the INTEL compiler. (combine_plot_fields)<br><br>Bugfix: error in <span style="font-family: Courier New,Courier,monospace;">zu</span> index in case of <span style="font-family: Courier New,Courier,monospace;">section_xy=-1</span>. (header)<br><br>Inconsistency
     2466removed: as the thermal stratification is not taken into account for
     2467the evaluation of the wall fluxes at vertical walls, the eddy viscosity
     2468<span style="font-family: Courier New,Courier,monospace;">km</span> must not be used for the evaluation of the velocity gradients <span style="font-family: Courier New,Courier,monospace;">dudy</span>, <span style="font-family: Courier New,Courier,monospace;">dwdy</span>, <span style="font-family: Courier New,Courier,monospace;">dvdx</span> and <span style="font-family: Courier New,Courier,monospace;">dwdx</span>. (production_e)<br><br>Bugfix in calculating <span style="font-family: Courier New,Courier,monospace;">k</span> index in case of oceans runs. (sort_particles)<br><br>Bugfix: no output of particle concentration and radius unless particles have been started. (data_output_2d)<br><br>Bugfix: reading of <span style="font-family: Courier New,Courier,monospace;">spectrum_x|y</span> from restart files ignored if total numbers of grid points do not match. (read_3d_binary)<br><br>Bugfix: abort in case that absolute temperature is below zero. (init_cloud_physics)</td><td style="vertical-align: top;">advec_particles,
     2469calc_spectra, check_for_restart, cpu_statistics, data_output_2d,
     2470header, inflow_turbulence, init_cloud_physics, production_e,
     2471read_3d_binary, timestep<br><br>combine_plot_fields</td></tr>
    24372472</tbody>
    24382473</table>&nbsp;<b><blink>Attention:</blink></b>
  • palm/trunk/SOURCE/Makefile

    r217 r226  
    44# Actual revisions:
    55# -----------------
    6 # former file user_interface split into one file per subroutine
    7 # +init_coupling, handle_palm_message
     6#
    87#
    98# Former revisions:
    109# -----------------
    1110# $Id$
     11#
     12# 217 2008-12-09 18:00:48Z letzel
     13# former file user_interface split into one file per subroutine
     14# +init_coupling, message
    1215#
    1316# 151 2008-03-07 13:42:18Z raasch
     
    5861        disturb_heatflux.f90 eqn_state_seawater.f90 exchange_horiz.f90 exchange_horiz_2d.f90 \
    5962        fft_xy.f90 flow_statistics.f90 global_min_max.f90 \
    60         handle_palm_message.f90 header.f90 \
    61         impact_of_latent_heat.f90 inflow_turbulence.f90 init_1d_model.f90 \
    62         init_3d_model.f90 init_advec.f90 init_cloud_physics.f90 init_coupling.f90 \
    63         init_dvrp.f90 init_grid.f90 init_ocean.f90 init_particles.f90 init_pegrid.f90 \
     63        header.f90 impact_of_latent_heat.f90 inflow_turbulence.f90 \
     64        init_1d_model.f90 init_3d_model.f90 init_advec.f90 \
     65        init_cloud_physics.f90 init_coupling.f90 init_dvrp.f90 init_grid.f90 \
     66        init_ocean.f90 init_particles.f90 init_pegrid.f90 \
    6467        init_pt_anomaly.f90 init_rankine.f90 init_slope.f90 \
    6568        interaction_droplets_ptq.f90 local_flush.f90 local_getenv.f90 \
    6669        local_stop.f90 local_system.f90 local_tremain.f90 \
    67         local_tremain_ini.f90 modules.f90 netcdf.f90 package_parin.f90 \
    68         palm.f90 parin.f90 particle_boundary_conds.f90 \
     70        local_tremain_ini.f90 message.f90 modules.f90 netcdf.f90 \
     71        package_parin.f90 palm.f90 parin.f90 particle_boundary_conds.f90 \
    6972        plant_canopy_model.f90 poisfft.f90 \
    7073        poisfft_hybrid.f90 poismg.f90 prandtl_fluxes.f90 pres.f90 print_1d.f90 \
     
    100103        diffusion_v.o diffusion_w.o diffusivities.o disturb_field.o \
    101104        disturb_heatflux.o eqn_state_seawater.o exchange_horiz.o exchange_horiz_2d.o fft_xy.o \
    102         flow_statistics.o global_min_max.o handle_palm_message.o header.o \
    103         impact_of_latent_heat.o \
     105        flow_statistics.o global_min_max.o header.o impact_of_latent_heat.o \
    104106        inflow_turbulence.o init_1d_model.o init_3d_model.o init_advec.o init_cloud_physics.o \
    105107        init_coupling.o init_dvrp.o init_grid.o init_ocean.o init_particles.o init_pegrid.o \
    106108        init_pt_anomaly.o init_rankine.o init_slope.o \
    107109        interaction_droplets_ptq.o local_flush.o local_getenv.o local_stop.o \
    108         local_system.o local_tremain.o local_tremain_ini.o modules.o netcdf.o \
    109         package_parin.o palm.o parin.o particle_boundary_conds.o \
     110        local_system.o local_tremain.o local_tremain_ini.o message.o modules.o \
     111        netcdf.o package_parin.o palm.o parin.o particle_boundary_conds.o \
    110112        plant_canopy_model.o poisfft.o \
    111113        poisfft_hybrid.o poismg.o prandtl_fluxes.o pres.o print_1d.o \
     
    204206flow_statistics.o: modules.o
    205207global_min_max.o: modules.o
    206 handle_palm_message.o: modules.o
    207208header.o: modules.o
    208209impact_of_latent_heat.o: modules.o
     
    226227local_tremain.o: modules.o
    227228local_tremain_ini.o: modules.o
     229message.o: modules.o
    228230modules.o: modules.f90
    229231netcdf.o: modules.o
  • palm/trunk/SOURCE/advec_particles.f90

    r212 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Bugfix in calculating k index in case of oceans runs (sort_particles)
    76! TEST: PRINT statements on unit 9 (commented out)
    87!
     
    109! -----------------
    1110! $Id$
     11!
     12! 212 2008-11-11 09:09:24Z raasch
     13! Bugfix in calculating k index in case of oceans runs (sort_particles)
    1214!
    1315! 150 2008-02-29 08:19:58Z raasch
  • palm/trunk/SOURCE/advec_s_bc.f90

    r216 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Neumann boundary condition at k=nzb is explicitly set for better reading,
    7 ! although this has been already done in boundary_conds
     6!
    87!
    98! Former revisions:
    109! -----------------
    1110! $Id$
     11!
     12! 216 2008-11-25 07:12:43Z raasch
     13! Neumann boundary condition at k=nzb is explicitly set for better reading,
     14! although this has been already done in boundary_conds
    1215!
    1316! 97 2007-06-21 08:23:15Z raasch
  • palm/trunk/SOURCE/calc_spectra.f90

    r225 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Bugfix: array d is reallocated in case that multigrid is used
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 225 2009-01-26 14:44:20Z raasch
     13! Bugfix: array d is reallocated in case that multigrid is used
    1114!
    1215! 192 2008-08-27 16:51:49Z letzel
  • palm/trunk/SOURCE/check_for_restart.f90

    r222 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Implementation of an MPI-1 coupling: replaced myid with target_id
    7 ! Bugfix for nonparallel execution
     6!
    87!
    98! Former revisions:
    109! -----------------
    1110! $Id$
     11!
     12! 222 2009-01-12 16:04:16Z letzel
     13! Implementation of an MPI-1 coupling: replaced myid with target_id
     14! Bugfix for nonparallel execution
    1215!
    1316! 108 2007-08-24 15:10:38Z letzel
  • 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
  • palm/trunk/SOURCE/cpu_log.f90

    r225 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Type of count and count_rate changed to INTEGER(8)
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 225 2009-01-26 14:44:20Z raasch
     13! Type of count and count_rate changed to INTEGER(8)
    1114!
    1215! 82 2007-04-16 15:40:52Z raasch
  • palm/trunk/SOURCE/cpu_statistics.f90

    r222 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Bugfix for nonparallel execution
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 222 2009-01-12 16:04:16Z letzel
     13! Bugfix for nonparallel execution
    1114!
    1215! 197 2008-09-16 15:29:03Z raasch
  • palm/trunk/SOURCE/data_output_2d.f90

    r215 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Bugfix: zero output of particle concentration and radius unless particles
    7 ! have been started
     6!
    87!
    98! Former revisions:
    109! -----------------
    1110! $Id$
     11!
     12! 215 2008-11-18 09:54:31Z raasch
     13! Bugfix: no output of particle concentration and radius unless particles
     14! have been started
    1215!
    1316! 96 2007-06-04 08:07:41Z raasch
  • palm/trunk/SOURCE/data_output_dvrp.f90

    r210 r226  
    3232! Actual revisions:
    3333! -----------------
    34 ! DVRP arguments changed to single precision, mode pathlines added
    3534! TEST: different colours for isosurfaces
    3635! TEST: write statements
     
    3938! -----------------
    4039! $Id$
     40!
     41! 210 2008-11-06 08:54:02Z raasch
     42! DVRP arguments changed to single precision, mode pathlines added
    4143!
    4244! 130 2007-11-13 14:08:40Z letzel
  • palm/trunk/SOURCE/header.f90

    r206 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Bugfix: error in zu index in case of section_xy = -1
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 206 2008-10-13 14:59:11Z raasch
     13! Bugfix: error in zu index in case of section_xy = -1
    1114!
    1215! 198 2008-09-17 08:55:28Z raasch
  • palm/trunk/SOURCE/inflow_turbulence.f90

    r222 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Bugfix for nonparallel execution
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 222 2009-01-12 16:04:16Z letzel
     13! Bugfix for nonparallel execution
    1114!
    1215! Initial version (2008/03/07)
  • palm/trunk/SOURCE/init_cloud_physics.f90

    r221 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Bugfix: abort in case that absolute temperature is below zero
     6!
    77!
    88! Former revisions:
    99! ------------------
    1010! $Id$
     11!
     12! 221 2009-01-12 15:32:23Z raasch
     13! Bugfix: abort in case that absolute temperature is below zero
    1114!
    1215! 95 2007-06-02 16:48:38Z raasch
     
    6770          WRITE( message_string, * )  'absolute temperature < 0.0 at zu(', k, &
    6871                                      ') = ', zu(k)
    69           CALL handle_palm_message( 'init_cloud_physics', 'PA0142', 1, 2, 0, 6, &
    70                                     0 )
     72          CALL message( 'init_cloud_physics', 'PA0142', 1, 2, 0, 6, 0 )
    7173       ENDIF
    7274       hyp(k)    = surface_pressure * 100.0 * &
  • palm/trunk/SOURCE/init_coupling.f90

    r222 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Bugfix for nonparallel execution
     6!
    77!
    88! Former revisions:
    99! ------------------
    1010! $Id$
     11!
     12! 222 2009-01-12 16:04:16Z letzel
     13! Initial revision
    1114!
    1215! Description:
  • palm/trunk/SOURCE/init_dvrp.f90

    r210 r226  
    44! Actual revisions:
    55! -----------------
    6 ! DVRP arguments changed to single precision, mode pathlines added
    76! TEST: print* statements
    87! ToDo: checking of mode_dvrp for legal values is not correct
    98! Implementation of a MPI-1 coupling: __mpi2 adjustments for MPI_COMM_WORLD
     9!
    1010! Former revisions:
    1111! -----------------
    1212! $Id$
     13!
     14! 210 2008-11-06 08:54:02Z raasch
     15! DVRP arguments changed to single precision, mode pathlines added
    1316!
    1417! 155 2008-03-28 10:56:30Z letzel
  • palm/trunk/SOURCE/init_grid.f90

    r217 r226  
    44! Actual revisions:
    55! -----------------
    6 ! +topography_grid_convention
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 217 2008-12-09 18:00:48Z letzel
     13! +topography_grid_convention
    1114!
    1215! 134 2007-11-21 07:28:38Z letzel
  • palm/trunk/SOURCE/init_pegrid.f90

    r206 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Implementation of a MPI-1 coupling: added __parallel within the __mpi2 part
    7 ! 2d-decomposition is default on SGI-ICE systems
    86! ATTENTION: nnz_x undefined problem still has to be solved!!!!!!!!
    97! TEST OUTPUT (TO BE REMOVED) logging mpi2 ierr values
     
    1210! -----------------
    1311! $Id$
     12!
     13! 206 2008-10-13 14:59:11Z raasch
     14! Implementation of a MPI-1 coupling: added __parallel within the __mpi2 part
     15! 2d-decomposition is default on SGI-ICE systems
    1416!
    1517! 197 2008-09-16 15:29:03Z raasch
  • palm/trunk/SOURCE/local_stop.f90

    r213 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Implementation of a MPI-1 coupling: replaced myid with target_id.
    7 ! The uncoupled case allows stop or mpi_abort depending on new steering
    8 ! parameter abort_mode, which is set in handle_palm_message.
     6!
    97!
    108! Former revisions:
    119! -----------------
    1210! $Id$
     11!
     12! 213 2008-11-13 10:26:18Z raasch
     13! Implementation of a MPI-1 coupling: replaced myid with target_id.
     14! The uncoupled case allows stop or mpi_abort depending on new steering
     15! parameter abort_mode, which is set in routine message.
    1316!
    1417! 147 2008-02-01 12:41:46Z raasch
  • palm/trunk/SOURCE/local_tremain.f90

    r225 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Type of count and count_rate changed to INTEGER(8) in order to avoid out of
    7 ! range problems (which result in measured negative time intervals)
     6!
    87!
    98! Former revisions:
    109! -----------------
    1110! $Id$
     11!
     12! 225 2009-01-26 14:44:20Z raasch
     13! Type of count and count_rate changed to INTEGER(8) in order to avoid out of
     14! range problems (which result in measured negative time intervals)
    1215!
    1316! 82 2007-04-16 15:40:52Z raasch
  • palm/trunk/SOURCE/local_tremain_ini.f90

    r225 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Type of count and count_rate changed to INTEGER(8) in order to avoid out of
    7 ! range problems (which result in measured negative time intervals)
     6!
    87!
    98! Former revisions:
    109! -----------------
    1110! $Id$
     11!
     12! 225 2009-01-26 14:44:20Z raasch
     13! Type of count and count_rate changed to INTEGER(8) in order to avoid out of
     14! range problems (which result in measured negative time intervals)
    1215!
    1316! 82 2007-04-16 15:40:52Z raasch
  • palm/trunk/SOURCE/message.f90

    r225 r226  
    1  SUBROUTINE handle_palm_message( routine_name, message_identifier,             &
    2                                  requested_action, message_level, output_on_pe,&
    3                                  file_id, flush )
     1 SUBROUTINE message( routine_name, message_identifier, requested_action, &
     2                     message_level, output_on_pe, file_id, flush )
    43
    54!------------------------------------------------------------------------------!
    65! Actual revisions:
    76! -----------------
    8 ! Initial revision
     7!
    98!
    109! Former revisions:
    1110! -----------------
    1211! $Id$
     12!
     13! 213 2008-11-13 10:26:18Z raasch
     14! Initial revision
    1315!
    1416! Description:
     
    128130
    129131       IF ( pe_out_of_range )  THEN
    130           WRITE ( *, '(A)' )  '+++ WARNING from handle_palm_message:'
     132          WRITE ( *, '(A)' )  '+++ WARNING from routine message:'
    131133          WRITE ( *, '(A,I6,A)' )  '    PE ', output_on_pe, &
    132134                                   ' choosed for output is larger '
     
    148150!    print*, '#13'
    149151
    150  END SUBROUTINE handle_palm_message
     152 END SUBROUTINE message
  • palm/trunk/SOURCE/modules.f90

    r217 r226  
    55! Actual revisions:
    66! -----------------
     7!
     8!
     9! Former revisions:
     10! -----------------
     11! $Id$
     12!
     13! 217 2008-12-09 18:00:48Z letzel
    714! +topography_grid_convention
    815! some dvrp-variables changed to single precision, variables for dvrp-mode
    916! pathlines added, +target_id, abort_mode, message_string
    10 !
    11 ! Former revisions:
    12 ! -----------------
    13 ! $Id$
    1417!
    1518! 197 2008-09-16 15:29:03Z raasch
  • palm/trunk/SOURCE/netcdf.f90

    r216 r226  
    77! Current revisions:
    88! ------------------
    9 ! Origin of the xy-coordinate system shifted from the center of the first
    10 ! grid cell (indices i=0, j=0) to the south-left corner of this cell.
     9!
    1110!
    1211! Former revisions:
    1312! -----------------
    1413! $Id$
     14!
     15! 216 2008-11-25 07:12:43Z raasch
     16! Origin of the xy-coordinate system shifted from the center of the first
     17! grid cell (indices i=0, j=0) to the south-left corner of this cell.
    1518!
    1619! 189 2008-08-13 17:09:26Z letzel
  • palm/trunk/SOURCE/package_parin.f90

    r210 r226  
    99! -----------------
    1010! $Id$
     11!
     12! 210 2008-11-06 08:54:02Z raasch
     13! Variables for dvrp-mode pathlines added
    1114!
    1215! 116 2007-10-11 02:30:27Z raasch
  • palm/trunk/SOURCE/palm.f90

    r215 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Initialization of coupled runs modified for MPI-1 and moved to external
    7 ! subroutine init_coupling
     6!
    87!
    98! Former revisions:
    109! -----------------
    1110! $Id$
     11!
     12! 215 2008-11-18 09:54:31Z raasch
     13! Initialization of coupled runs modified for MPI-1 and moved to external
     14! subroutine init_coupling
    1215!
    1316! 197 2008-09-16 15:29:03Z raasch
  • palm/trunk/SOURCE/production_e.f90

    r208 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Bugfix concerning the calculation of velocity gradients at vertical walls
    7 ! in case of diabatic conditions
     6!
    87!
    98! Former revisions:
    109! -----------------
    1110! $Id$
     11!
     12! 208 2008-10-20 06:02:59Z raasch
     13! Bugfix concerning the calculation of velocity gradients at vertical walls
     14! in case of diabatic conditions
    1215!
    1316! 187 2008-08-06 16:25:09Z letzel
  • palm/trunk/SOURCE/read_3d_binary.f90

    r220 r226  
    44! Actual revisions:
    55! -----------------
     6!
     7!
     8! Former revisions:
     9! -----------------
     10! $Id$
     11!
     12! 220 2008-12-18 07:00:36Z raasch
    613! reading mechanism completely revised (subdomain/total domain size can vary
    714! arbitrarily between current and previous run)
    815! Bugfix: reading of spectrum_x|y from restart files ignored if total numbers
    916! of grid points do not match
    10 !
    11 ! Former revisions:
    12 ! -----------------
    13 ! $Id$
    1417!
    1518! 150 2008-02-29 08:19:58Z raasch
  • palm/trunk/SOURCE/read_var_list.f90

    r216 r226  
    44! Actual revisions:
    55! -----------------
    6 ! limitations for nx_on_file, ny_on_file removed (read_parts_of_var_list)
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 216 2008-11-25 07:12:43Z raasch
     13! limitations for nx_on_file, ny_on_file removed (read_parts_of_var_list)
    1114!
    1215! 173 2008-05-23 20:39:38Z raasch
  • palm/trunk/SOURCE/surface_coupler.f90

    r206 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Implementation of a MPI-1 Coupling: replaced myid with target_id,
    7 ! deleted __mpi2 directives
     6!
    87!
    98! Former revisions:
    109! ------------------
    1110! $Id$
     11!
     12! 206 2008-10-13 14:59:11Z raasch
     13! Implementation of a MPI-1 Coupling: replaced myid with target_id,
     14! deleted __mpi2 directives
    1215!
    1316! 109 2007-08-28 15:26:47Z letzel
  • palm/trunk/SOURCE/timestep.f90

    r222 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Implementation of a MPI-1 Coupling: replaced myid with target_id
    7 ! Bugfix for nonparallel execution
     6!
    87!
    98! Former revisions:
    109! -----------------
    1110! $Id$
     11!
     12! 222 2009-01-12 16:04:16Z letzel
     13! Implementation of a MPI-1 Coupling: replaced myid with target_id
     14! Bugfix for nonparallel execution
    1215!
    1316! 108 2007-08-24 15:10:38Z letzel
  • palm/trunk/SOURCE/user_3d_data_averaging.f90

    r211 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Former file user_interface.f90 split into one file per subroutine
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 211 2008-11-11 04:46:24Z raasch
     13! Former file user_interface.f90 split into one file per subroutine
    1114!
    1215! Description:
  • palm/trunk/SOURCE/user_actions.f90

    r211 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Former file user_interface.f90 split into one file per subroutine
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 211 2008-11-11 04:46:24Z raasch
     13! Former file user_interface.f90 split into one file per subroutine
    1114!
    1215! Description:
  • palm/trunk/SOURCE/user_additional_routines.f90

    r211 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Initial version
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 211 2008-11-11 04:46:24Z raasch
     13! Initial version
    1114!
    1215! Description:
  • palm/trunk/SOURCE/user_advec_particles.f90

    r211 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Former file user_interface.f90 split into one file per subroutine
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 211 2008-11-11 04:46:24Z raasch
     13! Former file user_interface.f90 split into one file per subroutine
    1114!
    1215! Description:
  • palm/trunk/SOURCE/user_check_data_output.f90

    r211 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Former file user_interface.f90 split into one file per subroutine
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 211 2008-11-11 04:46:24Z raasch
     13! Former file user_interface.f90 split into one file per subroutine
    1114!
    1215! Description:
  • palm/trunk/SOURCE/user_check_data_output_pr.f90

    r211 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Former file user_interface.f90 split into one file per subroutine
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 211 2008-11-11 04:46:24Z raasch
     13! Former file user_interface.f90 split into one file per subroutine
    1114!
    1215! Description:
  • palm/trunk/SOURCE/user_check_parameters.f90

    r217 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Initial version
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 217 2008-12-09 18:00:48Z letzel
     13! Initial version
    1114!
    1215! Description:
     
    3538                  '"topography" = ''single_building'' or ''read_from_file''.'//&
    3639                  ' & Choose ''cell_edge'' or ''cell_center''.'
    37              CALL handle_palm_message( 'user_check_parameters', 'UI0001', 1,  &
    38                   2, 0, 6, 0 )
     40             CALL message( 'user_check_parameters', 'UI0001', 1, 2, 0, 6, 0 )
    3941          ELSE
    4042!--          The default value is applicable here.
     
    5052          message_string = 'The value for "topography_grid_convention" is '// &
    5153               'not recognized. & Choose ''cell_edge'' or ''cell_center''.'
    52           CALL handle_palm_message( 'user_check_parameters', 'UI0002', 1,  &
    53                2, 0, 6, 0 )
     54          CALL message( 'user_check_parameters', 'UI0002', 1, 2, 0, 6, 0 )
    5455       ENDIF
    5556    ENDIF
  • palm/trunk/SOURCE/user_data_output_2d.f90

    r211 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Former file user_interface.f90 split into one file per subroutine
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 211 2008-11-11 04:46:24Z raasch
     13! Former file user_interface.f90 split into one file per subroutine
    1114!
    1215! Description:
  • palm/trunk/SOURCE/user_data_output_3d.f90

    r211 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Former file user_interface.f90 split into one file per subroutine
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 211 2008-11-11 04:46:24Z raasch
     13! Former file user_interface.f90 split into one file per subroutine
    1114!
    1215! Description:
  • palm/trunk/SOURCE/user_data_output_dvrp.f90

    r211 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Former file user_interface.f90 split into one file per subroutine
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 211 2008-11-11 04:46:24Z raasch
     13! Former file user_interface.f90 split into one file per subroutine
    1114!
    1215! Description:
  • palm/trunk/SOURCE/user_define_netcdf_grid.f90

    r211 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Former file user_interface.f90 split into one file per subroutine
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 211 2008-11-11 04:46:24Z raasch
     13! Former file user_interface.f90 split into one file per subroutine
    1114!
    1215! Description:
  • palm/trunk/SOURCE/user_dvrp_coltab.f90

    r211 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Former file user_interface.f90 split into one file per subroutine
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 211 2008-11-11 04:46:24Z raasch
     13! Former file user_interface.f90 split into one file per subroutine
    1114!
    1215! Description:
  • palm/trunk/SOURCE/user_header.f90

    r217 r226  
    44! Actual revisions:
    55! -----------------
    6 ! +topography_grid_convention
    7 ! Former file user_interface.f90 split into one file per subroutine
     6!
    87!
    98! Former revisions:
    109! -----------------
    1110! $Id$
     11!
     12! 2008-12-09 18:00:48Z letzel
     13! +topography_grid_convention
     14! Former file user_interface.f90 split into one file per subroutine
    1215!
    1316! Description:
  • palm/trunk/SOURCE/user_init.f90

    r211 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Former file user_interface.f90 split into one file per subroutine
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 211 2008-11-11 04:46:24Z raasch
     13! Former file user_interface.f90 split into one file per subroutine
    1114!
    1215! Description:
  • palm/trunk/SOURCE/user_init_3d_model.f90

    r211 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Former file user_interface.f90 split into one file per subroutine
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 211 2008-11-11 04:46:24Z raasch
     13! Former file user_interface.f90 split into one file per subroutine
    1114!
    1215! Description:
  • palm/trunk/SOURCE/user_init_grid.f90

    r217 r226  
    44! Actual revisions:
    55! -----------------
    6 ! +topography_grid_convention
    7 ! Former file user_interface.f90 split into one file per subroutine
     6!
    87!
    98! Former revisions:
    109! -----------------
    1110! $Id$
     11!
     12! 217 2008-12-09 18:00:48Z letzel
     13! +topography_grid_convention
     14! Former file user_interface.f90 split into one file per subroutine
    1215!
    1316! Description:
  • palm/trunk/SOURCE/user_init_particles.f90

    r211 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Former file user_interface.f90 split into one file per subroutine
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 211 2008-11-11 04:46:24Z raasch
     13! Former file user_interface.f90 split into one file per subroutine
    1114!
    1215! Description:
  • palm/trunk/SOURCE/user_init_plant_canopy.f90

    r211 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Former file user_interface.f90 split into one file per subroutine
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 211 2008-11-11 04:46:24Z raasch
     13! Former file user_interface.f90 split into one file per subroutine
    1114!
    1215! Description:
  • palm/trunk/SOURCE/user_last_actions.f90

    r211 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Former file user_interface.f90 split into one file per subroutine
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 211 2008-11-11 04:46:24Z raasch
     13! Former file user_interface.f90 split into one file per subroutine
    1114!
    1215! Description:
  • palm/trunk/SOURCE/user_module.f90

    r220 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Former file user_interface.f90 split into one file per subroutine,
    7 ! revision history cleaned up
     6!
    87!
    98! Former revisions:
    109! -----------------
    1110! $Id$
     11!
     12! 220 2008-12-18 07:00:36Z raasch
     13! Former file user_interface.f90 split into one file per subroutine,
     14! revision history cleaned up
    1215!
    1316! 159 2008-04-09 08:06:03Z raasch
  • palm/trunk/SOURCE/user_parin.f90

    r217 r226  
    44! Actual revisions:
    55! -----------------
    6 ! +topography_grid_convention
    7 ! Former file user_interface.f90 split into one file per subroutine
     6!
    87!
    98! Former revisions:
    109! -----------------
    1110! $Id$
     11!
     12! 217 2008-12-09 18:00:48Z letzel
     13! +topography_grid_convention
     14! Former file user_interface.f90 split into one file per subroutine
    1215!
    1316! Description:
  • palm/trunk/SOURCE/user_particle_attributes.f90

    r211 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Former file user_interface.f90 split into one file per subroutine
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 211 2008-11-11 04:46:24Z raasch
     13! Former file user_interface.f90 split into one file per subroutine
    1114!
    1215! Description:
  • palm/trunk/SOURCE/user_read_restart_data.f90

    r220 r226  
    77! Actual revisions:
    88! -----------------
    9 ! reading mechanism revised (subdomain/total domain size can vary arbitrarily
    10 ! between current and previous run),
    11 ! former file user_interface.f90 split into one file per subroutine
     9!
    1210!
    1311! Former revisions:
    1412! -----------------
    1513! $Id$
     14!
     15! 220 2008-12-18 07:00:36Z raasch
     16! reading mechanism revised (subdomain/total domain size can vary arbitrarily
     17! between current and previous run),
     18! former file user_interface.f90 split into one file per subroutine
    1619!
    1720! Description:
  • palm/trunk/SOURCE/user_spectra.f90

    r211 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Former file user_interface.f90 split into one file per subroutine
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 211 2008-11-11 04:46:24Z raasch
     13! Former file user_interface.f90 split into one file per subroutine
    1114!
    1215! Description:
  • palm/trunk/SOURCE/user_statistics.f90

    r211 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Former file user_interface.f90 split into one file per subroutine
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 211 2008-11-11 04:46:24Z raasch
     13! Former file user_interface.f90 split into one file per subroutine
    1114!
    1215! Description:
  • palm/trunk/UTIL/combine_plot_fields.f90

    r210 r226  
    44! Actual revisions:
    55! -----------------
     6!
     7!
     8! Former revisions:
     9! -----------------
     10! $Id$
     11!
     12! 210 2008-11-06 08:54:02Z raasch
    613! Size of pf3d adjusted to the required output size (1 gridpoint less, along
    714! all three dimensions), because output of a subset of the data
     
    1118! avoid INTEL compiler warnings about (automatic) creation of temporary arrays
    1219! Bugfix: three misplaced #endif directives
    13 !
    14 ! Former revisions:
    15 ! -----------------
    16 ! $Id$
    1720!
    1821! 114 2007-10-10 00:03:15Z raasch
Note: See TracChangeset for help on using the changeset viewer.