Home


About us
PALM
PALM-4U
Installation
Release notes
Documentation
Getting Help
Gallery
Developers area

Changeset 226 for palm/trunk/SOURCE


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

preparations for the next release

Location:
palm/trunk/SOURCE
Files:
54 edited
1 moved

Legend:

Unmodified
Added
Removed

  • 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:
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |