Index: /palm/trunk/DOC/tec/technical_documentation.html
===================================================================
--- /palm/trunk/DOC/tec/technical_documentation.html	(revision 225)
+++ /palm/trunk/DOC/tec/technical_documentation.html	(revision 226)
@@ -12,5 +12,5 @@
 <br><table nosave="" cellpadding="0" cellspacing="0"> <caption>&nbsp; <br> </caption><tbody>
 </tbody><tbody> </tbody> <tbody> <tr nosave=""> <td nosave=""><b>Current
-model version:</b></td> <td><span style="font-weight: bold;">3.5</span></td> </tr>
+model version:</b></td> <td><span style="font-weight: bold;">3.6</span></td> </tr>
 <tr nosave=""> <td nosave=""><b>Last
 change of this document</b>:&nbsp;</td> <td nosave=""><b>$Id$</b></td> </tr>
@@ -2434,5 +2434,40 @@
 init_3d_model, init_dvrp, local_stop, plant_canopy_model, poismg,
 prandtl_fluxes, pres, read_3d_binary, user_interface, wall_fluxes,
-write_3d_binary<br></td></tr>
+write_3d_binary<br></td></tr><tr><td style="vertical-align: top;">02/02/09</td><td style="vertical-align: top;">SR</td><td style="vertical-align: top;">3.6</td><td style="vertical-align: top;">N</td><td style="vertical-align: top;">This
+release contains further additions, changes, and bugfixes for the
+SGI-ICE system, as well as important changes like the splitting of the
+user-interface into single files, a complete revision of the
+pre-compiling mechanism allowing to use different make-depositories
+simultaneously, and a revision of the reading-mechanism from restart
+files, which has no more restrictions in case that the previous and
+current run have different domain/subdomain sizes. A new handling of
+all kind of output messages is introduced with this release and will be
+applied to all existing messages within the next releases.<br><br><span style="font-weight: bold;">New features are:</span><br style="font-weight: bold;"><br>Restart runs on SGI-ICE are working. (mrun)<br>2d-decomposition is default on SGI-ICE systems. (init_pegrid)<br><br>Ocean-atmosphere coupling realized with MPI-1. mrun adjusted for this case (-Y option). Check that PALM is called with <span style="font-family: Courier New,Courier,monospace;">mrun</span>-option "<span style="font-style: italic;">-K parallel</span>" for coupling. Adjustments in <span style="font-family: Courier New,Courier,monospace;">mrun</span>, <span style="font-family: Courier New,Courier,monospace;">mbuild</span>, and <span style="font-family: Courier New,Courier,monospace;">subjob</span> for lcxt4.<br><br>DVRP arguments changed to single precision, mode pathlines added.<br><br>User can add additional routines in files <span style="font-family: Courier New,Courier,monospace;">user_additional_routines</span>.<br><br>User can check user parameters and deduce further quantities in <span style="font-family: Courier New,Courier,monospace;">user_check_parameters</span>.</td><td style="vertical-align: top;">check_for_restart,
+check_parameters, data_output_dvrp, init_dvrp, init_pegrid, local_stop,
+modules, package_parin, palm, surface_coupler, timestep<br><br>Makefile,&nbsp;mbuild, mrun, subjob<br><br><span style="font-weight: bold;">new:</span><br>init_coupling, user_additional_routines, user_check_parameters</td></tr><tr><td style="vertical-align: top;">&nbsp;</td><td style="vertical-align: top;">&nbsp;</td><td style="vertical-align: top;">&nbsp;</td><td style="vertical-align: top;">C</td><td style="vertical-align: top;">&nbsp;User interface has been split into single files.<br><br>Type of variables <span style="font-family: Courier New,Courier,monospace;">count</span> and <span style="font-family: Courier New,Courier,monospace;">count_rate</span>
+changed to INTEGER(8) in order to avoid "out of range" problems, which
+result in measured negative time intervals. (cpu_log, local_tremain,
+local_tremain_ini)<br><br>Reading mechanism from restart files
+completely revised. The subdomain/total domain size is now allowed to
+vary arbitrarily between the current and previous run. (read_var_list,
+read_3d_binary, user_read_restart_data)<br><br>Precompilation mechanism (<span style="font-family: Courier New,Courier,monospace;">mbuild</span>) completely revised: the source-tarfile remains in the source directory (<span style="font-family: Courier New,Courier,monospace;">trunk/SOURCE</span>).
+One depository per block (given in the config-file) is created. Always
+all files from the source directory are copied to the respective
+depository. No additional file checks are done any more (mrun version
+2.1). The depository name used contains the conditions given by <span style="font-family: Courier New,Courier,monospace;">mrun</span>-option "<span style="font-family: Courier New,Courier,monospace;">-K</span>". (mbuild, mrun)<br><br>Output messages (including required stop of execution) can now be handled with the new subroutine&nbsp;<span style="font-family: Courier New,Courier,monospace;">message</span>. All output messages will be replaced by this routine step by step within the next revisions.<br><br>Neumann boundary condition at <span style="font-family: Courier New,Courier,monospace;">k=nzb</span> is explicitly set for better reading, although this has been already done in boundary_conds. (advec_s_bc)<br><br>Origin of the xy-coordinate system shifted from the center of the first grid cell (indices <span style="font-family: Courier New,Courier,monospace;">i=0</span>, <span style="font-family: Courier New,Courier,monospace;">j=0</span>) to the south-left corner of this cell. (netcdf) Topography definition according to new user parameter <span style="font-family: Courier New,Courier,monospace;">topography_grid_convention</span>. (init_grid, modules, user_header, user_init_grid, user_parin)</td><td style="vertical-align: top;">advec_s_bc,
+check_parameters, cpu_log, init_grid, local_stop, local_tremain,
+local_tremain_ini, modules, netcdf, read_3d_binary, read_var_list,
+user_read_restart_data<br><br>Makefile, mbuild, mrun<br><br><span style="font-weight: bold;">removed:</span><br>user_interface<br><br><span style="font-weight: bold;">new:</span><br>message,
+user_3d_data_averaging, user_actions, user_advec_particles,
+user_check_data_output, user_check_data_output_pr, user_data_output_2d,
+user_data_output_3d, user_data_output_dvrp, user_define_netcdf_grid,
+user_dvrp_coltab, user_header, user_init_3d_model, user_init,
+user_init_grid, user_init_particles, user_init_plant_canopy, user_last_actions, user_parin, user_parin, user_particle_attributes, user_read_restart_data, user_spectra, user_statistics</td></tr><tr><td style="vertical-align: top;">&nbsp;</td><td style="vertical-align: top;">&nbsp;</td><td style="vertical-align: top;">&nbsp;</td><td style="vertical-align: top;">E</td><td style="vertical-align: top;">&nbsp;Bugfix: array <span style="font-family: Courier New,Courier,monospace;">d</span> is reallocated in case that multigrid is used. (calc_spectra)<br><br>Bugfixes for nonparallel execution. (check_for_restart, cpu_statistics, inflow_turbulence,&nbsp;timestep)<br><br>Size of <span style="font-family: Courier New,Courier,monospace;">pf3d </span>adjusted to the required output size (1 gridpoint less, along all three dimensions), because output of a subset of the data (<span style="font-family: Courier New,Courier,monospace;">pf3d(nxa:nxe...)</span>) in the NF90_PUT_VAR statement caused segmentation fault with the INTEL compiler. (combine_plot_fields)<br><br>Bugfix: error in <span style="font-family: Courier New,Courier,monospace;">zu</span> index in case of <span style="font-family: Courier New,Courier,monospace;">section_xy=-1</span>. (header)<br><br>Inconsistency
+removed: as the thermal stratification is not taken into account for
+the evaluation of the wall fluxes at vertical walls, the eddy viscosity
+<span style="font-family: Courier New,Courier,monospace;">km</span> must not be used for the evaluation of the velocity gradients <span style="font-family: Courier New,Courier,monospace;">dudy</span>, <span style="font-family: Courier New,Courier,monospace;">dwdy</span>, <span style="font-family: Courier New,Courier,monospace;">dvdx</span> and <span style="font-family: Courier New,Courier,monospace;">dwdx</span>. (production_e)<br><br>Bugfix in calculating <span style="font-family: Courier New,Courier,monospace;">k</span> index in case of oceans runs. (sort_particles)<br><br>Bugfix: no output of particle concentration and radius unless particles have been started. (data_output_2d)<br><br>Bugfix: reading of <span style="font-family: Courier New,Courier,monospace;">spectrum_x|y</span> from restart files ignored if total numbers of grid points do not match. (read_3d_binary)<br><br>Bugfix: abort in case that absolute temperature is below zero. (init_cloud_physics)</td><td style="vertical-align: top;">advec_particles,
+calc_spectra, check_for_restart, cpu_statistics, data_output_2d,
+header, inflow_turbulence, init_cloud_physics, production_e,
+read_3d_binary, timestep<br><br>combine_plot_fields</td></tr>
 </tbody>
 </table>&nbsp;<b><blink>Attention:</blink></b>
Index: /palm/trunk/SOURCE/Makefile
===================================================================
--- /palm/trunk/SOURCE/Makefile	(revision 225)
+++ /palm/trunk/SOURCE/Makefile	(revision 226)
@@ -4,10 +4,13 @@
 # Actual revisions:
 # -----------------
-# former file user_interface split into one file per subroutine
-# +init_coupling, handle_palm_message
+# 
 #
 # Former revisions:
 # -----------------
 # $Id$
+#
+# 217 2008-12-09 18:00:48Z letzel
+# former file user_interface split into one file per subroutine
+# +init_coupling, message
 #
 # 151 2008-03-07 13:42:18Z raasch
@@ -58,13 +61,13 @@
 	disturb_heatflux.f90 eqn_state_seawater.f90 exchange_horiz.f90 exchange_horiz_2d.f90 \
 	fft_xy.f90 flow_statistics.f90 global_min_max.f90 \
-	handle_palm_message.f90 header.f90 \
-	impact_of_latent_heat.f90 inflow_turbulence.f90 init_1d_model.f90 \
-	init_3d_model.f90 init_advec.f90 init_cloud_physics.f90 init_coupling.f90 \
-	init_dvrp.f90 init_grid.f90 init_ocean.f90 init_particles.f90 init_pegrid.f90 \
+	header.f90 impact_of_latent_heat.f90 inflow_turbulence.f90 \
+	init_1d_model.f90 init_3d_model.f90 init_advec.f90 \
+	init_cloud_physics.f90 init_coupling.f90 init_dvrp.f90 init_grid.f90 \
+	init_ocean.f90 init_particles.f90 init_pegrid.f90 \
 	init_pt_anomaly.f90 init_rankine.f90 init_slope.f90 \
 	interaction_droplets_ptq.f90 local_flush.f90 local_getenv.f90 \
 	local_stop.f90 local_system.f90 local_tremain.f90 \
-	local_tremain_ini.f90 modules.f90 netcdf.f90 package_parin.f90 \
-	palm.f90 parin.f90 particle_boundary_conds.f90 \
+	local_tremain_ini.f90 message.f90 modules.f90 netcdf.f90 \
+	package_parin.f90 palm.f90 parin.f90 particle_boundary_conds.f90 \
         plant_canopy_model.f90 poisfft.f90 \
 	poisfft_hybrid.f90 poismg.f90 prandtl_fluxes.f90 pres.f90 print_1d.f90 \
@@ -100,12 +103,11 @@
 	diffusion_v.o diffusion_w.o diffusivities.o disturb_field.o \
 	disturb_heatflux.o eqn_state_seawater.o exchange_horiz.o exchange_horiz_2d.o fft_xy.o \
-	flow_statistics.o global_min_max.o handle_palm_message.o header.o \
-	impact_of_latent_heat.o \
+	flow_statistics.o global_min_max.o header.o impact_of_latent_heat.o \
 	inflow_turbulence.o init_1d_model.o init_3d_model.o init_advec.o init_cloud_physics.o \
 	init_coupling.o init_dvrp.o init_grid.o init_ocean.o init_particles.o init_pegrid.o \
 	init_pt_anomaly.o init_rankine.o init_slope.o \
 	interaction_droplets_ptq.o local_flush.o local_getenv.o local_stop.o \
-	local_system.o local_tremain.o local_tremain_ini.o modules.o netcdf.o \
-	package_parin.o palm.o parin.o particle_boundary_conds.o \
+	local_system.o local_tremain.o local_tremain_ini.o message.o modules.o \
+	netcdf.o package_parin.o palm.o parin.o particle_boundary_conds.o \
         plant_canopy_model.o poisfft.o \
 	poisfft_hybrid.o poismg.o prandtl_fluxes.o pres.o print_1d.o \
@@ -204,5 +206,4 @@
 flow_statistics.o: modules.o
 global_min_max.o: modules.o
-handle_palm_message.o: modules.o
 header.o: modules.o
 impact_of_latent_heat.o: modules.o
@@ -226,4 +227,5 @@
 local_tremain.o: modules.o
 local_tremain_ini.o: modules.o
+message.o: modules.o
 modules.o: modules.f90
 netcdf.o: modules.o
Index: /palm/trunk/SOURCE/advec_particles.f90
===================================================================
--- /palm/trunk/SOURCE/advec_particles.f90	(revision 225)
+++ /palm/trunk/SOURCE/advec_particles.f90	(revision 226)
@@ -4,5 +4,4 @@
 ! Actual revisions:
 ! -----------------
-! Bugfix in calculating k index in case of oceans runs (sort_particles)
 ! TEST: PRINT statements on unit 9 (commented out)
 !
@@ -10,4 +9,7 @@
 ! -----------------
 ! $Id$
+!
+! 212 2008-11-11 09:09:24Z raasch
+! Bugfix in calculating k index in case of oceans runs (sort_particles)
 !
 ! 150 2008-02-29 08:19:58Z raasch
Index: /palm/trunk/SOURCE/advec_s_bc.f90
===================================================================
--- /palm/trunk/SOURCE/advec_s_bc.f90	(revision 225)
+++ /palm/trunk/SOURCE/advec_s_bc.f90	(revision 226)
@@ -4,10 +4,13 @@
 ! Actual revisions:
 ! -----------------
-! Neumann boundary condition at k=nzb is explicitly set for better reading,
-! although this has been already done in boundary_conds
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 216 2008-11-25 07:12:43Z raasch
+! Neumann boundary condition at k=nzb is explicitly set for better reading,
+! although this has been already done in boundary_conds
 !
 ! 97 2007-06-21 08:23:15Z raasch
Index: /palm/trunk/SOURCE/calc_spectra.f90
===================================================================
--- /palm/trunk/SOURCE/calc_spectra.f90	(revision 225)
+++ /palm/trunk/SOURCE/calc_spectra.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Bugfix: array d is reallocated in case that multigrid is used
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 225 2009-01-26 14:44:20Z raasch
+! Bugfix: array d is reallocated in case that multigrid is used
 !
 ! 192 2008-08-27 16:51:49Z letzel
Index: /palm/trunk/SOURCE/check_for_restart.f90
===================================================================
--- /palm/trunk/SOURCE/check_for_restart.f90	(revision 225)
+++ /palm/trunk/SOURCE/check_for_restart.f90	(revision 226)
@@ -4,10 +4,13 @@
 ! Actual revisions:
 ! -----------------
-! Implementation of an MPI-1 coupling: replaced myid with target_id
-! Bugfix for nonparallel execution
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 222 2009-01-12 16:04:16Z letzel
+! Implementation of an MPI-1 coupling: replaced myid with target_id
+! Bugfix for nonparallel execution
 !
 ! 108 2007-08-24 15:10:38Z letzel
Index: /palm/trunk/SOURCE/check_parameters.f90
===================================================================
--- /palm/trunk/SOURCE/check_parameters.f90	(revision 225)
+++ /palm/trunk/SOURCE/check_parameters.f90	(revision 226)
@@ -4,4 +4,11 @@
 ! Actual revisions:
 ! -----------------
+! 
+!
+! Former revisions:
+! -----------------
+! $Id$
+!
+! 222 2009-01-12 16:04:16Z letzel
 ! +user_check_parameters
 ! Output of messages replaced by message handling routine.
@@ -9,8 +16,4 @@
 ! deleted __mpi2 directives
 ! Check that PALM is called with mrun -K parallel for coupling
-!
-! Former revisions:
-! -----------------
-! $Id$
 !
 ! 197 2008-09-16 15:29:03Z raasch
@@ -114,5 +117,5 @@
        message_string = '"host" is not set. Please check that environment ' // &
                         'variable "localhost" & is set before running PALM'
-       CALL handle_palm_message( 'check_parameters', 'PA0001', 0, 0, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0001', 0, 0, 0, 6, 0 )
     ENDIF
 
@@ -123,5 +126,5 @@
          coupling_mode /= 'ocean_to_atmosphere' )  THEN
        message_string = 'illegal coupling mode: ' // TRIM( coupling_mode )
-       CALL handle_palm_message( 'check_parameters', 'PA0002', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0002', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -133,6 +136,5 @@
           message_string = 'dt_coupling is not set but required for coup' // &
                            'ling mode "' //  TRIM( coupling_mode ) // '"'
-          CALL handle_palm_message( 'check_parameters', 'PA0003', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0003', 1, 2, 0, 6, 0 )
        ENDIF
 
@@ -146,6 +148,5 @@
                  '": dt_coupling = ', dt_coupling, '& is not equal to ',       &
                  'dt_coupling_remote = ', remote
-          CALL handle_palm_message( 'check_parameters', 'PA0004', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0004', 1, 2, 0, 6, 0 )
        ENDIF
        IF ( dt_coupling <= 0.0 )  THEN
@@ -157,6 +158,5 @@
                  '": dt_coupling <= 0.0 & is not allowed and is reset to ',    &
                  'MAX(dt_max(A,O)) = ', dt_coupling
-          CALL handle_palm_message( 'check_parameters', 'PA0005', 0, 1, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0005', 0, 1, 0, 6, 0 )
        ENDIF
 
@@ -169,6 +169,5 @@
                  '": restart_time = ', restart_time, '& is not equal to ',     &
                  'restart_time_remote = ', remote
-          CALL handle_palm_message( 'check_parameters', 'PA0006', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0006', 1, 2, 0, 6, 0 )
        ENDIF
 
@@ -181,6 +180,5 @@
                  '": dt_restart = ', dt_restart, '& is not equal to ',         &
                  'dt_restart_remote = ', remote
-          CALL handle_palm_message( 'check_parameters', 'PA0007', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0007', 1, 2, 0, 6, 0 )
        ENDIF
 
@@ -192,6 +190,5 @@
                  '": end_time = ', end_time, '& is not equal to ',             &
                  'end_time_remote = ', remote
-          CALL handle_palm_message( 'check_parameters', 'PA0008', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0008', 1, 2, 0, 6, 0 )
        ENDIF
 
@@ -202,6 +199,5 @@
           WRITE( message_string, * ) 'coupling mode "', TRIM( coupling_mode ), &
                  '":  dx = ', dx, '& is not equal to dx_remote = ', remote
-          CALL handle_palm_message( 'check_parameters', 'PA0009', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0009', 1, 2, 0, 6, 0 )
        ENDIF
 
@@ -212,6 +208,5 @@
           WRITE( message_string, * ) 'coupling mode "', TRIM( coupling_mode ), &
                  '":  dy = ', dy, '& is not equal to dy_remote = ', remote
-          CALL handle_palm_message( 'check_parameters', 'PA0010', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0010', 1, 2, 0, 6, 0 )
        ENDIF
 
@@ -222,6 +217,5 @@
           WRITE( message_string, * ) 'coupling mode "', TRIM( coupling_mode ), &
                  '": nx = ', nx, '& is not equal to nx_remote = ', iremote
-          CALL handle_palm_message( 'check_parameters', 'PA0011', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0011', 1, 2, 0, 6, 0 )
        ENDIF
 
@@ -232,11 +226,10 @@
           WRITE( message_string, * ) 'coupling mode "', TRIM( coupling_mode ), &
                  '": ny = ', ny, '& is not equal to ny_remote = ', iremote
-          CALL handle_palm_message( 'check_parameters', 'PA0012', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0012', 1, 2, 0, 6, 0 )
        ENDIF
 #else
        WRITE( message_string, * ) 'coupling requires PALM to be called with', &
             ' ''mrun -K parallel'''
-       CALL handle_palm_message( 'check_parameters', 'PA0141', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0141', 1, 2, 0, 6, 0 )
 #endif
     ENDIF
@@ -288,5 +281,5 @@
        message_string = 'illegal value given for loop_optimization: "' // &
                         TRIM( loop_optimization ) // '"'
-       CALL handle_palm_message( 'check_parameters', 'PA0013', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0013', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -328,6 +321,5 @@
           message_string = 'a non-flat topography does not allow ' // &
                            TRIM( action )
-          CALL handle_palm_message( 'check_parameters', 'PA0014', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0014', 1, 2, 0, 6, 0 )
        ENDIF
     ENDIF
@@ -345,6 +337,5 @@
        IF ( action /= ' ' )  THEN
           message_string = 'ocean = .T. does not allow ' // TRIM( action )
-          CALL handle_palm_message( 'check_parameters', 'PA0015', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0015', 1, 2, 0, 6, 0 )
        ENDIF
     ENDIF
@@ -357,5 +348,5 @@
        message_string = 'unknown solver for perturbation pressure: psolver' // &
                         ' = "' // TRIM( psolver ) // '"'
-       CALL handle_palm_message( 'check_parameters', 'PA0016', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0016', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -365,5 +356,5 @@
                         'for a 1d domain-decomposition along x & please do' // &
                         ' not set npey/=1 in the parameter file'
-       CALL handle_palm_message( 'check_parameters', 'PA0017', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0017', 1, 2, 0, 6, 0 )
     ENDIF
     IF ( psolver == 'poisfft_hybrid'  .AND.                     &
@@ -374,5 +365,5 @@
                         'work for subdomains with unequal size & please ' // &
                         'set grid_matching = ''strict'' in the parameter file'
-       CALL handle_palm_message( 'check_parameters', 'PA0018', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0018', 1, 2, 0, 6, 0 )
     ENDIF
 #else
@@ -380,5 +371,5 @@
        message_string = 'psolver = "' // TRIM( psolver ) // '" only works' // &
                         ' for a parallel environment'
-       CALL handle_palm_message( 'check_parameters', 'PA0019', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0019', 1, 2, 0, 6, 0 )
     ENDIF
 #endif
@@ -392,6 +383,5 @@
           message_string = 'unknown multigrid cycle: cycle_mg = "' // &
                            TRIM( cycle_mg ) // '"'
-          CALL handle_palm_message( 'check_parameters', 'PA0020', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0020', 1, 2, 0, 6, 0 )
        ENDIF
     ENDIF
@@ -402,5 +392,5 @@
        message_string = 'unknown fft-algorithm: fft_method = "' // &
                         TRIM( fft_method ) // '"'
-       CALL handle_palm_message( 'check_parameters', 'PA0021', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0021', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -411,5 +401,5 @@
        message_string = 'unknown advection scheme: momentum_advec = "' // &
                         TRIM( momentum_advec ) // '"'
-       CALL handle_palm_message( 'check_parameters', 'PA0022', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0022', 1, 2, 0, 6, 0 )
     ENDIF
     IF ( ( momentum_advec == 'ups-scheme'  .OR.  scalar_advec == 'ups-scheme' )&
@@ -418,5 +408,5 @@
                         '" is not allowed with timestep_scheme = "' //    &
                         TRIM( timestep_scheme ) // '"'
-       CALL handle_palm_message( 'check_parameters', 'PA0023', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0023', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -425,5 +415,5 @@
        message_string = 'unknown advection scheme: scalar_advec = "' // &
                         TRIM( scalar_advec ) // '"'
-       CALL handle_palm_message( 'check_parameters', 'PA0024', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0024', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -432,5 +422,5 @@
        message_string = 'use_upstream_for_tke set .TRUE. because ' // &
                         'use_sgs_for_particles = .TRUE.'
-       CALL handle_palm_message( 'check_parameters', 'PA0025', 0, 1, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0025', 0, 1, 0, 6, 0 )
     ENDIF
 
@@ -438,5 +428,5 @@
        message_string = 'use_upstream_for_tke = .TRUE. not allowed with ' // &
                         'timestep_scheme = "' // TRIM( timestep_scheme ) // '"'
-       CALL handle_palm_message( 'check_parameters', 'PA0026', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0026', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -463,6 +453,5 @@
           message_string = 'unknown timestep scheme: timestep_scheme = "' // &
                            TRIM( timestep_scheme ) // '"'
-          CALL handle_palm_message( 'check_parameters', 'PA0027', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0027', 1, 2, 0, 6, 0 )
 
     END SELECT
@@ -473,5 +462,5 @@
                         '" & does not work with timestep_scheme "' // &
                         TRIM( timestep_scheme ) // '"'
-       CALL handle_palm_message( 'check_parameters', 'PA0028', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0028', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -481,5 +470,5 @@
                         TRIM( momentum_advec ) // '" & does not work with ' // &
                         'timestep_scheme "' // TRIM( timestep_scheme ) // '"'
-       CALL handle_palm_message( 'check_parameters', 'PA0029', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0029', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -500,6 +489,5 @@
                 message_string = 'initializing_action = "' // &
                                  TRIM( action ) // '" unkown or not allowed'
-                CALL handle_palm_message( 'check_parameters', 'PA0030', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0030', 1, 2, 0, 6, 0 )
 
           END SELECT
@@ -512,5 +500,5 @@
                         ' and "set_1d-model_profiles" are not allowed ' //  &
                         'simultaneously'
-       CALL handle_palm_message( 'check_parameters', 'PA0031', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0031', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -519,5 +507,5 @@
        message_string = 'initializing_actions = "set_constant_profiles"' // &
                         ' and "by_user" are not allowed simultaneously'
-       CALL handle_palm_message( 'check_parameters', 'PA0032', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0032', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -526,5 +514,5 @@
        message_string = 'initializing_actions = "by_user" and ' // &
                         '"set_1d-model_profiles" are not allowed simultaneously'
-       CALL handle_palm_message( 'check_parameters', 'PA0033', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0033', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -532,5 +520,5 @@
        WRITE( message_string, * ) 'cloud_physics = ', cloud_physics, ' is ', &
               'not allowed with humidity = ', humidity
-       CALL handle_palm_message( 'check_parameters', 'PA0034', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0034', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -538,5 +526,5 @@
        WRITE( message_string, * ) 'precipitation = ', precipitation, ' is ', &
               'not allowed with cloud_physics = ', cloud_physics
-       CALL handle_palm_message( 'check_parameters', 'PA0035', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0035', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -544,10 +532,10 @@
        message_string = 'humidity = .TRUE. and sloping_surface = .TRUE. ' // &
                         'are not allowed simultaneously'
-       CALL handle_palm_message( 'check_parameters', 'PA0036', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0036', 1, 2, 0, 6, 0 )
     ENDIF
 
     IF ( humidity  .AND.  scalar_advec == 'ups-scheme' )  THEN
        message_string = 'UPS-scheme is not implemented for humidity = .TRUE.'
-       CALL handle_palm_message( 'check_parameters', 'PA0037', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0037', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -555,5 +543,5 @@
        message_string = 'humidity = .TRUE. and passive_scalar = .TRUE. ' // &
                         'is not allowed simultaneously'
-       CALL handle_palm_message( 'check_parameters', 'PA0038', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0038', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -561,5 +549,5 @@
        message_string = 'UPS-scheme is not implemented for passive_scalar' // &
                         ' = .TRUE.'
-       CALL handle_palm_message( 'check_parameters', 'PA0039', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0039', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -567,5 +555,5 @@
        message_string = 'illegal value "' // TRIM( grid_matching ) // &
                         '" found for parameter grid_matching'
-       CALL handle_palm_message( 'check_parameters', 'PA0040', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0040', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -573,5 +561,5 @@
        message_string = 'plant_canopy = .TRUE. requires a non-zero drag ' // &
                         'coefficient & given value is drag_coefficient = 0.0'
-       CALL handle_palm_message( 'check_parameters', 'PA0041', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0041', 1, 2, 0, 6, 0 )
     ENDIF 
 
@@ -945,5 +933,5 @@
     IF ( ocean .AND. .NOT. use_top_fluxes )  THEN
        message_string = 'use_top_fluxes must be .TRUE. in ocean version'
-       CALL handle_palm_message( 'check_parameters', 'PA0042', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0042', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -954,6 +942,5 @@
           WRITE( message_string, * ) 'ABS( alpha_surface = ', alpha_surface, &
                                      ' ) must be < 90.0'
-          CALL handle_palm_message( 'check_parameters', 'PA0043', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0043', 1, 2, 0, 6, 0 )
        ENDIF
        sloping_surface = .TRUE.
@@ -967,6 +954,5 @@
        IF ( dt <= 0.0  .AND.  dt /= -1.0 )  THEN
           WRITE( message_string, * ) 'dt = ', dt , ' <= 0.0'
-          CALL handle_palm_message( 'check_parameters', 'PA0044', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0044', 1, 2, 0, 6, 0 )
        ENDIF
        dt_3d = dt
@@ -991,6 +977,5 @@
           WRITE( message_string, * ) 'cfl_factor = ', cfl_factor, &
                  ' out of range & 0.0 < cfl_factor <= 1.0 is required'
-          CALL handle_palm_message( 'check_parameters', 'PA0045', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0045', 1, 2, 0, 6, 0 )
        ENDIF
     ENDIF
@@ -1012,18 +997,15 @@
           message_string = 'baroclinicity (ug) not allowed simultaneously' // &
                            ' with galilei transformation'
-          CALL handle_palm_message( 'check_parameters', 'PA0046', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0046', 1, 2, 0, 6, 0 )
        ELSEIF ( use_ug_for_galilei_tr .AND.                &
                 vg_vertical_gradient_level(1) /= 0.0 )  THEN
           message_string = 'baroclinicity (vg) not allowed simultaneously' // &
                            ' with galilei transformation'
-          CALL handle_palm_message( 'check_parameters', 'PA0047', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0047', 1, 2, 0, 6, 0 )
        ELSE
           message_string = 'variable translation speed used for galilei-' // &
              'transformation, which may cause & instabilities in stably ' // &
              'stratified regions'
-          CALL handle_palm_message( 'check_parameters', 'PA0048', 0, 1, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0048', 0, 1, 0, 6, 0 )
        ENDIF
     ENDIF
@@ -1041,5 +1023,5 @@
        message_string = 'unknown boundary condition: bc_lr = "' // &
                         TRIM( bc_lr ) // '"'
-       CALL handle_palm_message( 'check_parameters', 'PA0049', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0049', 1, 2, 0, 6, 0 )
     ENDIF
     IF ( bc_ns /= 'cyclic'  .AND.  bc_ns /= 'dirichlet/radiation'  .AND. &
@@ -1047,5 +1029,5 @@
        message_string = 'unknown boundary condition: bc_ns = "' // &
                         TRIM( bc_ns ) // '"'
-       CALL handle_palm_message( 'check_parameters', 'PA0050', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0050', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -1058,24 +1040,20 @@
           message_string = 'non-cyclic lateral boundaries do not allow ' // &
                            'psolver = "' // TRIM( psolver ) // '"'
-          CALL handle_palm_message( 'check_parameters', 'PA0051', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0051', 1, 2, 0, 6, 0 )
        ENDIF
        IF ( momentum_advec /= 'pw-scheme' )  THEN
           message_string = 'non-cyclic lateral boundaries do not allow ' // &
                            'momentum_advec = "' // TRIM( momentum_advec ) // '"'
-          CALL handle_palm_message( 'check_parameters', 'PA0052', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0052', 1, 2, 0, 6, 0 )
        ENDIF
        IF ( scalar_advec /= 'pw-scheme' )  THEN
           message_string = 'non-cyclic lateral boundaries do not allow ' // &
                            'scalar_advec = "' // TRIM( scalar_advec ) // '"'
-          CALL handle_palm_message( 'check_parameters', 'PA0053', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0053', 1, 2, 0, 6, 0 )
        ENDIF
        IF ( galilei_transformation )  THEN
           message_string = 'non-cyclic lateral boundaries do not allow ' // &
                            'galilei_transformation = .T.'
-          CALL handle_palm_message( 'check_parameters', 'PA0054', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0054', 1, 2, 0, 6, 0 )
        ENDIF
     ENDIF
@@ -1087,6 +1065,5 @@
        IF ( adjust_mixing_length  .AND.  prandtl_layer )  THEN
           message_string = 'adjust_mixing_length = TRUE and bc_e_b = "neumann"'
-          CALL handle_palm_message( 'check_parameters', 'PA0055', 0, 1, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0055', 0, 1, 0, 6, 0 )
        ENDIF
     ELSEIF ( bc_e_b == '(u*)**2+neumann' )  THEN
@@ -1095,6 +1072,5 @@
           message_string = 'adjust_mixing_length = FALSE and bc_e_b = "' // &
                            TRIM( bc_e_b ) // '"'
-          CALL handle_palm_message( 'check_parameters', 'PA0056', 0, 1, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0056', 0, 1, 0, 6, 0 )
        ENDIF
        IF ( .NOT. prandtl_layer )  THEN
@@ -1103,11 +1079,10 @@
           message_string = 'boundary condition bc_e_b changed to "' // &
                            TRIM( bc_e_b ) // '"'
-          CALL handle_palm_message( 'check_parameters', 'PA0057', 0, 1, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0057', 0, 1, 0, 6, 0 )
        ENDIF
     ELSE
        message_string = 'unknown boundary condition: bc_e_b = "' // &
                         TRIM( bc_e_b ) // '"'
-       CALL handle_palm_message( 'check_parameters', 'PA0058', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0058', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -1123,10 +1098,10 @@
        message_string = 'unknown boundary condition: bc_p_b = "' // &
                         TRIM( bc_p_b ) // '"'
-       CALL handle_palm_message( 'check_parameters', 'PA0059', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0059', 1, 2, 0, 6, 0 )
     ENDIF
     IF ( ibc_p_b == 2  .AND.  .NOT. prandtl_layer )  THEN
        message_string = 'boundary condition: bc_p_b = "' // TRIM( bc_p_b ) // &
                         '" not allowed with prandtl_layer = .FALSE.'
-       CALL handle_palm_message( 'check_parameters', 'PA0060', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0060', 1, 2, 0, 6, 0 )
     ENDIF
     IF ( bc_p_t == 'dirichlet' )  THEN
@@ -1137,5 +1112,5 @@
        message_string = 'unknown boundary condition: bc_p_t = "' // &
                         TRIM( bc_p_t ) // '"'
-       CALL handle_palm_message( 'check_parameters', 'PA0061', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0061', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -1152,6 +1127,5 @@
           message_string = 'unknown boundary condition: bc_pt_b = "' // &
                            TRIM( bc_pt_b ) // '"'
-          CALL handle_palm_message( 'check_parameters', 'PA0062', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0062', 1, 2, 0, 6, 0 )
        ENDIF
     ENDIF
@@ -1166,5 +1140,5 @@
        message_string = 'unknown boundary condition: bc_pt_t = "' // &
                         TRIM( bc_pt_t ) // '"'
-       CALL handle_palm_message( 'check_parameters', 'PA0063', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0063', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -1178,5 +1152,5 @@
        message_string = 'both, top_momentumflux_u AND top_momentumflux_v ' // &
                         'must be set'
-       CALL handle_palm_message( 'check_parameters', 'PA0064', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0064', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -1189,5 +1163,5 @@
        message_string = 'boundary_condition: bc_pt_b = "' // TRIM( bc_pt_b ) //&
                         '& is not allowed with constant_heatflux = .TRUE.'
-       CALL handle_palm_message( 'check_parameters', 'PA0065', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0065', 1, 2, 0, 6, 0 )
     ENDIF
     IF ( constant_heatflux  .AND.  pt_surface_initial_change /= 0.0 )  THEN
@@ -1195,5 +1169,5 @@
                'wed with pt_surface_initial_change (/=0) = ', &
                pt_surface_initial_change
-       CALL handle_palm_message( 'check_parameters', 'PA0066', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0066', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -1206,5 +1180,5 @@
        message_string = 'boundary_condition: bc_pt_t = "' // TRIM( bc_pt_t ) //&
                         '" is not allowed with constant_top_heatflux = .TRUE.'
-       CALL handle_palm_message( 'check_parameters', 'PA0067', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0067', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -1219,6 +1193,5 @@
           message_string = 'unknown boundary condition: bc_sa_t = "' // &
                            TRIM( bc_sa_t ) // '"'
-          CALL handle_palm_message( 'check_parameters', 'PA0068', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0068', 1, 2, 0, 6, 0 )
        ENDIF
 
@@ -1228,6 +1201,5 @@
                            TRIM( bc_sa_t ) // '" requires to set ' // &
                            'top_salinityflux'
-          CALL handle_palm_message( 'check_parameters', 'PA0069', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0069', 1, 2, 0, 6, 0 )
        ENDIF
 
@@ -1241,6 +1213,5 @@
                            TRIM( bc_sa_t ) // '" is not allowed with ' // &
                            'constant_top_salinityflux = .TRUE.'
-          CALL handle_palm_message( 'check_parameters', 'PA0070', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0070', 1, 2, 0, 6, 0 )
        ENDIF
 
@@ -1263,6 +1234,5 @@
           message_string = 'unknown boundary condition: bc_' // TRIM( sq ) // &
                            '_b ="' // TRIM( bc_q_b ) // '"'
-          CALL handle_palm_message( 'check_parameters', 'PA0071', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0071', 1, 2, 0, 6, 0 )
        ENDIF
        IF ( bc_q_t == 'dirichlet' )  THEN
@@ -1273,6 +1243,5 @@
           message_string = 'unknown boundary condition: bc_' // TRIM( sq ) // &
                            '_t ="' // TRIM( bc_q_t ) // '"'
-          CALL handle_palm_message( 'check_parameters', 'PA0072', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0072', 1, 2, 0, 6, 0 )
        ENDIF
 
@@ -1287,6 +1256,5 @@
                            '= "' // TRIM( bc_q_b ) // '" is not allowed wi' // &
                            'th prescribed surface flux'
-          CALL handle_palm_message( 'check_parameters', 'PA0073', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0073', 1, 2, 0, 6, 0 )
        ENDIF
        IF ( constant_waterflux  .AND.  q_surface_initial_change /= 0.0 )  THEN
@@ -1294,6 +1262,5 @@
                  'wed with ', sq, '_surface_initial_change (/=0) = ', &
                  q_surface_initial_change
-          CALL handle_palm_message( 'check_parameters', 'PA0074', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0074', 1, 2, 0, 6, 0 )
        ENDIF
        
@@ -1309,11 +1276,10 @@
           message_string = 'boundary condition: bc_uv_b = "' // &
                TRIM( bc_uv_b ) // '" is not allowed with prandtl_layer = .TRUE.'
-          CALL handle_palm_message( 'check_parameters', 'PA0075', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0075', 1, 2, 0, 6, 0 )
        ENDIF
     ELSE
        message_string = 'unknown boundary condition: bc_uv_b = "' // &
                         TRIM( bc_uv_b ) // '"'
-       CALL handle_palm_message( 'check_parameters', 'PA0076', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0076', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -1329,6 +1295,5 @@
           message_string = 'unknown boundary condition: bc_uv_t = "' // &
                            TRIM( bc_uv_t ) // '"'
-          CALL handle_palm_message( 'check_parameters', 'PA0077', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0077', 1, 2, 0, 6, 0 )
        ENDIF
     ENDIF
@@ -1347,6 +1312,5 @@
           WRITE( message_string, * )  'rayleigh_damping_factor = ', &
                               rayleigh_damping_factor, ' out of range [0.0,1.0]'
-          CALL handle_palm_message( 'check_parameters', 'PA0078', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0078', 1, 2, 0, 6, 0 )
        ENDIF
     ENDIF
@@ -1364,6 +1328,5 @@
              WRITE( message_string, * )  'rayleigh_damping_height = ', &
                    rayleigh_damping_height, ' out of range [0.0,', zu(nzt), ']'
-             CALL handle_palm_message( 'check_parameters', 'PA0079', 1, 2, 0, &
-                                       6, 0 )
+             CALL message( 'check_parameters', 'PA0079', 1, 2, 0, 6, 0 )
           ENDIF
        ELSE
@@ -1372,6 +1335,5 @@
              WRITE( message_string, * )  'rayleigh_damping_height = ', &
                    rayleigh_damping_height, ' out of range [0.0,', zu(nzb), ']'
-             CALL handle_palm_message( 'check_parameters', 'PA0079', 1, 2, 0, &
-                                       6, 0 )
+             CALL message( 'check_parameters', 'PA0079', 1, 2, 0, 6, 0 )
           ENDIF
        ENDIF
@@ -1384,10 +1346,10 @@
          overshoot_limit_e < 0.0 )  THEN
        message_string = 'overshoot_limit_... < 0.0 is not allowed'
-       CALL handle_palm_message( 'check_parameters', 'PA0080', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0080', 1, 2, 0, 6, 0 )
     ENDIF
     IF ( ups_limit_u < 0.0 .OR. ups_limit_v < 0.0 .OR. ups_limit_w < 0.0 .OR. &
          ups_limit_pt < 0.0 .OR. ups_limit_e < 0.0 )  THEN
        message_string = 'ups_limit_... < 0.0 is not allowed'
-       CALL handle_palm_message( 'check_parameters', 'PA0081', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0081', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -1399,5 +1361,5 @@
        WRITE ( message_string, * ) 'number of statistic_regions = ', &
                    statistic_regions+1, ' but only 10 regions are allowed'
-       CALL handle_palm_message( 'check_parameters', 'PA0082', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0082', 1, 2, 0, 6, 0 )
     ENDIF
     IF ( normalizing_region > statistic_regions  .OR. &
@@ -1406,5 +1368,5 @@
                 normalizing_region, ' must be >= 0 and <= ',statistic_regions, &
                 ' (value of statistic_regions)'
-       CALL handle_palm_message( 'check_parameters', 'PA0083', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0083', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -1416,5 +1378,5 @@
        message_string = 'dt_sort_particles is reset to 0.0 because of cloud' //&
                         '_droplets = .TRUE.'
-       CALL handle_palm_message( 'check_parameters', 'PA0084', 0, 1, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0084', 0, 1, 0, 6, 0 )
     ENDIF
 
@@ -1455,5 +1417,5 @@
        WRITE( message_string, * )  'averaging_interval = ', &
              averaging_interval, ' must be <= dt_data_output = ', dt_data_output
-       CALL handle_palm_message( 'check_parameters', 'PA0085', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0085', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -1465,5 +1427,5 @@
        WRITE( message_string, * )  'averaging_interval_pr = ', &
              averaging_interval_pr, ' must be <= dt_dopr = ', dt_dopr
-       CALL handle_palm_message( 'check_parameters', 'PA0086', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0086', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -1475,5 +1437,5 @@
        WRITE( message_string, * )  'averaging_interval_sp = ', &
              averaging_interval_sp, ' must be <= dt_dosp = ', dt_dosp
-       CALL handle_palm_message( 'check_parameters', 'PA0087', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0087', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -1501,5 +1463,5 @@
                 dt_averaging_input, ' must be <= averaging_interval = ', &
                 averaging_interval
-       CALL handle_palm_message( 'check_parameters', 'PA0088', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0088', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -1508,5 +1470,5 @@
                 dt_averaging_input_pr, ' must be <= averaging_interval_pr = ', &
                 averaging_interval_pr
-       CALL handle_palm_message( 'check_parameters', 'PA0089', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0089', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -1521,6 +1483,5 @@
                  precipitation_amount_interval, ' must not be larger than ', &
                  'dt_do2d_xy = ', dt_do2d_xy
-             CALL handle_palm_message( 'check_parameters', 'PA0090', 1, 2, 0, &
-                                       6, 0 )
+             CALL message( 'check_parameters', 'PA0090', 1, 2, 0, 6, 0 )
           ENDIF
        ENDIF
@@ -1691,6 +1652,5 @@
                                  TRIM( data_output_pr(i) ) // ' is not imp' // &
                                  'lemented for ocean = .FALSE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0091', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0091', 1, 2, 0, 6, 0 )
              ELSE
                 dopr_index(i) = 23
@@ -1760,6 +1720,5 @@
                                  TRIM( data_output_pr(i) ) // ' is not imp' // &
                                  'lemented for humidity = .FALSE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0092', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0092', 1, 2, 0, 6, 0 )
              ELSE
                 dopr_index(i) = 41
@@ -1779,6 +1738,5 @@
                                  TRIM( data_output_pr(i) ) // ' is not imp' // &
                                  'lemented for passive_scalar = .FALSE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0093', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0093', 1, 2, 0, 6, 0 )
              ELSE
                 dopr_index(i) = 41
@@ -1821,6 +1779,5 @@
                                  TRIM( data_output_pr(i) ) // ' is not imp' // &
                                  'lemented for cloud_physics = .FALSE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0094', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0094', 1, 2, 0, 6, 0 )
              ELSE
                 dopr_index(i) = 4
@@ -1866,6 +1823,5 @@
                                  TRIM( data_output_pr(i) ) // ' is not imp' // &
                                  'lemented for humidity = .FALSE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0092', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0092', 1, 2, 0, 6, 0 )
              ELSE
                 dopr_index(i) = 48
@@ -1879,6 +1835,5 @@
                                  TRIM( data_output_pr(i) ) // ' is not imp' // &
                                  'lemented for humidity = .FALSE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0092', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0092', 1, 2, 0, 6, 0 )
              ELSE
                 dopr_index(i) = 49
@@ -1892,6 +1847,5 @@
                                  TRIM( data_output_pr(i) ) // ' is not imp' // &
                                  'lemented for humidity = .FALSE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0092', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0092', 1, 2, 0, 6, 0 )
              ELSE
                 dopr_index(i) = 50
@@ -1905,6 +1859,5 @@
                                  TRIM( data_output_pr(i) ) // ' is not imp' // &
                                  'lemented for passive_scalar = .FALSE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0093', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0093', 1, 2, 0, 6, 0 )
              ELSE
                 dopr_index(i) = 48
@@ -1918,6 +1871,5 @@
                                  TRIM( data_output_pr(i) ) // ' is not imp' // &
                                  'lemented for passive_scalar = .FALSE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0093', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0093', 1, 2, 0, 6, 0 )
              ELSE
                 dopr_index(i) = 49
@@ -1931,6 +1883,5 @@
                                  TRIM( data_output_pr(i) ) // ' is not imp' // &
                                  'lemented for passive_scalar = .FALSE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0093', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0093', 1, 2, 0, 6, 0 )
              ELSE
                 dopr_index(i) = 50
@@ -1954,6 +1905,5 @@
                                  'lemented for cloud_physics = .FALSE. an&' // &
                                  'd humidity = .FALSE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0095', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0095', 1, 2, 0, 6, 0 )
              ENDIF
 
@@ -1973,6 +1923,5 @@
                                  'lemented for cloud_physics = .FALSE. an&' // &
                                  'd humidity = .FALSE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0095', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0095', 1, 2, 0, 6, 0 )
              ENDIF
 
@@ -1992,6 +1941,5 @@
                                  'lemented for cloud_physics = .FALSE. an&' // &
                                  'd humidity = .FALSE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0095', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0095', 1, 2, 0, 6, 0 )
              ENDIF
 
@@ -2002,6 +1950,5 @@
                                  'lemented for cloud_physics = .FALSE. or'  // &
                                  '&cloud_droplets = .FALSE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0096', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0096', 1, 2, 0, 6, 0 )
              ELSE
                 dopr_index(i) = 54
@@ -2065,6 +2012,5 @@
                                  TRIM( data_output_pr(i) ) // ' is not imp' // &
                                  'lemented for ocean = .FALSE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0091', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0091', 1, 2, 0, 6, 0 )
              ELSE
                 dopr_index(i) = 65
@@ -2078,6 +2024,5 @@
                                  TRIM( data_output_pr(i) ) // ' is not imp' // &
                                  'lemented for ocean = .FALSE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0091', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0091', 1, 2, 0, 6, 0 )
              ELSE
                 dopr_index(i) = 66
@@ -2091,6 +2036,5 @@
                                  TRIM( data_output_pr(i) ) // ' is not imp' // &
                                  'lemented for ocean = .FALSE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0091', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0091', 1, 2, 0, 6, 0 )
              ELSE
                 dopr_index(i) = 67
@@ -2114,6 +2058,5 @@
                                  TRIM( data_output_pr(i) ) // ' is not imp' // &
                                  'lemented for humidity = .FALSE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0092', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0092', 1, 2, 0, 6, 0 )
              ELSE
                 dopr_index(i) = 70
@@ -2131,11 +2074,9 @@
                                     'data_output_pr_user = "' // &
                                     TRIM( data_output_pr(i) ) // '"'
-                   CALL handle_palm_message( 'check_parameters', 'PA0097', 1, &
-                                             2, 0, 6, 0 )
+                   CALL message( 'check_parameters', 'PA0097', 1, 2, 0, 6, 0 )
                 ELSE
                    message_string = 'illegal value for data_output_pr = "' // &
                                     TRIM( data_output_pr(i) ) // '"'
-                   CALL handle_palm_message( 'check_parameters', 'PA0098', 1, &
-                                             2, 0, 6, 0 )
+                   CALL message( 'check_parameters', 'PA0098', 1, 2, 0, 6, 0 )
                 ENDIF
              ENDIF
@@ -2175,6 +2116,5 @@
           WRITE( message_string, * )  'z_max_do1d = ', z_max_do1d, ' must ', &
                  'be >= ', zu(nzb+1), ' or <= ', zu(nzt+1)
-          CALL handle_palm_message( 'check_parameters', 'PA0099', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0099', 1, 2, 0, 6, 0 )
        ELSE
           cross_uymax = z_max_do1d
@@ -2195,6 +2135,5 @@
                               'zed_x = "' // TRIM( cross_normalized_x(i) ) // &
                               '"'
-             CALL handle_palm_message( 'check_parameters', 'PA0100', 1, 2, 0, &
-                                       6, 0 )
+             CALL message( 'check_parameters', 'PA0100', 1, 2, 0, 6, 0 )
 
        END SELECT
@@ -2208,6 +2147,5 @@
                               'zed_y = "' // TRIM( cross_normalized_y(i) ) // &
                               '"'
-             CALL handle_palm_message( 'check_parameters', 'PA0101', 1, 2, 0, &
-                                       6, 0 )
+             CALL message( 'check_parameters', 'PA0101', 1, 2, 0, 6, 0 )
 
        END SELECT
@@ -2219,5 +2157,5 @@
        WRITE( message_string, * )  'z_max_do1d_normalized = ', &
                                    z_max_do1d_normalized, ' must be >= 0.0'
-       CALL handle_palm_message( 'check_parameters', 'PA0101', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0101', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -2235,6 +2173,5 @@
              message_string = 'number of output quantitities given by data' // &
                 '_output and data_output_user exceeds the limit of 100'
-             CALL handle_palm_message( 'check_parameters', 'PA0102', 1, 2, 0, &
-                                       6, 0 )
+             CALL message( 'check_parameters', 'PA0102', 1, 2, 0, 6, 0 )
           ENDIF
           data_output(i) = data_output_user(j)
@@ -2279,6 +2216,5 @@
                 message_string = 'output of "' // TRIM( var ) // '" requi' // &
                                  'res constant_diffusion = .FALSE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0103', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0103', 1, 2, 0, 6, 0 )
              ENDIF
              unit = 'm2/s2'
@@ -2288,6 +2224,5 @@
                 message_string = 'output of "' // TRIM( var ) // '" requir' // &
                    'es a "particles_par"-NAMELIST in the parameter file (PARIN)'
-                CALL handle_palm_message( 'check_parameters', 'PA0104', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0104', 1, 2, 0, 6, 0 )
              ENDIF
              IF ( TRIM( var ) == 'pc' )  unit = 'number'
@@ -2298,6 +2233,5 @@
                 message_string = 'output of "' // TRIM( var ) // '" requi' // &
                                  'res humidity = .TRUE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0105', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0105', 1, 2, 0, 6, 0 )
              ENDIF
              IF ( TRIM( var ) == 'q'   )  unit = 'kg/kg'
@@ -2308,6 +2242,5 @@
                 message_string = 'output of "' // TRIM( var ) // '" requi' // &
                          'res cloud_physics = .TRUE. or cloud_droplets = .TRUE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0106', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0106', 1, 2, 0, 6, 0 )
              ENDIF
              unit = 'kg/kg'
@@ -2317,6 +2250,5 @@
                 message_string = 'output of "' // TRIM( var ) // '" requi' // &
                                  'res cloud_droplets = .TRUE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0107', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0107', 1, 2, 0, 6, 0 )
              ENDIF
              IF ( TRIM( var ) == 'ql_c'  )  unit = 'kg/kg'
@@ -2328,6 +2260,5 @@
                 message_string = 'output of "' // TRIM( var ) // '" requi' // &
                                  'res cloud_physics = .TRUE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0108', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0108', 1, 2, 0, 6, 0 )
              ENDIF
              unit = 'kg/kg'
@@ -2337,6 +2268,5 @@
                 message_string = 'output of "' // TRIM( var ) // '" requi' // &
                                  'res ocean = .TRUE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0109', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0109', 1, 2, 0, 6, 0 )
              ENDIF
              unit = 'kg/m3'
@@ -2346,6 +2276,5 @@
                 message_string = 'output of "' // TRIM( var ) // '" requi' // &
                                  'res passive_scalar = .TRUE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0110', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0110', 1, 2, 0, 6, 0 )
              ENDIF
              unit = 'conc'
@@ -2355,6 +2284,5 @@
                 message_string = 'output of "' // TRIM( var ) // '" requi' // &
                                  'res ocean = .TRUE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0109', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0109', 1, 2, 0, 6, 0 )
              ENDIF
              unit = 'psu'
@@ -2365,30 +2293,25 @@
                                  TRIM( var ) // '" & only 2d-horizontal ' // &
                                  'cross sections are allowed for this value'
-                CALL handle_palm_message( 'check_parameters', 'PA0111', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0111', 1, 2, 0, 6, 0 )
              ENDIF
              IF ( TRIM( var ) == 'lwp*'  .AND.  .NOT. cloud_physics )  THEN
                 message_string = 'output of "' // TRIM( var ) // '" requi' // &
                                  'res cloud_physics = .TRUE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0108', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0108', 1, 2, 0, 6, 0 )
              ENDIF
              IF ( TRIM( var ) == 'pra*'  .AND.  .NOT. precipitation )  THEN
                 message_string = 'output of "' // TRIM( var ) // '" requi' // &
                                  'res precipitation = .TRUE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0112', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0112', 1, 2, 0, 6, 0 )
              ENDIF
              IF ( TRIM( var ) == 'pra*'  .AND.  j == 1 )  THEN
                 message_string = 'temporal averaging of precipitation ' // &
                           'amount "' // TRIM( var ) // '" is not possible'
-                CALL handle_palm_message( 'check_parameters', 'PA0113', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0113', 1, 2, 0, 6, 0 )
              ENDIF
              IF ( TRIM( var ) == 'prr*'  .AND.  .NOT. precipitation )  THEN
                 message_string = 'output of "' // TRIM( var ) // '" requi' // &
                                  'res precipitation = .TRUE.'
-                CALL handle_palm_message( 'check_parameters', 'PA0112', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0112', 1, 2, 0, 6, 0 )
              ENDIF
 
@@ -2416,11 +2339,9 @@
                    message_string = 'illegal value for data_output or ' // &
                          'data_output_user = "' // TRIM( data_output(i) ) // '"'
-                   CALL handle_palm_message( 'check_parameters', 'PA0114', 1, &
-                                             2, 0, 6, 0 )
+                   CALL message( 'check_parameters', 'PA0114', 1, 2, 0, 6, 0 )
                 ELSE
                    message_string = 'illegal value for data_output =' // &
                                     TRIM( data_output(i) ) // '"'
-                   CALL handle_palm_message( 'check_parameters', 'PA0115', 1, &
-                                             2, 0, 6, 0 )
+                   CALL message( 'check_parameters', 'PA0115', 1, 2, 0, 6, 0 )
                 ENDIF
              ENDIF
@@ -2489,5 +2410,5 @@
                     ' must be >= ', zu(nzb+1), '(zu(nzb+1)) and <= ', zu(nzt), &
                     ' (zu(nzt))'
-       CALL handle_palm_message( 'check_parameters', 'PA0116', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0116', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -2504,6 +2425,5 @@
           message_string = 'do3d_compress = .TRUE. not allowed on host "' // &
                            TRIM( host ) // '"'
-          CALL handle_palm_message( 'check_parameters', 'PA0117', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0117', 1, 2, 0, 6, 0 )
        ENDIF
 
@@ -2516,6 +2436,5 @@
              WRITE( message_string, * )  'illegal precision: do3d_comp_prec', &
                                    '(', i, ') = "', TRIM(do3d_comp_prec(i)),'"'
-             CALL handle_palm_message( 'check_parameters', 'PA0118', 1, 2, 0, &
-                                       6, 0 )
+             CALL message( 'check_parameters', 'PA0118', 1, 2, 0, 6, 0 )
           ENDIF
 
@@ -2540,6 +2459,5 @@
                      TRIM( do3d_comp_prec(i) ), '" given for do3d_comp_prec(', &
                      i, ')'
-                CALL handle_palm_message( 'check_parameters', 'PA0119', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0119', 1, 2, 0, 6, 0 )
 
           END SELECT
@@ -2575,6 +2493,5 @@
                 message_string = 'unknown value for data_output_format "' // &
                                  TRIM( data_output_format(i) ) // '"'
-                CALL handle_palm_message( 'check_parameters', 'PA0120', 1, 2, &
-                                          0, 6, 0 )
+                CALL message( 'check_parameters', 'PA0120', 1, 2, 0, 6, 0 )
 
           END SELECT
@@ -2597,12 +2514,10 @@
        IF ( km_constant < 0.0 )  THEN
           WRITE( message_string, * )  'km_constant = ', km_constant, ' < 0.0'
-          CALL handle_palm_message( 'check_parameters', 'PA0121', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0121', 1, 2, 0, 6, 0 )
        ELSE
           IF ( prandtl_number < 0.0 )  THEN
              WRITE( message_string, * )  'prandtl_number = ', prandtl_number, &
                                          ' < 0.0'
-             CALL handle_palm_message( 'check_parameters', 'PA0122', 1, 2, 0, &
-                                       6, 0 )
+             CALL message( 'check_parameters', 'PA0122', 1, 2, 0, 6, 0 )
           ENDIF
           constant_diffusion = .TRUE.
@@ -2611,6 +2526,5 @@
              message_string = 'prandtl_layer is not allowed with fixed ' // &
                               'value of km'
-             CALL handle_palm_message( 'check_parameters', 'PA0123', 1, 2, 0, &
-                                       6, 0 )
+             CALL message( 'check_parameters', 'PA0123', 1, 2, 0, 6, 0 )
           ENDIF
        ENDIF
@@ -2630,6 +2544,5 @@
        IF ( outflow_damping_width <= 0  .OR.  outflow_damping_width > nx )  THEN
           message_string = 'outflow_damping width out of range'
-          CALL handle_palm_message( 'check_parameters', 'PA0124', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0124', 1, 2, 0, 6, 0 )
        ENDIF
     ENDIF
@@ -2644,6 +2557,5 @@
        IF ( outflow_damping_width <= 0  .OR.  outflow_damping_width > ny )  THEN
           message_string = 'outflow_damping width out of range'
-          CALL handle_palm_message( 'check_parameters', 'PA0124', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0124', 1, 2, 0, 6, 0 )
        ENDIF
     ENDIF
@@ -2654,5 +2566,5 @@
        WRITE( message_string, * )  'rif_min = ', rif_min, ' must be less ', &
                                    'than rif_max = ', rif_max
-       CALL handle_palm_message( 'check_parameters', 'PA0125', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0125', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -2670,9 +2582,9 @@
        WRITE( message_string, * )  'disturbance_level_b = ', &
                            disturbance_level_b, ' must be >= ', zu(3), '(zu(3))'
-       CALL handle_palm_message( 'check_parameters', 'PA0126', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0126', 1, 2, 0, 6, 0 )
     ELSEIF ( disturbance_level_b > zu(nzt-2) )  THEN
        WRITE( message_string, * )  'disturbance_level_b = ', &
                    disturbance_level_b, ' must be <= ', zu(nzt-2), '(zu(nzt-2))'
-       CALL handle_palm_message( 'check_parameters', 'PA0127', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0127', 1, 2, 0, 6, 0 )
     ELSE
        DO  k = 3, nzt-2
@@ -2695,10 +2607,10 @@
        WRITE( message_string, * )  'disturbance_level_t = ', &
                    disturbance_level_t, ' must be <= ', zu(nzt-2), '(zu(nzt-2))'
-       CALL handle_palm_message( 'check_parameters', 'PA0128', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0128', 1, 2, 0, 6, 0 )
     ELSEIF ( disturbance_level_t < disturbance_level_b )  THEN
        WRITE( message_string, * )  'disturbance_level_t = ', &
                    disturbance_level_t, ' must be >= disturbance_level_b = ', &
                    disturbance_level_b
-       CALL handle_palm_message( 'check_parameters', 'PA0129', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0129', 1, 2, 0, 6, 0 )
     ELSE
        DO  k = 3, nzt-2
@@ -2718,5 +2630,5 @@
                 disturbance_level_ind_t, ' must be >= disturbance_level_b = ', &
                 disturbance_level_b
-       CALL handle_palm_message( 'check_parameters', 'PA0130', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0130', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -2735,6 +2647,5 @@
        THEN
           message_string = 'inflow_disturbance_begin out of range'
-          CALL handle_palm_message( 'check_parameters', 'PA0131', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0131', 1, 2, 0, 6, 0 )
        ENDIF
        IF ( inflow_disturbance_end == -1 )  THEN
@@ -2744,6 +2655,5 @@
        THEN
           message_string = 'inflow_disturbance_end out of range'
-          CALL handle_palm_message( 'check_parameters', 'PA0132', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0132', 1, 2, 0, 6, 0 )
        ENDIF
     ELSEIF ( bc_ns /= 'cyclic' )  THEN
@@ -2754,6 +2664,5 @@
        THEN
           message_string = 'inflow_disturbance_begin out of range'
-          CALL handle_palm_message( 'check_parameters', 'PA0131', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0131', 1, 2, 0, 6, 0 )
        ENDIF
        IF ( inflow_disturbance_end == -1 )  THEN
@@ -2763,6 +2672,5 @@
        THEN
           message_string = 'inflow_disturbance_end out of range'
-          CALL handle_palm_message( 'check_parameters', 'PA0132', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0132', 1, 2, 0, 6, 0 )
        ENDIF
     ENDIF
@@ -2789,5 +2697,5 @@
        message_string = 'turbulent_inflow = .T. requires a Dirichlet ' // &
                         'condition at the inflow boundary'
-       CALL handle_palm_message( 'check_parameters', 'PA0133', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0133', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -2803,6 +2711,5 @@
              WRITE( message_string, * )  'illegal value for recycling_width:', &
                                          ' ', recycling_width
-             CALL handle_palm_message( 'check_parameters', 'PA0134', 1, 2, 0, &
-                                       6, 0 )
+             CALL message( 'check_parameters', 'PA0134', 1, 2, 0, 6, 0 )
           ENDIF
        ENDIF
@@ -2818,5 +2725,5 @@
        message_string = 'unknown random generator: random_generator = "' // &
                         TRIM( random_generator ) // '"'
-       CALL handle_palm_message( 'check_parameters', 'PA0135', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0135', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -2830,6 +2737,5 @@
           WRITE( message_string, * )  'damp_level_1d = ', damp_level_1d, &
                  ' must be > 0.0 and < ', zu(nzt+1), '(zu(nzt+1))'
-          CALL handle_palm_message( 'check_parameters', 'PA0136', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0136', 1, 2, 0, 6, 0 )
        ELSE
           DO  k = 1, nzt+1
@@ -2848,5 +2754,5 @@
        message_string = 'mixing_length_1d = "' // TRIM( mixing_length_1d ) // &
                         '" is unknown'
-       CALL handle_palm_message( 'check_parameters', 'PA0137', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0137', 1, 2, 0, 6, 0 )
     ENDIF
     IF ( TRIM( dissipation_1d ) /= 'as_in_3d_model'  .AND. &
@@ -2854,5 +2760,5 @@
        message_string = 'dissipation_1d = "' // TRIM( dissipation_1d ) // &
                         '" is unknown'
-       CALL handle_palm_message( 'check_parameters', 'PA0138', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0138', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -2889,6 +2795,5 @@
                  termination_time_needed, ' must be > 30.0 on host "', &
                  TRIM( host ), '"'
-          CALL handle_palm_message( 'check_parameters', 'PA0139', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0139', 1, 2, 0, 6, 0 )
        ENDIF
     ELSEIF ( host(1:3) == 'ibm' )  THEN
@@ -2901,6 +2806,5 @@
                  termination_time_needed, ' should be >= 300.0 on host "', &
                  TRIM( host ), '"'
-          CALL handle_palm_message( 'check_parameters', 'PA0140', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'check_parameters', 'PA0140', 1, 2, 0, 6, 0 )
        ENDIF
     ENDIF
Index: /palm/trunk/SOURCE/cpu_log.f90
===================================================================
--- /palm/trunk/SOURCE/cpu_log.f90	(revision 225)
+++ /palm/trunk/SOURCE/cpu_log.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Type of count and count_rate changed to INTEGER(8)
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 225 2009-01-26 14:44:20Z raasch
+! Type of count and count_rate changed to INTEGER(8)
 !
 ! 82 2007-04-16 15:40:52Z raasch
Index: /palm/trunk/SOURCE/cpu_statistics.f90
===================================================================
--- /palm/trunk/SOURCE/cpu_statistics.f90	(revision 225)
+++ /palm/trunk/SOURCE/cpu_statistics.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Bugfix for nonparallel execution
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 222 2009-01-12 16:04:16Z letzel
+! Bugfix for nonparallel execution
 !
 ! 197 2008-09-16 15:29:03Z raasch
Index: /palm/trunk/SOURCE/data_output_2d.f90
===================================================================
--- /palm/trunk/SOURCE/data_output_2d.f90	(revision 225)
+++ /palm/trunk/SOURCE/data_output_2d.f90	(revision 226)
@@ -4,10 +4,13 @@
 ! Actual revisions:
 ! -----------------
-! Bugfix: zero output of particle concentration and radius unless particles
-! have been started
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 215 2008-11-18 09:54:31Z raasch
+! Bugfix: no output of particle concentration and radius unless particles
+! have been started
 !
 ! 96 2007-06-04 08:07:41Z raasch
Index: /palm/trunk/SOURCE/data_output_dvrp.f90
===================================================================
--- /palm/trunk/SOURCE/data_output_dvrp.f90	(revision 225)
+++ /palm/trunk/SOURCE/data_output_dvrp.f90	(revision 226)
@@ -32,5 +32,4 @@
 ! Actual revisions:
 ! -----------------
-! DVRP arguments changed to single precision, mode pathlines added
 ! TEST: different colours for isosurfaces
 ! TEST: write statements
@@ -39,4 +38,7 @@
 ! -----------------
 ! $Id$
+!
+! 210 2008-11-06 08:54:02Z raasch
+! DVRP arguments changed to single precision, mode pathlines added
 !
 ! 130 2007-11-13 14:08:40Z letzel
Index: lm/trunk/SOURCE/handle_palm_message.f90
===================================================================
--- /palm/trunk/SOURCE/handle_palm_message.f90	(revision 225)
+++ 	(revision )
@@ -1,150 +1,0 @@
- SUBROUTINE handle_palm_message( routine_name, message_identifier,             &
-                                 requested_action, message_level, output_on_pe,&
-                                 file_id, flush )
-
-!------------------------------------------------------------------------------!
-! Actual revisions:
-! -----------------
-! Initial revision
-!
-! Former revisions:
-! -----------------
-! $Id$
-!
-! Description:
-! ------------
-! Handling of the different kinds of messages.
-! Meaning of formal parameters:
-! requested_action: 0 - continue, 1 - abort by stop, 2 - abort by mpi_abort
-! message_level: 0 - informative, 1 - warning, 2 - error
-! output_on_pe: -1 - all, else - output on specified PE
-! file_id: 6 - stdout (*)
-! flush: 0 - no action, 1 - flush the respective output buffer
-!------------------------------------------------------------------------------!
-
-    USE pegrid
-    USE control_parameters
-
-    IMPLICIT NONE
-
-    CHARACTER(LEN=6)   ::  message_identifier
-    CHARACTER(LEN=*)   ::  routine_name
-    CHARACTER(LEN=200) ::  header_string
-
-    INTEGER ::  file_id, flush, i, message_level, output_on_pe, requested_action
-
-    LOGICAL ::  do_output, pe_out_of_range
-
-
-    do_output       = .FALSE.
-    pe_out_of_range = .FALSE.
-
-!    print*, '#1'
-!
-!-- Create the complete output string, starting with the message level
-    IF ( message_level == 0 )  THEN
-       header_string = '--- informative message ---  ID:'
-    ELSEIF ( message_level == 1 )  THEN
-       header_string = '+++ warning message ---  ID:'
-    ELSEIF ( message_level == 2 )  THEN
-       header_string = '+++ error message ---  ID:'
-    ELSE
-       WRITE( header_string,'(A,I2)' )  '+++ unknown message level: ', &
-                                        message_level
-    ENDIF
-
-!    print*, '#2'
-!
-!-- Add the message identifier and the generating routine
-    header_string = TRIM( header_string ) // ' ' // message_identifier // &
-                    '   generated by routine: ' // TRIM( routine_name )
-
-!    print*, '#3'
-!
-!-- Output the output string and the corresponding message string which had
-!-- been already assigned in the calling subroutine.
-!
-!-- First find out if output shall be done on this PE.
-    IF ( output_on_pe == -1 )  THEN
-       do_output = .TRUE.
-    ELSEIF ( myid == output_on_pe )  THEN
-       do_output = .TRUE.
-    ENDIF
-!    print*, '#4'
-#if defined( __parallel )
-!
-!-- In case of illegal pe number output on pe0
-    IF ( output_on_pe > numprocs-1 )  THEN
-       pe_out_of_range = .TRUE.
-       IF ( myid == 0 )  do_output = .TRUE.
-    ENDIF
-!    print*, '#5'
-#endif
-
-!
-!-- Now do the output
-    IF ( do_output )  THEN
-!    print*, '#6'
-       IF ( file_id == 6 )  THEN
-!
-!--       Output on stdout
-          WRITE( *, '(A/)' )  TRIM( header_string )
-!    print*, '#7'
-!
-!--       Cut message string into pieces and output one piece per line.
-!--       Remove leading blanks.
-          message_string = ADJUSTL( message_string )
-          i = INDEX( message_string, '&' )
-          DO WHILE ( i /= 0 )
-             WRITE( *, '(4X,A)' )  ADJUSTL( message_string(1:i-1) )
-             message_string = ADJUSTL( message_string(i+1:) )
-             i = INDEX( message_string, '&' )
-          ENDDO
-          WRITE( *, '(4X,A)' )  TRIM( message_string )
-!    print*, '#8'
-
-       ELSE
-!    print*, '#9'
-!
-!--       Output on requested file id (file must have been opened elsewhere!)
-          WRITE( file_id, '(A/)' )  TRIM( header_string )
-!
-!--       Cut message string into pieces and output one piece per line.
-!--       Remove leading blanks.
-          message_string = ADJUSTL( message_string )
-          i = INDEX( message_string, '&' )
-          DO WHILE ( i /= 0 )
-             WRITE( file_id, '(4X,A)' )  ADJUSTL( message_string(1:i-1) )
-             message_string = ADJUSTL( message_string(i+1:) )
-             i = INDEX( message_string, '&' )
-          ENDDO
-          WRITE( file_id, '(4X,A)' )  TRIM( message_string )
-
-!
-!--       Flush buffer, if requested
-          IF ( flush == 1 )  CALL local_flush( file_id )
-       ENDIF
-!    print*, '#10'
-
-       IF ( pe_out_of_range )  THEN
-          WRITE ( *, '(A)' )  '+++ WARNING from handle_palm_message:'
-          WRITE ( *, '(A,I6,A)' )  '    PE ', output_on_pe, &
-                                   ' choosed for output is larger '
-          WRITE ( *, '(A,I6)' )  '    than the maximum number of used PEs', &
-                                 numprocs-1
-          WRITE ( *, '(A)' )  '    Output is done on PE0 instead'
-       ENDIF
-!    print*, '#11'
-
-    ENDIF
-
-!
-!-- Abort execution, if requested
-!    print*, '#12'
-    IF ( requested_action > 0 )  THEN
-       abort_mode = requested_action
-       CALL local_stop
-    ENDIF
-!    print*, '#13'
-
- END SUBROUTINE handle_palm_message
Index: /palm/trunk/SOURCE/header.f90
===================================================================
--- /palm/trunk/SOURCE/header.f90	(revision 225)
+++ /palm/trunk/SOURCE/header.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Bugfix: error in zu index in case of section_xy = -1
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 206 2008-10-13 14:59:11Z raasch
+! Bugfix: error in zu index in case of section_xy = -1
 !
 ! 198 2008-09-17 08:55:28Z raasch
Index: /palm/trunk/SOURCE/inflow_turbulence.f90
===================================================================
--- /palm/trunk/SOURCE/inflow_turbulence.f90	(revision 225)
+++ /palm/trunk/SOURCE/inflow_turbulence.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Bugfix for nonparallel execution
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 222 2009-01-12 16:04:16Z letzel
+! Bugfix for nonparallel execution
 !
 ! Initial version (2008/03/07)
Index: /palm/trunk/SOURCE/init_cloud_physics.f90
===================================================================
--- /palm/trunk/SOURCE/init_cloud_physics.f90	(revision 225)
+++ /palm/trunk/SOURCE/init_cloud_physics.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Bugfix: abort in case that absolute temperature is below zero
+! 
 !
 ! Former revisions:
 ! ------------------
 ! $Id$
+!
+! 221 2009-01-12 15:32:23Z raasch
+! Bugfix: abort in case that absolute temperature is below zero
 !
 ! 95 2007-06-02 16:48:38Z raasch
@@ -67,6 +70,5 @@
           WRITE( message_string, * )  'absolute temperature < 0.0 at zu(', k, &
                                       ') = ', zu(k)
-          CALL handle_palm_message( 'init_cloud_physics', 'PA0142', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'init_cloud_physics', 'PA0142', 1, 2, 0, 6, 0 )
        ENDIF
        hyp(k)    = surface_pressure * 100.0 * &
Index: /palm/trunk/SOURCE/init_coupling.f90
===================================================================
--- /palm/trunk/SOURCE/init_coupling.f90	(revision 225)
+++ /palm/trunk/SOURCE/init_coupling.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Bugfix for nonparallel execution
+! 
 !
 ! Former revisions:
 ! ------------------
 ! $Id$
+!
+! 222 2009-01-12 16:04:16Z letzel
+! Initial revision
 !
 ! Description:
Index: /palm/trunk/SOURCE/init_dvrp.f90
===================================================================
--- /palm/trunk/SOURCE/init_dvrp.f90	(revision 225)
+++ /palm/trunk/SOURCE/init_dvrp.f90	(revision 226)
@@ -4,11 +4,14 @@
 ! Actual revisions:
 ! -----------------
-! DVRP arguments changed to single precision, mode pathlines added
 ! TEST: print* statements
 ! ToDo: checking of mode_dvrp for legal values is not correct
 ! Implementation of a MPI-1 coupling: __mpi2 adjustments for MPI_COMM_WORLD
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 210 2008-11-06 08:54:02Z raasch
+! DVRP arguments changed to single precision, mode pathlines added
 !
 ! 155 2008-03-28 10:56:30Z letzel
Index: /palm/trunk/SOURCE/init_grid.f90
===================================================================
--- /palm/trunk/SOURCE/init_grid.f90	(revision 225)
+++ /palm/trunk/SOURCE/init_grid.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! +topography_grid_convention
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 217 2008-12-09 18:00:48Z letzel
+! +topography_grid_convention
 !
 ! 134 2007-11-21 07:28:38Z letzel
Index: /palm/trunk/SOURCE/init_pegrid.f90
===================================================================
--- /palm/trunk/SOURCE/init_pegrid.f90	(revision 225)
+++ /palm/trunk/SOURCE/init_pegrid.f90	(revision 226)
@@ -4,6 +4,4 @@
 ! Actual revisions:
 ! -----------------
-! Implementation of a MPI-1 coupling: added __parallel within the __mpi2 part
-! 2d-decomposition is default on SGI-ICE systems
 ! ATTENTION: nnz_x undefined problem still has to be solved!!!!!!!!
 ! TEST OUTPUT (TO BE REMOVED) logging mpi2 ierr values
@@ -12,4 +10,8 @@
 ! -----------------
 ! $Id$
+!
+! 206 2008-10-13 14:59:11Z raasch
+! Implementation of a MPI-1 coupling: added __parallel within the __mpi2 part
+! 2d-decomposition is default on SGI-ICE systems
 !
 ! 197 2008-09-16 15:29:03Z raasch
Index: /palm/trunk/SOURCE/local_stop.f90
===================================================================
--- /palm/trunk/SOURCE/local_stop.f90	(revision 225)
+++ /palm/trunk/SOURCE/local_stop.f90	(revision 226)
@@ -4,11 +4,14 @@
 ! Actual revisions:
 ! -----------------
-! Implementation of a MPI-1 coupling: replaced myid with target_id.
-! The uncoupled case allows stop or mpi_abort depending on new steering
-! parameter abort_mode, which is set in handle_palm_message.
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 213 2008-11-13 10:26:18Z raasch
+! Implementation of a MPI-1 coupling: replaced myid with target_id.
+! The uncoupled case allows stop or mpi_abort depending on new steering
+! parameter abort_mode, which is set in routine message.
 !
 ! 147 2008-02-01 12:41:46Z raasch
Index: /palm/trunk/SOURCE/local_tremain.f90
===================================================================
--- /palm/trunk/SOURCE/local_tremain.f90	(revision 225)
+++ /palm/trunk/SOURCE/local_tremain.f90	(revision 226)
@@ -4,10 +4,13 @@
 ! Actual revisions:
 ! -----------------
-! Type of count and count_rate changed to INTEGER(8) in order to avoid out of
-! range problems (which result in measured negative time intervals)
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 225 2009-01-26 14:44:20Z raasch
+! Type of count and count_rate changed to INTEGER(8) in order to avoid out of
+! range problems (which result in measured negative time intervals)
 !
 ! 82 2007-04-16 15:40:52Z raasch
Index: /palm/trunk/SOURCE/local_tremain_ini.f90
===================================================================
--- /palm/trunk/SOURCE/local_tremain_ini.f90	(revision 225)
+++ /palm/trunk/SOURCE/local_tremain_ini.f90	(revision 226)
@@ -4,10 +4,13 @@
 ! Actual revisions:
 ! -----------------
-! Type of count and count_rate changed to INTEGER(8) in order to avoid out of
-! range problems (which result in measured negative time intervals)
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 225 2009-01-26 14:44:20Z raasch
+! Type of count and count_rate changed to INTEGER(8) in order to avoid out of
+! range problems (which result in measured negative time intervals)
 !
 ! 82 2007-04-16 15:40:52Z raasch
Index: /palm/trunk/SOURCE/message.f90
===================================================================
--- /palm/trunk/SOURCE/message.f90	(revision 226)
+++ /palm/trunk/SOURCE/message.f90	(revision 226)
@@ -0,0 +1,152 @@
+ SUBROUTINE message( routine_name, message_identifier, requested_action, &
+                     message_level, output_on_pe, file_id, flush )
+
+!------------------------------------------------------------------------------!
+! Actual revisions:
+! -----------------
+! 
+!
+! Former revisions:
+! -----------------
+! $Id$
+!
+! 213 2008-11-13 10:26:18Z raasch
+! Initial revision
+!
+! Description:
+! ------------
+! Handling of the different kinds of messages.
+! Meaning of formal parameters:
+! requested_action: 0 - continue, 1 - abort by stop, 2 - abort by mpi_abort
+! message_level: 0 - informative, 1 - warning, 2 - error
+! output_on_pe: -1 - all, else - output on specified PE
+! file_id: 6 - stdout (*)
+! flush: 0 - no action, 1 - flush the respective output buffer
+!------------------------------------------------------------------------------!
+
+    USE pegrid
+    USE control_parameters
+
+    IMPLICIT NONE
+
+    CHARACTER(LEN=6)   ::  message_identifier
+    CHARACTER(LEN=*)   ::  routine_name
+    CHARACTER(LEN=200) ::  header_string
+
+    INTEGER ::  file_id, flush, i, message_level, output_on_pe, requested_action
+
+    LOGICAL ::  do_output, pe_out_of_range
+
+
+    do_output       = .FALSE.
+    pe_out_of_range = .FALSE.
+
+!    print*, '#1'
+!
+!-- Create the complete output string, starting with the message level
+    IF ( message_level == 0 )  THEN
+       header_string = '--- informative message ---  ID:'
+    ELSEIF ( message_level == 1 )  THEN
+       header_string = '+++ warning message ---  ID:'
+    ELSEIF ( message_level == 2 )  THEN
+       header_string = '+++ error message ---  ID:'
+    ELSE
+       WRITE( header_string,'(A,I2)' )  '+++ unknown message level: ', &
+                                        message_level
+    ENDIF
+
+!    print*, '#2'
+!
+!-- Add the message identifier and the generating routine
+    header_string = TRIM( header_string ) // ' ' // message_identifier // &
+                    '   generated by routine: ' // TRIM( routine_name )
+
+!    print*, '#3'
+!
+!-- Output the output string and the corresponding message string which had
+!-- been already assigned in the calling subroutine.
+!
+!-- First find out if output shall be done on this PE.
+    IF ( output_on_pe == -1 )  THEN
+       do_output = .TRUE.
+    ELSEIF ( myid == output_on_pe )  THEN
+       do_output = .TRUE.
+    ENDIF
+!    print*, '#4'
+#if defined( __parallel )
+!
+!-- In case of illegal pe number output on pe0
+    IF ( output_on_pe > numprocs-1 )  THEN
+       pe_out_of_range = .TRUE.
+       IF ( myid == 0 )  do_output = .TRUE.
+    ENDIF
+!    print*, '#5'
+#endif
+
+!
+!-- Now do the output
+    IF ( do_output )  THEN
+!    print*, '#6'
+       IF ( file_id == 6 )  THEN
+!
+!--       Output on stdout
+          WRITE( *, '(A/)' )  TRIM( header_string )
+!    print*, '#7'
+!
+!--       Cut message string into pieces and output one piece per line.
+!--       Remove leading blanks.
+          message_string = ADJUSTL( message_string )
+          i = INDEX( message_string, '&' )
+          DO WHILE ( i /= 0 )
+             WRITE( *, '(4X,A)' )  ADJUSTL( message_string(1:i-1) )
+             message_string = ADJUSTL( message_string(i+1:) )
+             i = INDEX( message_string, '&' )
+          ENDDO
+          WRITE( *, '(4X,A)' )  TRIM( message_string )
+!    print*, '#8'
+
+       ELSE
+!    print*, '#9'
+!
+!--       Output on requested file id (file must have been opened elsewhere!)
+          WRITE( file_id, '(A/)' )  TRIM( header_string )
+!
+!--       Cut message string into pieces and output one piece per line.
+!--       Remove leading blanks.
+          message_string = ADJUSTL( message_string )
+          i = INDEX( message_string, '&' )
+          DO WHILE ( i /= 0 )
+             WRITE( file_id, '(4X,A)' )  ADJUSTL( message_string(1:i-1) )
+             message_string = ADJUSTL( message_string(i+1:) )
+             i = INDEX( message_string, '&' )
+          ENDDO
+          WRITE( file_id, '(4X,A)' )  TRIM( message_string )
+
+!
+!--       Flush buffer, if requested
+          IF ( flush == 1 )  CALL local_flush( file_id )
+       ENDIF
+!    print*, '#10'
+
+       IF ( pe_out_of_range )  THEN
+          WRITE ( *, '(A)' )  '+++ WARNING from routine message:'
+          WRITE ( *, '(A,I6,A)' )  '    PE ', output_on_pe, &
+                                   ' choosed for output is larger '
+          WRITE ( *, '(A,I6)' )  '    than the maximum number of used PEs', &
+                                 numprocs-1
+          WRITE ( *, '(A)' )  '    Output is done on PE0 instead'
+       ENDIF
+!    print*, '#11'
+
+    ENDIF
+
+!
+!-- Abort execution, if requested
+!    print*, '#12'
+    IF ( requested_action > 0 )  THEN
+       abort_mode = requested_action
+       CALL local_stop
+    ENDIF
+!    print*, '#13'
+
+ END SUBROUTINE message
Index: /palm/trunk/SOURCE/modules.f90
===================================================================
--- /palm/trunk/SOURCE/modules.f90	(revision 225)
+++ /palm/trunk/SOURCE/modules.f90	(revision 226)
@@ -5,11 +5,14 @@
 ! Actual revisions:
 ! -----------------
+! 
+!
+! Former revisions:
+! -----------------
+! $Id$
+!
+! 217 2008-12-09 18:00:48Z letzel
 ! +topography_grid_convention
 ! some dvrp-variables changed to single precision, variables for dvrp-mode
 ! pathlines added, +target_id, abort_mode, message_string
-!
-! Former revisions:
-! -----------------
-! $Id$
 !
 ! 197 2008-09-16 15:29:03Z raasch
Index: /palm/trunk/SOURCE/netcdf.f90
===================================================================
--- /palm/trunk/SOURCE/netcdf.f90	(revision 225)
+++ /palm/trunk/SOURCE/netcdf.f90	(revision 226)
@@ -7,10 +7,13 @@
 ! Current revisions:
 ! ------------------
-! Origin of the xy-coordinate system shifted from the center of the first
-! grid cell (indices i=0, j=0) to the south-left corner of this cell.
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 216 2008-11-25 07:12:43Z raasch
+! Origin of the xy-coordinate system shifted from the center of the first
+! grid cell (indices i=0, j=0) to the south-left corner of this cell.
 !
 ! 189 2008-08-13 17:09:26Z letzel
Index: /palm/trunk/SOURCE/package_parin.f90
===================================================================
--- /palm/trunk/SOURCE/package_parin.f90	(revision 225)
+++ /palm/trunk/SOURCE/package_parin.f90	(revision 226)
@@ -9,4 +9,7 @@
 ! -----------------
 ! $Id$
+!
+! 210 2008-11-06 08:54:02Z raasch
+! Variables for dvrp-mode pathlines added
 !
 ! 116 2007-10-11 02:30:27Z raasch
Index: /palm/trunk/SOURCE/palm.f90
===================================================================
--- /palm/trunk/SOURCE/palm.f90	(revision 225)
+++ /palm/trunk/SOURCE/palm.f90	(revision 226)
@@ -4,10 +4,13 @@
 ! Actual revisions:
 ! -----------------
-! Initialization of coupled runs modified for MPI-1 and moved to external
-! subroutine init_coupling
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 215 2008-11-18 09:54:31Z raasch
+! Initialization of coupled runs modified for MPI-1 and moved to external
+! subroutine init_coupling
 !
 ! 197 2008-09-16 15:29:03Z raasch
Index: /palm/trunk/SOURCE/production_e.f90
===================================================================
--- /palm/trunk/SOURCE/production_e.f90	(revision 225)
+++ /palm/trunk/SOURCE/production_e.f90	(revision 226)
@@ -4,10 +4,13 @@
 ! Actual revisions:
 ! -----------------
-! Bugfix concerning the calculation of velocity gradients at vertical walls 
-! in case of diabatic conditions
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 208 2008-10-20 06:02:59Z raasch
+! Bugfix concerning the calculation of velocity gradients at vertical walls 
+! in case of diabatic conditions
 !
 ! 187 2008-08-06 16:25:09Z letzel
Index: /palm/trunk/SOURCE/read_3d_binary.f90
===================================================================
--- /palm/trunk/SOURCE/read_3d_binary.f90	(revision 225)
+++ /palm/trunk/SOURCE/read_3d_binary.f90	(revision 226)
@@ -4,12 +4,15 @@
 ! Actual revisions:
 ! -----------------
+! 
+!
+! Former revisions:
+! -----------------
+! $Id$
+!
+! 220 2008-12-18 07:00:36Z raasch
 ! reading mechanism completely revised (subdomain/total domain size can vary
 ! arbitrarily between current and previous run)
 ! Bugfix: reading of spectrum_x|y from restart files ignored if total numbers
 ! of grid points do not match
-!
-! Former revisions:
-! -----------------
-! $Id$
 !
 ! 150 2008-02-29 08:19:58Z raasch
Index: /palm/trunk/SOURCE/read_var_list.f90
===================================================================
--- /palm/trunk/SOURCE/read_var_list.f90	(revision 225)
+++ /palm/trunk/SOURCE/read_var_list.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! limitations for nx_on_file, ny_on_file removed (read_parts_of_var_list)
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 216 2008-11-25 07:12:43Z raasch
+! limitations for nx_on_file, ny_on_file removed (read_parts_of_var_list)
 !
 ! 173 2008-05-23 20:39:38Z raasch
Index: /palm/trunk/SOURCE/surface_coupler.f90
===================================================================
--- /palm/trunk/SOURCE/surface_coupler.f90	(revision 225)
+++ /palm/trunk/SOURCE/surface_coupler.f90	(revision 226)
@@ -4,10 +4,13 @@
 ! Actual revisions:
 ! -----------------
-! Implementation of a MPI-1 Coupling: replaced myid with target_id,
-! deleted __mpi2 directives
+! 
 !
 ! Former revisions:
 ! ------------------
 ! $Id$
+!
+! 206 2008-10-13 14:59:11Z raasch
+! Implementation of a MPI-1 Coupling: replaced myid with target_id,
+! deleted __mpi2 directives
 !
 ! 109 2007-08-28 15:26:47Z letzel
Index: /palm/trunk/SOURCE/timestep.f90
===================================================================
--- /palm/trunk/SOURCE/timestep.f90	(revision 225)
+++ /palm/trunk/SOURCE/timestep.f90	(revision 226)
@@ -4,10 +4,13 @@
 ! Actual revisions:
 ! -----------------
-! Implementation of a MPI-1 Coupling: replaced myid with target_id
-! Bugfix for nonparallel execution
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 222 2009-01-12 16:04:16Z letzel
+! Implementation of a MPI-1 Coupling: replaced myid with target_id
+! Bugfix for nonparallel execution
 !
 ! 108 2007-08-24 15:10:38Z letzel
Index: /palm/trunk/SOURCE/user_3d_data_averaging.f90
===================================================================
--- /palm/trunk/SOURCE/user_3d_data_averaging.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_3d_data_averaging.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 211 2008-11-11 04:46:24Z raasch
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_actions.f90
===================================================================
--- /palm/trunk/SOURCE/user_actions.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_actions.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 211 2008-11-11 04:46:24Z raasch
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_additional_routines.f90
===================================================================
--- /palm/trunk/SOURCE/user_additional_routines.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_additional_routines.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Initial version
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 211 2008-11-11 04:46:24Z raasch
+! Initial version
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_advec_particles.f90
===================================================================
--- /palm/trunk/SOURCE/user_advec_particles.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_advec_particles.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 211 2008-11-11 04:46:24Z raasch
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_check_data_output.f90
===================================================================
--- /palm/trunk/SOURCE/user_check_data_output.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_check_data_output.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 211 2008-11-11 04:46:24Z raasch
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_check_data_output_pr.f90
===================================================================
--- /palm/trunk/SOURCE/user_check_data_output_pr.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_check_data_output_pr.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 211 2008-11-11 04:46:24Z raasch
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_check_parameters.f90
===================================================================
--- /palm/trunk/SOURCE/user_check_parameters.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_check_parameters.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Initial version
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 217 2008-12-09 18:00:48Z letzel
+! Initial version
 !
 ! Description:
@@ -35,6 +38,5 @@
                   '"topography" = ''single_building'' or ''read_from_file''.'//&
                   ' & Choose ''cell_edge'' or ''cell_center''.'
-             CALL handle_palm_message( 'user_check_parameters', 'UI0001', 1,  &
-                  2, 0, 6, 0 )
+             CALL message( 'user_check_parameters', 'UI0001', 1, 2, 0, 6, 0 )
           ELSE
 !--          The default value is applicable here.
@@ -50,6 +52,5 @@
           message_string = 'The value for "topography_grid_convention" is '// &
                'not recognized. & Choose ''cell_edge'' or ''cell_center''.'
-          CALL handle_palm_message( 'user_check_parameters', 'UI0002', 1,  &
-               2, 0, 6, 0 )
+          CALL message( 'user_check_parameters', 'UI0002', 1, 2, 0, 6, 0 )
        ENDIF
     ENDIF
Index: /palm/trunk/SOURCE/user_data_output_2d.f90
===================================================================
--- /palm/trunk/SOURCE/user_data_output_2d.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_data_output_2d.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 211 2008-11-11 04:46:24Z raasch
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_data_output_3d.f90
===================================================================
--- /palm/trunk/SOURCE/user_data_output_3d.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_data_output_3d.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 211 2008-11-11 04:46:24Z raasch
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_data_output_dvrp.f90
===================================================================
--- /palm/trunk/SOURCE/user_data_output_dvrp.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_data_output_dvrp.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 211 2008-11-11 04:46:24Z raasch
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_define_netcdf_grid.f90
===================================================================
--- /palm/trunk/SOURCE/user_define_netcdf_grid.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_define_netcdf_grid.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 211 2008-11-11 04:46:24Z raasch
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_dvrp_coltab.f90
===================================================================
--- /palm/trunk/SOURCE/user_dvrp_coltab.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_dvrp_coltab.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 211 2008-11-11 04:46:24Z raasch
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_header.f90
===================================================================
--- /palm/trunk/SOURCE/user_header.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_header.f90	(revision 226)
@@ -4,10 +4,13 @@
 ! Actual revisions:
 ! -----------------
-! +topography_grid_convention
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 2008-12-09 18:00:48Z letzel
+! +topography_grid_convention
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_init.f90
===================================================================
--- /palm/trunk/SOURCE/user_init.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_init.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 211 2008-11-11 04:46:24Z raasch
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_init_3d_model.f90
===================================================================
--- /palm/trunk/SOURCE/user_init_3d_model.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_init_3d_model.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 211 2008-11-11 04:46:24Z raasch
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_init_grid.f90
===================================================================
--- /palm/trunk/SOURCE/user_init_grid.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_init_grid.f90	(revision 226)
@@ -4,10 +4,13 @@
 ! Actual revisions:
 ! -----------------
-! +topography_grid_convention
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 217 2008-12-09 18:00:48Z letzel
+! +topography_grid_convention
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_init_particles.f90
===================================================================
--- /palm/trunk/SOURCE/user_init_particles.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_init_particles.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 211 2008-11-11 04:46:24Z raasch
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_init_plant_canopy.f90
===================================================================
--- /palm/trunk/SOURCE/user_init_plant_canopy.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_init_plant_canopy.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 211 2008-11-11 04:46:24Z raasch
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_last_actions.f90
===================================================================
--- /palm/trunk/SOURCE/user_last_actions.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_last_actions.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 211 2008-11-11 04:46:24Z raasch
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_module.f90
===================================================================
--- /palm/trunk/SOURCE/user_module.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_module.f90	(revision 226)
@@ -4,10 +4,13 @@
 ! Actual revisions:
 ! -----------------
-! Former file user_interface.f90 split into one file per subroutine,
-! revision history cleaned up
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 220 2008-12-18 07:00:36Z raasch
+! Former file user_interface.f90 split into one file per subroutine,
+! revision history cleaned up
 !
 ! 159 2008-04-09 08:06:03Z raasch
Index: /palm/trunk/SOURCE/user_parin.f90
===================================================================
--- /palm/trunk/SOURCE/user_parin.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_parin.f90	(revision 226)
@@ -4,10 +4,13 @@
 ! Actual revisions:
 ! -----------------
-! +topography_grid_convention
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 217 2008-12-09 18:00:48Z letzel
+! +topography_grid_convention
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_particle_attributes.f90
===================================================================
--- /palm/trunk/SOURCE/user_particle_attributes.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_particle_attributes.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 211 2008-11-11 04:46:24Z raasch
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_read_restart_data.f90
===================================================================
--- /palm/trunk/SOURCE/user_read_restart_data.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_read_restart_data.f90	(revision 226)
@@ -7,11 +7,14 @@
 ! Actual revisions:
 ! -----------------
-! reading mechanism revised (subdomain/total domain size can vary arbitrarily
-! between current and previous run),
-! former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 220 2008-12-18 07:00:36Z raasch
+! reading mechanism revised (subdomain/total domain size can vary arbitrarily
+! between current and previous run),
+! former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_spectra.f90
===================================================================
--- /palm/trunk/SOURCE/user_spectra.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_spectra.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 211 2008-11-11 04:46:24Z raasch
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_statistics.f90
===================================================================
--- /palm/trunk/SOURCE/user_statistics.f90	(revision 225)
+++ /palm/trunk/SOURCE/user_statistics.f90	(revision 226)
@@ -4,9 +4,12 @@
 ! Actual revisions:
 ! -----------------
-! Former file user_interface.f90 split into one file per subroutine
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 211 2008-11-11 04:46:24Z raasch
+! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/UTIL/combine_plot_fields.f90
===================================================================
--- /palm/trunk/UTIL/combine_plot_fields.f90	(revision 225)
+++ /palm/trunk/UTIL/combine_plot_fields.f90	(revision 226)
@@ -4,4 +4,11 @@
 ! Actual revisions:
 ! -----------------
+! 
+!
+! Former revisions:
+! -----------------
+! $Id$
+!
+! 210 2008-11-06 08:54:02Z raasch
 ! Size of pf3d adjusted to the required output size (1 gridpoint less, along
 ! all three dimensions), because output of a subset of the data
@@ -11,8 +18,4 @@
 ! avoid INTEL compiler warnings about (automatic) creation of temporary arrays
 ! Bugfix: three misplaced #endif directives
-!
-! Former revisions:
-! -----------------
-! $Id$
 !
 ! 114 2007-10-10 00:03:15Z raasch
