Changeset 226
- Timestamp:
- Feb 2, 2009 7:39:34 AM (16 years ago)
- Location:
- palm/trunk
- Files:
-
- 56 edited
- 1 moved
-
DOC/tec/technical_documentation.html (modified) (2 diffs)
-
SOURCE/Makefile (modified) (5 diffs)
-
SOURCE/advec_particles.f90 (modified) (2 diffs)
-
SOURCE/advec_s_bc.f90 (modified) (1 diff)
-
SOURCE/calc_spectra.f90 (modified) (1 diff)
-
SOURCE/check_for_restart.f90 (modified) (1 diff)
-
SOURCE/check_parameters.f90 (modified) (143 diffs)
-
SOURCE/cpu_log.f90 (modified) (1 diff)
-
SOURCE/cpu_statistics.f90 (modified) (1 diff)
-
SOURCE/data_output_2d.f90 (modified) (1 diff)
-
SOURCE/data_output_dvrp.f90 (modified) (2 diffs)
-
SOURCE/header.f90 (modified) (1 diff)
-
SOURCE/inflow_turbulence.f90 (modified) (1 diff)
-
SOURCE/init_cloud_physics.f90 (modified) (2 diffs)
-
SOURCE/init_coupling.f90 (modified) (1 diff)
-
SOURCE/init_dvrp.f90 (modified) (1 diff)
-
SOURCE/init_grid.f90 (modified) (1 diff)
-
SOURCE/init_pegrid.f90 (modified) (2 diffs)
-
SOURCE/local_stop.f90 (modified) (1 diff)
-
SOURCE/local_tremain.f90 (modified) (1 diff)
-
SOURCE/local_tremain_ini.f90 (modified) (1 diff)
-
SOURCE/message.f90 (moved) (moved from palm/trunk/SOURCE/handle_palm_message.f90) (3 diffs)
-
SOURCE/modules.f90 (modified) (1 diff)
-
SOURCE/netcdf.f90 (modified) (1 diff)
-
SOURCE/package_parin.f90 (modified) (1 diff)
-
SOURCE/palm.f90 (modified) (1 diff)
-
SOURCE/production_e.f90 (modified) (1 diff)
-
SOURCE/read_3d_binary.f90 (modified) (1 diff)
-
SOURCE/read_var_list.f90 (modified) (1 diff)
-
SOURCE/surface_coupler.f90 (modified) (1 diff)
-
SOURCE/timestep.f90 (modified) (1 diff)
-
SOURCE/user_3d_data_averaging.f90 (modified) (1 diff)
-
SOURCE/user_actions.f90 (modified) (1 diff)
-
SOURCE/user_additional_routines.f90 (modified) (1 diff)
-
SOURCE/user_advec_particles.f90 (modified) (1 diff)
-
SOURCE/user_check_data_output.f90 (modified) (1 diff)
-
SOURCE/user_check_data_output_pr.f90 (modified) (1 diff)
-
SOURCE/user_check_parameters.f90 (modified) (3 diffs)
-
SOURCE/user_data_output_2d.f90 (modified) (1 diff)
-
SOURCE/user_data_output_3d.f90 (modified) (1 diff)
-
SOURCE/user_data_output_dvrp.f90 (modified) (1 diff)
-
SOURCE/user_define_netcdf_grid.f90 (modified) (1 diff)
-
SOURCE/user_dvrp_coltab.f90 (modified) (1 diff)
-
SOURCE/user_header.f90 (modified) (1 diff)
-
SOURCE/user_init.f90 (modified) (1 diff)
-
SOURCE/user_init_3d_model.f90 (modified) (1 diff)
-
SOURCE/user_init_grid.f90 (modified) (1 diff)
-
SOURCE/user_init_particles.f90 (modified) (1 diff)
-
SOURCE/user_init_plant_canopy.f90 (modified) (1 diff)
-
SOURCE/user_last_actions.f90 (modified) (1 diff)
-
SOURCE/user_module.f90 (modified) (1 diff)
-
SOURCE/user_parin.f90 (modified) (1 diff)
-
SOURCE/user_particle_attributes.f90 (modified) (1 diff)
-
SOURCE/user_read_restart_data.f90 (modified) (1 diff)
-
SOURCE/user_spectra.f90 (modified) (1 diff)
-
SOURCE/user_statistics.f90 (modified) (1 diff)
-
UTIL/combine_plot_fields.f90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/DOC/tec/technical_documentation.html
r198 r226 12 12 <br><table nosave="" cellpadding="0" cellspacing="0"> <caption> <br> </caption><tbody> 13 13 </tbody><tbody> </tbody> <tbody> <tr nosave=""> <td nosave=""><b>Current 14 model version:</b></td> <td><span style="font-weight: bold;">3. 5</span></td> </tr>14 model version:</b></td> <td><span style="font-weight: bold;">3.6</span></td> </tr> 15 15 <tr nosave=""> <td nosave=""><b>Last 16 16 change of this document</b>: </td> <td nosave=""><b>$Id$</b></td> </tr> … … 2434 2434 init_3d_model, init_dvrp, local_stop, plant_canopy_model, poismg, 2435 2435 prandtl_fluxes, pres, read_3d_binary, user_interface, wall_fluxes, 2436 write_3d_binary<br></td></tr> 2436 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 2437 release contains further additions, changes, and bugfixes for the 2438 SGI-ICE system, as well as important changes like the splitting of the 2439 user-interface into single files, a complete revision of the 2440 pre-compiling mechanism allowing to use different make-depositories 2441 simultaneously, and a revision of the reading-mechanism from restart 2442 files, which has no more restrictions in case that the previous and 2443 current run have different domain/subdomain sizes. A new handling of 2444 all kind of output messages is introduced with this release and will be 2445 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, 2446 check_parameters, data_output_dvrp, init_dvrp, init_pegrid, local_stop, 2447 modules, package_parin, palm, surface_coupler, timestep<br><br>Makefile, 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;"> </td><td style="vertical-align: top;"> </td><td style="vertical-align: top;"> </td><td style="vertical-align: top;">C</td><td style="vertical-align: top;"> 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> 2448 changed to INTEGER(8) in order to avoid "out of range" problems, which 2449 result in measured negative time intervals. (cpu_log, local_tremain, 2450 local_tremain_ini)<br><br>Reading mechanism from restart files 2451 completely revised. The subdomain/total domain size is now allowed to 2452 vary arbitrarily between the current and previous run. (read_var_list, 2453 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>). 2454 One depository per block (given in the config-file) is created. Always 2455 all files from the source directory are copied to the respective 2456 depository. No additional file checks are done any more (mrun version 2457 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 <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, 2458 check_parameters, cpu_log, init_grid, local_stop, local_tremain, 2459 local_tremain_ini, modules, netcdf, read_3d_binary, read_var_list, 2460 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, 2461 user_3d_data_averaging, user_actions, user_advec_particles, 2462 user_check_data_output, user_check_data_output_pr, user_data_output_2d, 2463 user_data_output_3d, user_data_output_dvrp, user_define_netcdf_grid, 2464 user_dvrp_coltab, user_header, user_init_3d_model, user_init, 2465 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;"> </td><td style="vertical-align: top;"> </td><td style="vertical-align: top;"> </td><td style="vertical-align: top;">E</td><td style="vertical-align: top;"> 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, 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 2466 removed: as the thermal stratification is not taken into account for 2467 the evaluation of the wall fluxes at vertical walls, the eddy viscosity 2468 <span style="font-family: Courier New,Courier,monospace;">km</span> must not be used for the evaluation of the velocity gradients <span style="font-family: Courier New,Courier,monospace;">dudy</span>, <span style="font-family: Courier New,Courier,monospace;">dwdy</span>, <span style="font-family: Courier New,Courier,monospace;">dvdx</span> and <span style="font-family: Courier New,Courier,monospace;">dwdx</span>. (production_e)<br><br>Bugfix in calculating <span style="font-family: Courier New,Courier,monospace;">k</span> index in case of oceans runs. (sort_particles)<br><br>Bugfix: no output of particle concentration and radius unless particles have been started. (data_output_2d)<br><br>Bugfix: reading of <span style="font-family: Courier New,Courier,monospace;">spectrum_x|y</span> from restart files ignored if total numbers of grid points do not match. (read_3d_binary)<br><br>Bugfix: abort in case that absolute temperature is below zero. (init_cloud_physics)</td><td style="vertical-align: top;">advec_particles, 2469 calc_spectra, check_for_restart, cpu_statistics, data_output_2d, 2470 header, inflow_turbulence, init_cloud_physics, production_e, 2471 read_3d_binary, timestep<br><br>combine_plot_fields</td></tr> 2437 2472 </tbody> 2438 2473 </table> <b><blink>Attention:</blink></b> -
palm/trunk/SOURCE/Makefile
r217 r226 4 4 # Actual revisions: 5 5 # ----------------- 6 # former file user_interface split into one file per subroutine 7 # +init_coupling, handle_palm_message 6 # 8 7 # 9 8 # Former revisions: 10 9 # ----------------- 11 10 # $Id$ 11 # 12 # 217 2008-12-09 18:00:48Z letzel 13 # former file user_interface split into one file per subroutine 14 # +init_coupling, message 12 15 # 13 16 # 151 2008-03-07 13:42:18Z raasch … … 58 61 disturb_heatflux.f90 eqn_state_seawater.f90 exchange_horiz.f90 exchange_horiz_2d.f90 \ 59 62 fft_xy.f90 flow_statistics.f90 global_min_max.f90 \ 60 h andle_palm_message.f90 header.f90 \61 i mpact_of_latent_heat.f90 inflow_turbulence.f90 init_1d_model.f90 \62 init_ 3d_model.f90 init_advec.f90 init_cloud_physics.f90 init_coupling.f90 \63 init_ dvrp.f90 init_grid.f90 init_ocean.f90 init_particles.f90 init_pegrid.f90 \63 header.f90 impact_of_latent_heat.f90 inflow_turbulence.f90 \ 64 init_1d_model.f90 init_3d_model.f90 init_advec.f90 \ 65 init_cloud_physics.f90 init_coupling.f90 init_dvrp.f90 init_grid.f90 \ 66 init_ocean.f90 init_particles.f90 init_pegrid.f90 \ 64 67 init_pt_anomaly.f90 init_rankine.f90 init_slope.f90 \ 65 68 interaction_droplets_ptq.f90 local_flush.f90 local_getenv.f90 \ 66 69 local_stop.f90 local_system.f90 local_tremain.f90 \ 67 local_tremain_ini.f90 m odules.f90 netcdf.f90 package_parin.f90 \68 pa lm.f90 parin.f90 particle_boundary_conds.f90 \70 local_tremain_ini.f90 message.f90 modules.f90 netcdf.f90 \ 71 package_parin.f90 palm.f90 parin.f90 particle_boundary_conds.f90 \ 69 72 plant_canopy_model.f90 poisfft.f90 \ 70 73 poisfft_hybrid.f90 poismg.f90 prandtl_fluxes.f90 pres.f90 print_1d.f90 \ … … 100 103 diffusion_v.o diffusion_w.o diffusivities.o disturb_field.o \ 101 104 disturb_heatflux.o eqn_state_seawater.o exchange_horiz.o exchange_horiz_2d.o fft_xy.o \ 102 flow_statistics.o global_min_max.o handle_palm_message.o header.o \ 103 impact_of_latent_heat.o \ 105 flow_statistics.o global_min_max.o header.o impact_of_latent_heat.o \ 104 106 inflow_turbulence.o init_1d_model.o init_3d_model.o init_advec.o init_cloud_physics.o \ 105 107 init_coupling.o init_dvrp.o init_grid.o init_ocean.o init_particles.o init_pegrid.o \ 106 108 init_pt_anomaly.o init_rankine.o init_slope.o \ 107 109 interaction_droplets_ptq.o local_flush.o local_getenv.o local_stop.o \ 108 local_system.o local_tremain.o local_tremain_ini.o m odules.o netcdf.o \109 package_parin.o palm.o parin.o particle_boundary_conds.o \110 local_system.o local_tremain.o local_tremain_ini.o message.o modules.o \ 111 netcdf.o package_parin.o palm.o parin.o particle_boundary_conds.o \ 110 112 plant_canopy_model.o poisfft.o \ 111 113 poisfft_hybrid.o poismg.o prandtl_fluxes.o pres.o print_1d.o \ … … 204 206 flow_statistics.o: modules.o 205 207 global_min_max.o: modules.o 206 handle_palm_message.o: modules.o207 208 header.o: modules.o 208 209 impact_of_latent_heat.o: modules.o … … 226 227 local_tremain.o: modules.o 227 228 local_tremain_ini.o: modules.o 229 message.o: modules.o 228 230 modules.o: modules.f90 229 231 netcdf.o: modules.o -
palm/trunk/SOURCE/advec_particles.f90
r212 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Bugfix in calculating k index in case of oceans runs (sort_particles)7 6 ! TEST: PRINT statements on unit 9 (commented out) 8 7 ! … … 10 9 ! ----------------- 11 10 ! $Id$ 11 ! 12 ! 212 2008-11-11 09:09:24Z raasch 13 ! Bugfix in calculating k index in case of oceans runs (sort_particles) 12 14 ! 13 15 ! 150 2008-02-29 08:19:58Z raasch -
palm/trunk/SOURCE/advec_s_bc.f90
r216 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Neumann boundary condition at k=nzb is explicitly set for better reading, 7 ! although this has been already done in boundary_conds 6 ! 8 7 ! 9 8 ! Former revisions: 10 9 ! ----------------- 11 10 ! $Id$ 11 ! 12 ! 216 2008-11-25 07:12:43Z raasch 13 ! Neumann boundary condition at k=nzb is explicitly set for better reading, 14 ! although this has been already done in boundary_conds 12 15 ! 13 16 ! 97 2007-06-21 08:23:15Z raasch -
palm/trunk/SOURCE/calc_spectra.f90
r225 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Bugfix: array d is reallocated in case that multigrid is used6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 225 2009-01-26 14:44:20Z raasch 13 ! Bugfix: array d is reallocated in case that multigrid is used 11 14 ! 12 15 ! 192 2008-08-27 16:51:49Z letzel -
palm/trunk/SOURCE/check_for_restart.f90
r222 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Implementation of an MPI-1 coupling: replaced myid with target_id 7 ! Bugfix for nonparallel execution 6 ! 8 7 ! 9 8 ! Former revisions: 10 9 ! ----------------- 11 10 ! $Id$ 11 ! 12 ! 222 2009-01-12 16:04:16Z letzel 13 ! Implementation of an MPI-1 coupling: replaced myid with target_id 14 ! Bugfix for nonparallel execution 12 15 ! 13 16 ! 108 2007-08-24 15:10:38Z letzel -
palm/trunk/SOURCE/check_parameters.f90
r222 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! 7 ! 8 ! Former revisions: 9 ! ----------------- 10 ! $Id$ 11 ! 12 ! 222 2009-01-12 16:04:16Z letzel 6 13 ! +user_check_parameters 7 14 ! Output of messages replaced by message handling routine. … … 9 16 ! deleted __mpi2 directives 10 17 ! Check that PALM is called with mrun -K parallel for coupling 11 !12 ! Former revisions:13 ! -----------------14 ! $Id$15 18 ! 16 19 ! 197 2008-09-16 15:29:03Z raasch … … 114 117 message_string = '"host" is not set. Please check that environment ' // & 115 118 'variable "localhost" & is set before running PALM' 116 CALL handle_palm_message( 'check_parameters', 'PA0001', 0, 0, 0, 6, 0 )119 CALL message( 'check_parameters', 'PA0001', 0, 0, 0, 6, 0 ) 117 120 ENDIF 118 121 … … 123 126 coupling_mode /= 'ocean_to_atmosphere' ) THEN 124 127 message_string = 'illegal coupling mode: ' // TRIM( coupling_mode ) 125 CALL handle_palm_message( 'check_parameters', 'PA0002', 1, 2, 0, 6, 0 )128 CALL message( 'check_parameters', 'PA0002', 1, 2, 0, 6, 0 ) 126 129 ENDIF 127 130 … … 133 136 message_string = 'dt_coupling is not set but required for coup' // & 134 137 'ling mode "' // TRIM( coupling_mode ) // '"' 135 CALL handle_palm_message( 'check_parameters', 'PA0003', 1, 2, 0, 6, & 136 0 ) 138 CALL message( 'check_parameters', 'PA0003', 1, 2, 0, 6, 0 ) 137 139 ENDIF 138 140 … … 146 148 '": dt_coupling = ', dt_coupling, '& is not equal to ', & 147 149 'dt_coupling_remote = ', remote 148 CALL handle_palm_message( 'check_parameters', 'PA0004', 1, 2, 0, 6, & 149 0 ) 150 CALL message( 'check_parameters', 'PA0004', 1, 2, 0, 6, 0 ) 150 151 ENDIF 151 152 IF ( dt_coupling <= 0.0 ) THEN … … 157 158 '": dt_coupling <= 0.0 & is not allowed and is reset to ', & 158 159 'MAX(dt_max(A,O)) = ', dt_coupling 159 CALL handle_palm_message( 'check_parameters', 'PA0005', 0, 1, 0, 6, & 160 0 ) 160 CALL message( 'check_parameters', 'PA0005', 0, 1, 0, 6, 0 ) 161 161 ENDIF 162 162 … … 169 169 '": restart_time = ', restart_time, '& is not equal to ', & 170 170 'restart_time_remote = ', remote 171 CALL handle_palm_message( 'check_parameters', 'PA0006', 1, 2, 0, 6, & 172 0 ) 171 CALL message( 'check_parameters', 'PA0006', 1, 2, 0, 6, 0 ) 173 172 ENDIF 174 173 … … 181 180 '": dt_restart = ', dt_restart, '& is not equal to ', & 182 181 'dt_restart_remote = ', remote 183 CALL handle_palm_message( 'check_parameters', 'PA0007', 1, 2, 0, 6, & 184 0 ) 182 CALL message( 'check_parameters', 'PA0007', 1, 2, 0, 6, 0 ) 185 183 ENDIF 186 184 … … 192 190 '": end_time = ', end_time, '& is not equal to ', & 193 191 'end_time_remote = ', remote 194 CALL handle_palm_message( 'check_parameters', 'PA0008', 1, 2, 0, 6, & 195 0 ) 192 CALL message( 'check_parameters', 'PA0008', 1, 2, 0, 6, 0 ) 196 193 ENDIF 197 194 … … 202 199 WRITE( message_string, * ) 'coupling mode "', TRIM( coupling_mode ), & 203 200 '": dx = ', dx, '& is not equal to dx_remote = ', remote 204 CALL handle_palm_message( 'check_parameters', 'PA0009', 1, 2, 0, 6, & 205 0 ) 201 CALL message( 'check_parameters', 'PA0009', 1, 2, 0, 6, 0 ) 206 202 ENDIF 207 203 … … 212 208 WRITE( message_string, * ) 'coupling mode "', TRIM( coupling_mode ), & 213 209 '": dy = ', dy, '& is not equal to dy_remote = ', remote 214 CALL handle_palm_message( 'check_parameters', 'PA0010', 1, 2, 0, 6, & 215 0 ) 210 CALL message( 'check_parameters', 'PA0010', 1, 2, 0, 6, 0 ) 216 211 ENDIF 217 212 … … 222 217 WRITE( message_string, * ) 'coupling mode "', TRIM( coupling_mode ), & 223 218 '": nx = ', nx, '& is not equal to nx_remote = ', iremote 224 CALL handle_palm_message( 'check_parameters', 'PA0011', 1, 2, 0, 6, & 225 0 ) 219 CALL message( 'check_parameters', 'PA0011', 1, 2, 0, 6, 0 ) 226 220 ENDIF 227 221 … … 232 226 WRITE( message_string, * ) 'coupling mode "', TRIM( coupling_mode ), & 233 227 '": ny = ', ny, '& is not equal to ny_remote = ', iremote 234 CALL handle_palm_message( 'check_parameters', 'PA0012', 1, 2, 0, 6, & 235 0 ) 228 CALL message( 'check_parameters', 'PA0012', 1, 2, 0, 6, 0 ) 236 229 ENDIF 237 230 #else 238 231 WRITE( message_string, * ) 'coupling requires PALM to be called with', & 239 232 ' ''mrun -K parallel''' 240 CALL handle_palm_message( 'check_parameters', 'PA0141', 1, 2, 0, 6, 0 )233 CALL message( 'check_parameters', 'PA0141', 1, 2, 0, 6, 0 ) 241 234 #endif 242 235 ENDIF … … 288 281 message_string = 'illegal value given for loop_optimization: "' // & 289 282 TRIM( loop_optimization ) // '"' 290 CALL handle_palm_message( 'check_parameters', 'PA0013', 1, 2, 0, 6, 0 )283 CALL message( 'check_parameters', 'PA0013', 1, 2, 0, 6, 0 ) 291 284 ENDIF 292 285 … … 328 321 message_string = 'a non-flat topography does not allow ' // & 329 322 TRIM( action ) 330 CALL handle_palm_message( 'check_parameters', 'PA0014', 1, 2, 0, 6, & 331 0 ) 323 CALL message( 'check_parameters', 'PA0014', 1, 2, 0, 6, 0 ) 332 324 ENDIF 333 325 ENDIF … … 345 337 IF ( action /= ' ' ) THEN 346 338 message_string = 'ocean = .T. does not allow ' // TRIM( action ) 347 CALL handle_palm_message( 'check_parameters', 'PA0015', 1, 2, 0, 6, & 348 0 ) 339 CALL message( 'check_parameters', 'PA0015', 1, 2, 0, 6, 0 ) 349 340 ENDIF 350 341 ENDIF … … 357 348 message_string = 'unknown solver for perturbation pressure: psolver' // & 358 349 ' = "' // TRIM( psolver ) // '"' 359 CALL handle_palm_message( 'check_parameters', 'PA0016', 1, 2, 0, 6, 0 )350 CALL message( 'check_parameters', 'PA0016', 1, 2, 0, 6, 0 ) 360 351 ENDIF 361 352 … … 365 356 'for a 1d domain-decomposition along x & please do' // & 366 357 ' not set npey/=1 in the parameter file' 367 CALL handle_palm_message( 'check_parameters', 'PA0017', 1, 2, 0, 6, 0 )358 CALL message( 'check_parameters', 'PA0017', 1, 2, 0, 6, 0 ) 368 359 ENDIF 369 360 IF ( psolver == 'poisfft_hybrid' .AND. & … … 374 365 'work for subdomains with unequal size & please ' // & 375 366 'set grid_matching = ''strict'' in the parameter file' 376 CALL handle_palm_message( 'check_parameters', 'PA0018', 1, 2, 0, 6, 0 )367 CALL message( 'check_parameters', 'PA0018', 1, 2, 0, 6, 0 ) 377 368 ENDIF 378 369 #else … … 380 371 message_string = 'psolver = "' // TRIM( psolver ) // '" only works' // & 381 372 ' for a parallel environment' 382 CALL handle_palm_message( 'check_parameters', 'PA0019', 1, 2, 0, 6, 0 )373 CALL message( 'check_parameters', 'PA0019', 1, 2, 0, 6, 0 ) 383 374 ENDIF 384 375 #endif … … 392 383 message_string = 'unknown multigrid cycle: cycle_mg = "' // & 393 384 TRIM( cycle_mg ) // '"' 394 CALL handle_palm_message( 'check_parameters', 'PA0020', 1, 2, 0, 6, & 395 0 ) 385 CALL message( 'check_parameters', 'PA0020', 1, 2, 0, 6, 0 ) 396 386 ENDIF 397 387 ENDIF … … 402 392 message_string = 'unknown fft-algorithm: fft_method = "' // & 403 393 TRIM( fft_method ) // '"' 404 CALL handle_palm_message( 'check_parameters', 'PA0021', 1, 2, 0, 6, 0 )394 CALL message( 'check_parameters', 'PA0021', 1, 2, 0, 6, 0 ) 405 395 ENDIF 406 396 … … 411 401 message_string = 'unknown advection scheme: momentum_advec = "' // & 412 402 TRIM( momentum_advec ) // '"' 413 CALL handle_palm_message( 'check_parameters', 'PA0022', 1, 2, 0, 6, 0 )403 CALL message( 'check_parameters', 'PA0022', 1, 2, 0, 6, 0 ) 414 404 ENDIF 415 405 IF ( ( momentum_advec == 'ups-scheme' .OR. scalar_advec == 'ups-scheme' )& … … 418 408 '" is not allowed with timestep_scheme = "' // & 419 409 TRIM( timestep_scheme ) // '"' 420 CALL handle_palm_message( 'check_parameters', 'PA0023', 1, 2, 0, 6, 0 )410 CALL message( 'check_parameters', 'PA0023', 1, 2, 0, 6, 0 ) 421 411 ENDIF 422 412 … … 425 415 message_string = 'unknown advection scheme: scalar_advec = "' // & 426 416 TRIM( scalar_advec ) // '"' 427 CALL handle_palm_message( 'check_parameters', 'PA0024', 1, 2, 0, 6, 0 )417 CALL message( 'check_parameters', 'PA0024', 1, 2, 0, 6, 0 ) 428 418 ENDIF 429 419 … … 432 422 message_string = 'use_upstream_for_tke set .TRUE. because ' // & 433 423 'use_sgs_for_particles = .TRUE.' 434 CALL handle_palm_message( 'check_parameters', 'PA0025', 0, 1, 0, 6, 0 )424 CALL message( 'check_parameters', 'PA0025', 0, 1, 0, 6, 0 ) 435 425 ENDIF 436 426 … … 438 428 message_string = 'use_upstream_for_tke = .TRUE. not allowed with ' // & 439 429 'timestep_scheme = "' // TRIM( timestep_scheme ) // '"' 440 CALL handle_palm_message( 'check_parameters', 'PA0026', 1, 2, 0, 6, 0 )430 CALL message( 'check_parameters', 'PA0026', 1, 2, 0, 6, 0 ) 441 431 ENDIF 442 432 … … 463 453 message_string = 'unknown timestep scheme: timestep_scheme = "' // & 464 454 TRIM( timestep_scheme ) // '"' 465 CALL handle_palm_message( 'check_parameters', 'PA0027', 1, 2, 0, 6, & 466 0 ) 455 CALL message( 'check_parameters', 'PA0027', 1, 2, 0, 6, 0 ) 467 456 468 457 END SELECT … … 473 462 '" & does not work with timestep_scheme "' // & 474 463 TRIM( timestep_scheme ) // '"' 475 CALL handle_palm_message( 'check_parameters', 'PA0028', 1, 2, 0, 6, 0 )464 CALL message( 'check_parameters', 'PA0028', 1, 2, 0, 6, 0 ) 476 465 ENDIF 477 466 … … 481 470 TRIM( momentum_advec ) // '" & does not work with ' // & 482 471 'timestep_scheme "' // TRIM( timestep_scheme ) // '"' 483 CALL handle_palm_message( 'check_parameters', 'PA0029', 1, 2, 0, 6, 0 )472 CALL message( 'check_parameters', 'PA0029', 1, 2, 0, 6, 0 ) 484 473 ENDIF 485 474 … … 500 489 message_string = 'initializing_action = "' // & 501 490 TRIM( action ) // '" unkown or not allowed' 502 CALL handle_palm_message( 'check_parameters', 'PA0030', 1, 2, & 503 0, 6, 0 ) 491 CALL message( 'check_parameters', 'PA0030', 1, 2, 0, 6, 0 ) 504 492 505 493 END SELECT … … 512 500 ' and "set_1d-model_profiles" are not allowed ' // & 513 501 'simultaneously' 514 CALL handle_palm_message( 'check_parameters', 'PA0031', 1, 2, 0, 6, 0 )502 CALL message( 'check_parameters', 'PA0031', 1, 2, 0, 6, 0 ) 515 503 ENDIF 516 504 … … 519 507 message_string = 'initializing_actions = "set_constant_profiles"' // & 520 508 ' and "by_user" are not allowed simultaneously' 521 CALL handle_palm_message( 'check_parameters', 'PA0032', 1, 2, 0, 6, 0 )509 CALL message( 'check_parameters', 'PA0032', 1, 2, 0, 6, 0 ) 522 510 ENDIF 523 511 … … 526 514 message_string = 'initializing_actions = "by_user" and ' // & 527 515 '"set_1d-model_profiles" are not allowed simultaneously' 528 CALL handle_palm_message( 'check_parameters', 'PA0033', 1, 2, 0, 6, 0 )516 CALL message( 'check_parameters', 'PA0033', 1, 2, 0, 6, 0 ) 529 517 ENDIF 530 518 … … 532 520 WRITE( message_string, * ) 'cloud_physics = ', cloud_physics, ' is ', & 533 521 'not allowed with humidity = ', humidity 534 CALL handle_palm_message( 'check_parameters', 'PA0034', 1, 2, 0, 6, 0 )522 CALL message( 'check_parameters', 'PA0034', 1, 2, 0, 6, 0 ) 535 523 ENDIF 536 524 … … 538 526 WRITE( message_string, * ) 'precipitation = ', precipitation, ' is ', & 539 527 'not allowed with cloud_physics = ', cloud_physics 540 CALL handle_palm_message( 'check_parameters', 'PA0035', 1, 2, 0, 6, 0 )528 CALL message( 'check_parameters', 'PA0035', 1, 2, 0, 6, 0 ) 541 529 ENDIF 542 530 … … 544 532 message_string = 'humidity = .TRUE. and sloping_surface = .TRUE. ' // & 545 533 'are not allowed simultaneously' 546 CALL handle_palm_message( 'check_parameters', 'PA0036', 1, 2, 0, 6, 0 )534 CALL message( 'check_parameters', 'PA0036', 1, 2, 0, 6, 0 ) 547 535 ENDIF 548 536 549 537 IF ( humidity .AND. scalar_advec == 'ups-scheme' ) THEN 550 538 message_string = 'UPS-scheme is not implemented for humidity = .TRUE.' 551 CALL handle_palm_message( 'check_parameters', 'PA0037', 1, 2, 0, 6, 0 )539 CALL message( 'check_parameters', 'PA0037', 1, 2, 0, 6, 0 ) 552 540 ENDIF 553 541 … … 555 543 message_string = 'humidity = .TRUE. and passive_scalar = .TRUE. ' // & 556 544 'is not allowed simultaneously' 557 CALL handle_palm_message( 'check_parameters', 'PA0038', 1, 2, 0, 6, 0 )545 CALL message( 'check_parameters', 'PA0038', 1, 2, 0, 6, 0 ) 558 546 ENDIF 559 547 … … 561 549 message_string = 'UPS-scheme is not implemented for passive_scalar' // & 562 550 ' = .TRUE.' 563 CALL handle_palm_message( 'check_parameters', 'PA0039', 1, 2, 0, 6, 0 )551 CALL message( 'check_parameters', 'PA0039', 1, 2, 0, 6, 0 ) 564 552 ENDIF 565 553 … … 567 555 message_string = 'illegal value "' // TRIM( grid_matching ) // & 568 556 '" found for parameter grid_matching' 569 CALL handle_palm_message( 'check_parameters', 'PA0040', 1, 2, 0, 6, 0 )557 CALL message( 'check_parameters', 'PA0040', 1, 2, 0, 6, 0 ) 570 558 ENDIF 571 559 … … 573 561 message_string = 'plant_canopy = .TRUE. requires a non-zero drag ' // & 574 562 'coefficient & given value is drag_coefficient = 0.0' 575 CALL handle_palm_message( 'check_parameters', 'PA0041', 1, 2, 0, 6, 0 )563 CALL message( 'check_parameters', 'PA0041', 1, 2, 0, 6, 0 ) 576 564 ENDIF 577 565 … … 945 933 IF ( ocean .AND. .NOT. use_top_fluxes ) THEN 946 934 message_string = 'use_top_fluxes must be .TRUE. in ocean version' 947 CALL handle_palm_message( 'check_parameters', 'PA0042', 1, 2, 0, 6, 0 )935 CALL message( 'check_parameters', 'PA0042', 1, 2, 0, 6, 0 ) 948 936 ENDIF 949 937 … … 954 942 WRITE( message_string, * ) 'ABS( alpha_surface = ', alpha_surface, & 955 943 ' ) must be < 90.0' 956 CALL handle_palm_message( 'check_parameters', 'PA0043', 1, 2, 0, 6, & 957 0 ) 944 CALL message( 'check_parameters', 'PA0043', 1, 2, 0, 6, 0 ) 958 945 ENDIF 959 946 sloping_surface = .TRUE. … … 967 954 IF ( dt <= 0.0 .AND. dt /= -1.0 ) THEN 968 955 WRITE( message_string, * ) 'dt = ', dt , ' <= 0.0' 969 CALL handle_palm_message( 'check_parameters', 'PA0044', 1, 2, 0, 6, & 970 0 ) 956 CALL message( 'check_parameters', 'PA0044', 1, 2, 0, 6, 0 ) 971 957 ENDIF 972 958 dt_3d = dt … … 991 977 WRITE( message_string, * ) 'cfl_factor = ', cfl_factor, & 992 978 ' out of range & 0.0 < cfl_factor <= 1.0 is required' 993 CALL handle_palm_message( 'check_parameters', 'PA0045', 1, 2, 0, 6, & 994 0 ) 979 CALL message( 'check_parameters', 'PA0045', 1, 2, 0, 6, 0 ) 995 980 ENDIF 996 981 ENDIF … … 1012 997 message_string = 'baroclinicity (ug) not allowed simultaneously' // & 1013 998 ' with galilei transformation' 1014 CALL handle_palm_message( 'check_parameters', 'PA0046', 1, 2, 0, 6, & 1015 0 ) 999 CALL message( 'check_parameters', 'PA0046', 1, 2, 0, 6, 0 ) 1016 1000 ELSEIF ( use_ug_for_galilei_tr .AND. & 1017 1001 vg_vertical_gradient_level(1) /= 0.0 ) THEN 1018 1002 message_string = 'baroclinicity (vg) not allowed simultaneously' // & 1019 1003 ' with galilei transformation' 1020 CALL handle_palm_message( 'check_parameters', 'PA0047', 1, 2, 0, 6, & 1021 0 ) 1004 CALL message( 'check_parameters', 'PA0047', 1, 2, 0, 6, 0 ) 1022 1005 ELSE 1023 1006 message_string = 'variable translation speed used for galilei-' // & 1024 1007 'transformation, which may cause & instabilities in stably ' // & 1025 1008 'stratified regions' 1026 CALL handle_palm_message( 'check_parameters', 'PA0048', 0, 1, 0, 6, & 1027 0 ) 1009 CALL message( 'check_parameters', 'PA0048', 0, 1, 0, 6, 0 ) 1028 1010 ENDIF 1029 1011 ENDIF … … 1041 1023 message_string = 'unknown boundary condition: bc_lr = "' // & 1042 1024 TRIM( bc_lr ) // '"' 1043 CALL handle_palm_message( 'check_parameters', 'PA0049', 1, 2, 0, 6, 0 )1025 CALL message( 'check_parameters', 'PA0049', 1, 2, 0, 6, 0 ) 1044 1026 ENDIF 1045 1027 IF ( bc_ns /= 'cyclic' .AND. bc_ns /= 'dirichlet/radiation' .AND. & … … 1047 1029 message_string = 'unknown boundary condition: bc_ns = "' // & 1048 1030 TRIM( bc_ns ) // '"' 1049 CALL handle_palm_message( 'check_parameters', 'PA0050', 1, 2, 0, 6, 0 )1031 CALL message( 'check_parameters', 'PA0050', 1, 2, 0, 6, 0 ) 1050 1032 ENDIF 1051 1033 … … 1058 1040 message_string = 'non-cyclic lateral boundaries do not allow ' // & 1059 1041 'psolver = "' // TRIM( psolver ) // '"' 1060 CALL handle_palm_message( 'check_parameters', 'PA0051', 1, 2, 0, 6, & 1061 0 ) 1042 CALL message( 'check_parameters', 'PA0051', 1, 2, 0, 6, 0 ) 1062 1043 ENDIF 1063 1044 IF ( momentum_advec /= 'pw-scheme' ) THEN 1064 1045 message_string = 'non-cyclic lateral boundaries do not allow ' // & 1065 1046 'momentum_advec = "' // TRIM( momentum_advec ) // '"' 1066 CALL handle_palm_message( 'check_parameters', 'PA0052', 1, 2, 0, 6, & 1067 0 ) 1047 CALL message( 'check_parameters', 'PA0052', 1, 2, 0, 6, 0 ) 1068 1048 ENDIF 1069 1049 IF ( scalar_advec /= 'pw-scheme' ) THEN 1070 1050 message_string = 'non-cyclic lateral boundaries do not allow ' // & 1071 1051 'scalar_advec = "' // TRIM( scalar_advec ) // '"' 1072 CALL handle_palm_message( 'check_parameters', 'PA0053', 1, 2, 0, 6, & 1073 0 ) 1052 CALL message( 'check_parameters', 'PA0053', 1, 2, 0, 6, 0 ) 1074 1053 ENDIF 1075 1054 IF ( galilei_transformation ) THEN 1076 1055 message_string = 'non-cyclic lateral boundaries do not allow ' // & 1077 1056 'galilei_transformation = .T.' 1078 CALL handle_palm_message( 'check_parameters', 'PA0054', 1, 2, 0, 6, & 1079 0 ) 1057 CALL message( 'check_parameters', 'PA0054', 1, 2, 0, 6, 0 ) 1080 1058 ENDIF 1081 1059 ENDIF … … 1087 1065 IF ( adjust_mixing_length .AND. prandtl_layer ) THEN 1088 1066 message_string = 'adjust_mixing_length = TRUE and bc_e_b = "neumann"' 1089 CALL handle_palm_message( 'check_parameters', 'PA0055', 0, 1, 0, 6, & 1090 0 ) 1067 CALL message( 'check_parameters', 'PA0055', 0, 1, 0, 6, 0 ) 1091 1068 ENDIF 1092 1069 ELSEIF ( bc_e_b == '(u*)**2+neumann' ) THEN … … 1095 1072 message_string = 'adjust_mixing_length = FALSE and bc_e_b = "' // & 1096 1073 TRIM( bc_e_b ) // '"' 1097 CALL handle_palm_message( 'check_parameters', 'PA0056', 0, 1, 0, 6, & 1098 0 ) 1074 CALL message( 'check_parameters', 'PA0056', 0, 1, 0, 6, 0 ) 1099 1075 ENDIF 1100 1076 IF ( .NOT. prandtl_layer ) THEN … … 1103 1079 message_string = 'boundary condition bc_e_b changed to "' // & 1104 1080 TRIM( bc_e_b ) // '"' 1105 CALL handle_palm_message( 'check_parameters', 'PA0057', 0, 1, 0, 6, & 1106 0 ) 1081 CALL message( 'check_parameters', 'PA0057', 0, 1, 0, 6, 0 ) 1107 1082 ENDIF 1108 1083 ELSE 1109 1084 message_string = 'unknown boundary condition: bc_e_b = "' // & 1110 1085 TRIM( bc_e_b ) // '"' 1111 CALL handle_palm_message( 'check_parameters', 'PA0058', 1, 2, 0, 6, 0 )1086 CALL message( 'check_parameters', 'PA0058', 1, 2, 0, 6, 0 ) 1112 1087 ENDIF 1113 1088 … … 1123 1098 message_string = 'unknown boundary condition: bc_p_b = "' // & 1124 1099 TRIM( bc_p_b ) // '"' 1125 CALL handle_palm_message( 'check_parameters', 'PA0059', 1, 2, 0, 6, 0 )1100 CALL message( 'check_parameters', 'PA0059', 1, 2, 0, 6, 0 ) 1126 1101 ENDIF 1127 1102 IF ( ibc_p_b == 2 .AND. .NOT. prandtl_layer ) THEN 1128 1103 message_string = 'boundary condition: bc_p_b = "' // TRIM( bc_p_b ) // & 1129 1104 '" not allowed with prandtl_layer = .FALSE.' 1130 CALL handle_palm_message( 'check_parameters', 'PA0060', 1, 2, 0, 6, 0 )1105 CALL message( 'check_parameters', 'PA0060', 1, 2, 0, 6, 0 ) 1131 1106 ENDIF 1132 1107 IF ( bc_p_t == 'dirichlet' ) THEN … … 1137 1112 message_string = 'unknown boundary condition: bc_p_t = "' // & 1138 1113 TRIM( bc_p_t ) // '"' 1139 CALL handle_palm_message( 'check_parameters', 'PA0061', 1, 2, 0, 6, 0 )1114 CALL message( 'check_parameters', 'PA0061', 1, 2, 0, 6, 0 ) 1140 1115 ENDIF 1141 1116 … … 1152 1127 message_string = 'unknown boundary condition: bc_pt_b = "' // & 1153 1128 TRIM( bc_pt_b ) // '"' 1154 CALL handle_palm_message( 'check_parameters', 'PA0062', 1, 2, 0, 6, & 1155 0 ) 1129 CALL message( 'check_parameters', 'PA0062', 1, 2, 0, 6, 0 ) 1156 1130 ENDIF 1157 1131 ENDIF … … 1166 1140 message_string = 'unknown boundary condition: bc_pt_t = "' // & 1167 1141 TRIM( bc_pt_t ) // '"' 1168 CALL handle_palm_message( 'check_parameters', 'PA0063', 1, 2, 0, 6, 0 )1142 CALL message( 'check_parameters', 'PA0063', 1, 2, 0, 6, 0 ) 1169 1143 ENDIF 1170 1144 … … 1178 1152 message_string = 'both, top_momentumflux_u AND top_momentumflux_v ' // & 1179 1153 'must be set' 1180 CALL handle_palm_message( 'check_parameters', 'PA0064', 1, 2, 0, 6, 0 )1154 CALL message( 'check_parameters', 'PA0064', 1, 2, 0, 6, 0 ) 1181 1155 ENDIF 1182 1156 … … 1189 1163 message_string = 'boundary_condition: bc_pt_b = "' // TRIM( bc_pt_b ) //& 1190 1164 '& is not allowed with constant_heatflux = .TRUE.' 1191 CALL handle_palm_message( 'check_parameters', 'PA0065', 1, 2, 0, 6, 0 )1165 CALL message( 'check_parameters', 'PA0065', 1, 2, 0, 6, 0 ) 1192 1166 ENDIF 1193 1167 IF ( constant_heatflux .AND. pt_surface_initial_change /= 0.0 ) THEN … … 1195 1169 'wed with pt_surface_initial_change (/=0) = ', & 1196 1170 pt_surface_initial_change 1197 CALL handle_palm_message( 'check_parameters', 'PA0066', 1, 2, 0, 6, 0 )1171 CALL message( 'check_parameters', 'PA0066', 1, 2, 0, 6, 0 ) 1198 1172 ENDIF 1199 1173 … … 1206 1180 message_string = 'boundary_condition: bc_pt_t = "' // TRIM( bc_pt_t ) //& 1207 1181 '" is not allowed with constant_top_heatflux = .TRUE.' 1208 CALL handle_palm_message( 'check_parameters', 'PA0067', 1, 2, 0, 6, 0 )1182 CALL message( 'check_parameters', 'PA0067', 1, 2, 0, 6, 0 ) 1209 1183 ENDIF 1210 1184 … … 1219 1193 message_string = 'unknown boundary condition: bc_sa_t = "' // & 1220 1194 TRIM( bc_sa_t ) // '"' 1221 CALL handle_palm_message( 'check_parameters', 'PA0068', 1, 2, 0, 6, & 1222 0 ) 1195 CALL message( 'check_parameters', 'PA0068', 1, 2, 0, 6, 0 ) 1223 1196 ENDIF 1224 1197 … … 1228 1201 TRIM( bc_sa_t ) // '" requires to set ' // & 1229 1202 'top_salinityflux' 1230 CALL handle_palm_message( 'check_parameters', 'PA0069', 1, 2, 0, 6, & 1231 0 ) 1203 CALL message( 'check_parameters', 'PA0069', 1, 2, 0, 6, 0 ) 1232 1204 ENDIF 1233 1205 … … 1241 1213 TRIM( bc_sa_t ) // '" is not allowed with ' // & 1242 1214 'constant_top_salinityflux = .TRUE.' 1243 CALL handle_palm_message( 'check_parameters', 'PA0070', 1, 2, 0, 6, & 1244 0 ) 1215 CALL message( 'check_parameters', 'PA0070', 1, 2, 0, 6, 0 ) 1245 1216 ENDIF 1246 1217 … … 1263 1234 message_string = 'unknown boundary condition: bc_' // TRIM( sq ) // & 1264 1235 '_b ="' // TRIM( bc_q_b ) // '"' 1265 CALL handle_palm_message( 'check_parameters', 'PA0071', 1, 2, 0, 6, & 1266 0 ) 1236 CALL message( 'check_parameters', 'PA0071', 1, 2, 0, 6, 0 ) 1267 1237 ENDIF 1268 1238 IF ( bc_q_t == 'dirichlet' ) THEN … … 1273 1243 message_string = 'unknown boundary condition: bc_' // TRIM( sq ) // & 1274 1244 '_t ="' // TRIM( bc_q_t ) // '"' 1275 CALL handle_palm_message( 'check_parameters', 'PA0072', 1, 2, 0, 6, & 1276 0 ) 1245 CALL message( 'check_parameters', 'PA0072', 1, 2, 0, 6, 0 ) 1277 1246 ENDIF 1278 1247 … … 1287 1256 '= "' // TRIM( bc_q_b ) // '" is not allowed wi' // & 1288 1257 'th prescribed surface flux' 1289 CALL handle_palm_message( 'check_parameters', 'PA0073', 1, 2, 0, 6, & 1290 0 ) 1258 CALL message( 'check_parameters', 'PA0073', 1, 2, 0, 6, 0 ) 1291 1259 ENDIF 1292 1260 IF ( constant_waterflux .AND. q_surface_initial_change /= 0.0 ) THEN … … 1294 1262 'wed with ', sq, '_surface_initial_change (/=0) = ', & 1295 1263 q_surface_initial_change 1296 CALL handle_palm_message( 'check_parameters', 'PA0074', 1, 2, 0, 6, & 1297 0 ) 1264 CALL message( 'check_parameters', 'PA0074', 1, 2, 0, 6, 0 ) 1298 1265 ENDIF 1299 1266 … … 1309 1276 message_string = 'boundary condition: bc_uv_b = "' // & 1310 1277 TRIM( bc_uv_b ) // '" is not allowed with prandtl_layer = .TRUE.' 1311 CALL handle_palm_message( 'check_parameters', 'PA0075', 1, 2, 0, 6, & 1312 0 ) 1278 CALL message( 'check_parameters', 'PA0075', 1, 2, 0, 6, 0 ) 1313 1279 ENDIF 1314 1280 ELSE 1315 1281 message_string = 'unknown boundary condition: bc_uv_b = "' // & 1316 1282 TRIM( bc_uv_b ) // '"' 1317 CALL handle_palm_message( 'check_parameters', 'PA0076', 1, 2, 0, 6, 0 )1283 CALL message( 'check_parameters', 'PA0076', 1, 2, 0, 6, 0 ) 1318 1284 ENDIF 1319 1285 … … 1329 1295 message_string = 'unknown boundary condition: bc_uv_t = "' // & 1330 1296 TRIM( bc_uv_t ) // '"' 1331 CALL handle_palm_message( 'check_parameters', 'PA0077', 1, 2, 0, 6, & 1332 0 ) 1297 CALL message( 'check_parameters', 'PA0077', 1, 2, 0, 6, 0 ) 1333 1298 ENDIF 1334 1299 ENDIF … … 1347 1312 WRITE( message_string, * ) 'rayleigh_damping_factor = ', & 1348 1313 rayleigh_damping_factor, ' out of range [0.0,1.0]' 1349 CALL handle_palm_message( 'check_parameters', 'PA0078', 1, 2, 0, 6, & 1350 0 ) 1314 CALL message( 'check_parameters', 'PA0078', 1, 2, 0, 6, 0 ) 1351 1315 ENDIF 1352 1316 ENDIF … … 1364 1328 WRITE( message_string, * ) 'rayleigh_damping_height = ', & 1365 1329 rayleigh_damping_height, ' out of range [0.0,', zu(nzt), ']' 1366 CALL handle_palm_message( 'check_parameters', 'PA0079', 1, 2, 0, & 1367 6, 0 ) 1330 CALL message( 'check_parameters', 'PA0079', 1, 2, 0, 6, 0 ) 1368 1331 ENDIF 1369 1332 ELSE … … 1372 1335 WRITE( message_string, * ) 'rayleigh_damping_height = ', & 1373 1336 rayleigh_damping_height, ' out of range [0.0,', zu(nzb), ']' 1374 CALL handle_palm_message( 'check_parameters', 'PA0079', 1, 2, 0, & 1375 6, 0 ) 1337 CALL message( 'check_parameters', 'PA0079', 1, 2, 0, 6, 0 ) 1376 1338 ENDIF 1377 1339 ENDIF … … 1384 1346 overshoot_limit_e < 0.0 ) THEN 1385 1347 message_string = 'overshoot_limit_... < 0.0 is not allowed' 1386 CALL handle_palm_message( 'check_parameters', 'PA0080', 1, 2, 0, 6, 0 )1348 CALL message( 'check_parameters', 'PA0080', 1, 2, 0, 6, 0 ) 1387 1349 ENDIF 1388 1350 IF ( ups_limit_u < 0.0 .OR. ups_limit_v < 0.0 .OR. ups_limit_w < 0.0 .OR. & 1389 1351 ups_limit_pt < 0.0 .OR. ups_limit_e < 0.0 ) THEN 1390 1352 message_string = 'ups_limit_... < 0.0 is not allowed' 1391 CALL handle_palm_message( 'check_parameters', 'PA0081', 1, 2, 0, 6, 0 )1353 CALL message( 'check_parameters', 'PA0081', 1, 2, 0, 6, 0 ) 1392 1354 ENDIF 1393 1355 … … 1399 1361 WRITE ( message_string, * ) 'number of statistic_regions = ', & 1400 1362 statistic_regions+1, ' but only 10 regions are allowed' 1401 CALL handle_palm_message( 'check_parameters', 'PA0082', 1, 2, 0, 6, 0 )1363 CALL message( 'check_parameters', 'PA0082', 1, 2, 0, 6, 0 ) 1402 1364 ENDIF 1403 1365 IF ( normalizing_region > statistic_regions .OR. & … … 1406 1368 normalizing_region, ' must be >= 0 and <= ',statistic_regions, & 1407 1369 ' (value of statistic_regions)' 1408 CALL handle_palm_message( 'check_parameters', 'PA0083', 1, 2, 0, 6, 0 )1370 CALL message( 'check_parameters', 'PA0083', 1, 2, 0, 6, 0 ) 1409 1371 ENDIF 1410 1372 … … 1416 1378 message_string = 'dt_sort_particles is reset to 0.0 because of cloud' //& 1417 1379 '_droplets = .TRUE.' 1418 CALL handle_palm_message( 'check_parameters', 'PA0084', 0, 1, 0, 6, 0 )1380 CALL message( 'check_parameters', 'PA0084', 0, 1, 0, 6, 0 ) 1419 1381 ENDIF 1420 1382 … … 1455 1417 WRITE( message_string, * ) 'averaging_interval = ', & 1456 1418 averaging_interval, ' must be <= dt_data_output = ', dt_data_output 1457 CALL handle_palm_message( 'check_parameters', 'PA0085', 1, 2, 0, 6, 0 )1419 CALL message( 'check_parameters', 'PA0085', 1, 2, 0, 6, 0 ) 1458 1420 ENDIF 1459 1421 … … 1465 1427 WRITE( message_string, * ) 'averaging_interval_pr = ', & 1466 1428 averaging_interval_pr, ' must be <= dt_dopr = ', dt_dopr 1467 CALL handle_palm_message( 'check_parameters', 'PA0086', 1, 2, 0, 6, 0 )1429 CALL message( 'check_parameters', 'PA0086', 1, 2, 0, 6, 0 ) 1468 1430 ENDIF 1469 1431 … … 1475 1437 WRITE( message_string, * ) 'averaging_interval_sp = ', & 1476 1438 averaging_interval_sp, ' must be <= dt_dosp = ', dt_dosp 1477 CALL handle_palm_message( 'check_parameters', 'PA0087', 1, 2, 0, 6, 0 )1439 CALL message( 'check_parameters', 'PA0087', 1, 2, 0, 6, 0 ) 1478 1440 ENDIF 1479 1441 … … 1501 1463 dt_averaging_input, ' must be <= averaging_interval = ', & 1502 1464 averaging_interval 1503 CALL handle_palm_message( 'check_parameters', 'PA0088', 1, 2, 0, 6, 0 )1465 CALL message( 'check_parameters', 'PA0088', 1, 2, 0, 6, 0 ) 1504 1466 ENDIF 1505 1467 … … 1508 1470 dt_averaging_input_pr, ' must be <= averaging_interval_pr = ', & 1509 1471 averaging_interval_pr 1510 CALL handle_palm_message( 'check_parameters', 'PA0089', 1, 2, 0, 6, 0 )1472 CALL message( 'check_parameters', 'PA0089', 1, 2, 0, 6, 0 ) 1511 1473 ENDIF 1512 1474 … … 1521 1483 precipitation_amount_interval, ' must not be larger than ', & 1522 1484 'dt_do2d_xy = ', dt_do2d_xy 1523 CALL handle_palm_message( 'check_parameters', 'PA0090', 1, 2, 0, & 1524 6, 0 ) 1485 CALL message( 'check_parameters', 'PA0090', 1, 2, 0, 6, 0 ) 1525 1486 ENDIF 1526 1487 ENDIF … … 1691 1652 TRIM( data_output_pr(i) ) // ' is not imp' // & 1692 1653 'lemented for ocean = .FALSE.' 1693 CALL handle_palm_message( 'check_parameters', 'PA0091', 1, 2, & 1694 0, 6, 0 ) 1654 CALL message( 'check_parameters', 'PA0091', 1, 2, 0, 6, 0 ) 1695 1655 ELSE 1696 1656 dopr_index(i) = 23 … … 1760 1720 TRIM( data_output_pr(i) ) // ' is not imp' // & 1761 1721 'lemented for humidity = .FALSE.' 1762 CALL handle_palm_message( 'check_parameters', 'PA0092', 1, 2, & 1763 0, 6, 0 ) 1722 CALL message( 'check_parameters', 'PA0092', 1, 2, 0, 6, 0 ) 1764 1723 ELSE 1765 1724 dopr_index(i) = 41 … … 1779 1738 TRIM( data_output_pr(i) ) // ' is not imp' // & 1780 1739 'lemented for passive_scalar = .FALSE.' 1781 CALL handle_palm_message( 'check_parameters', 'PA0093', 1, 2, & 1782 0, 6, 0 ) 1740 CALL message( 'check_parameters', 'PA0093', 1, 2, 0, 6, 0 ) 1783 1741 ELSE 1784 1742 dopr_index(i) = 41 … … 1821 1779 TRIM( data_output_pr(i) ) // ' is not imp' // & 1822 1780 'lemented for cloud_physics = .FALSE.' 1823 CALL handle_palm_message( 'check_parameters', 'PA0094', 1, 2, & 1824 0, 6, 0 ) 1781 CALL message( 'check_parameters', 'PA0094', 1, 2, 0, 6, 0 ) 1825 1782 ELSE 1826 1783 dopr_index(i) = 4 … … 1866 1823 TRIM( data_output_pr(i) ) // ' is not imp' // & 1867 1824 'lemented for humidity = .FALSE.' 1868 CALL handle_palm_message( 'check_parameters', 'PA0092', 1, 2, & 1869 0, 6, 0 ) 1825 CALL message( 'check_parameters', 'PA0092', 1, 2, 0, 6, 0 ) 1870 1826 ELSE 1871 1827 dopr_index(i) = 48 … … 1879 1835 TRIM( data_output_pr(i) ) // ' is not imp' // & 1880 1836 'lemented for humidity = .FALSE.' 1881 CALL handle_palm_message( 'check_parameters', 'PA0092', 1, 2, & 1882 0, 6, 0 ) 1837 CALL message( 'check_parameters', 'PA0092', 1, 2, 0, 6, 0 ) 1883 1838 ELSE 1884 1839 dopr_index(i) = 49 … … 1892 1847 TRIM( data_output_pr(i) ) // ' is not imp' // & 1893 1848 'lemented for humidity = .FALSE.' 1894 CALL handle_palm_message( 'check_parameters', 'PA0092', 1, 2, & 1895 0, 6, 0 ) 1849 CALL message( 'check_parameters', 'PA0092', 1, 2, 0, 6, 0 ) 1896 1850 ELSE 1897 1851 dopr_index(i) = 50 … … 1905 1859 TRIM( data_output_pr(i) ) // ' is not imp' // & 1906 1860 'lemented for passive_scalar = .FALSE.' 1907 CALL handle_palm_message( 'check_parameters', 'PA0093', 1, 2, & 1908 0, 6, 0 ) 1861 CALL message( 'check_parameters', 'PA0093', 1, 2, 0, 6, 0 ) 1909 1862 ELSE 1910 1863 dopr_index(i) = 48 … … 1918 1871 TRIM( data_output_pr(i) ) // ' is not imp' // & 1919 1872 'lemented for passive_scalar = .FALSE.' 1920 CALL handle_palm_message( 'check_parameters', 'PA0093', 1, 2, & 1921 0, 6, 0 ) 1873 CALL message( 'check_parameters', 'PA0093', 1, 2, 0, 6, 0 ) 1922 1874 ELSE 1923 1875 dopr_index(i) = 49 … … 1931 1883 TRIM( data_output_pr(i) ) // ' is not imp' // & 1932 1884 'lemented for passive_scalar = .FALSE.' 1933 CALL handle_palm_message( 'check_parameters', 'PA0093', 1, 2, & 1934 0, 6, 0 ) 1885 CALL message( 'check_parameters', 'PA0093', 1, 2, 0, 6, 0 ) 1935 1886 ELSE 1936 1887 dopr_index(i) = 50 … … 1954 1905 'lemented for cloud_physics = .FALSE. an&' // & 1955 1906 'd humidity = .FALSE.' 1956 CALL handle_palm_message( 'check_parameters', 'PA0095', 1, 2, & 1957 0, 6, 0 ) 1907 CALL message( 'check_parameters', 'PA0095', 1, 2, 0, 6, 0 ) 1958 1908 ENDIF 1959 1909 … … 1973 1923 'lemented for cloud_physics = .FALSE. an&' // & 1974 1924 'd humidity = .FALSE.' 1975 CALL handle_palm_message( 'check_parameters', 'PA0095', 1, 2, & 1976 0, 6, 0 ) 1925 CALL message( 'check_parameters', 'PA0095', 1, 2, 0, 6, 0 ) 1977 1926 ENDIF 1978 1927 … … 1992 1941 'lemented for cloud_physics = .FALSE. an&' // & 1993 1942 'd humidity = .FALSE.' 1994 CALL handle_palm_message( 'check_parameters', 'PA0095', 1, 2, & 1995 0, 6, 0 ) 1943 CALL message( 'check_parameters', 'PA0095', 1, 2, 0, 6, 0 ) 1996 1944 ENDIF 1997 1945 … … 2002 1950 'lemented for cloud_physics = .FALSE. or' // & 2003 1951 '&cloud_droplets = .FALSE.' 2004 CALL handle_palm_message( 'check_parameters', 'PA0096', 1, 2, & 2005 0, 6, 0 ) 1952 CALL message( 'check_parameters', 'PA0096', 1, 2, 0, 6, 0 ) 2006 1953 ELSE 2007 1954 dopr_index(i) = 54 … … 2065 2012 TRIM( data_output_pr(i) ) // ' is not imp' // & 2066 2013 'lemented for ocean = .FALSE.' 2067 CALL handle_palm_message( 'check_parameters', 'PA0091', 1, 2, & 2068 0, 6, 0 ) 2014 CALL message( 'check_parameters', 'PA0091', 1, 2, 0, 6, 0 ) 2069 2015 ELSE 2070 2016 dopr_index(i) = 65 … … 2078 2024 TRIM( data_output_pr(i) ) // ' is not imp' // & 2079 2025 'lemented for ocean = .FALSE.' 2080 CALL handle_palm_message( 'check_parameters', 'PA0091', 1, 2, & 2081 0, 6, 0 ) 2026 CALL message( 'check_parameters', 'PA0091', 1, 2, 0, 6, 0 ) 2082 2027 ELSE 2083 2028 dopr_index(i) = 66 … … 2091 2036 TRIM( data_output_pr(i) ) // ' is not imp' // & 2092 2037 'lemented for ocean = .FALSE.' 2093 CALL handle_palm_message( 'check_parameters', 'PA0091', 1, 2, & 2094 0, 6, 0 ) 2038 CALL message( 'check_parameters', 'PA0091', 1, 2, 0, 6, 0 ) 2095 2039 ELSE 2096 2040 dopr_index(i) = 67 … … 2114 2058 TRIM( data_output_pr(i) ) // ' is not imp' // & 2115 2059 'lemented for humidity = .FALSE.' 2116 CALL handle_palm_message( 'check_parameters', 'PA0092', 1, 2, & 2117 0, 6, 0 ) 2060 CALL message( 'check_parameters', 'PA0092', 1, 2, 0, 6, 0 ) 2118 2061 ELSE 2119 2062 dopr_index(i) = 70 … … 2131 2074 'data_output_pr_user = "' // & 2132 2075 TRIM( data_output_pr(i) ) // '"' 2133 CALL handle_palm_message( 'check_parameters', 'PA0097', 1, & 2134 2, 0, 6, 0 ) 2076 CALL message( 'check_parameters', 'PA0097', 1, 2, 0, 6, 0 ) 2135 2077 ELSE 2136 2078 message_string = 'illegal value for data_output_pr = "' // & 2137 2079 TRIM( data_output_pr(i) ) // '"' 2138 CALL handle_palm_message( 'check_parameters', 'PA0098', 1, & 2139 2, 0, 6, 0 ) 2080 CALL message( 'check_parameters', 'PA0098', 1, 2, 0, 6, 0 ) 2140 2081 ENDIF 2141 2082 ENDIF … … 2175 2116 WRITE( message_string, * ) 'z_max_do1d = ', z_max_do1d, ' must ', & 2176 2117 'be >= ', zu(nzb+1), ' or <= ', zu(nzt+1) 2177 CALL handle_palm_message( 'check_parameters', 'PA0099', 1, 2, 0, 6, & 2178 0 ) 2118 CALL message( 'check_parameters', 'PA0099', 1, 2, 0, 6, 0 ) 2179 2119 ELSE 2180 2120 cross_uymax = z_max_do1d … … 2195 2135 'zed_x = "' // TRIM( cross_normalized_x(i) ) // & 2196 2136 '"' 2197 CALL handle_palm_message( 'check_parameters', 'PA0100', 1, 2, 0, & 2198 6, 0 ) 2137 CALL message( 'check_parameters', 'PA0100', 1, 2, 0, 6, 0 ) 2199 2138 2200 2139 END SELECT … … 2208 2147 'zed_y = "' // TRIM( cross_normalized_y(i) ) // & 2209 2148 '"' 2210 CALL handle_palm_message( 'check_parameters', 'PA0101', 1, 2, 0, & 2211 6, 0 ) 2149 CALL message( 'check_parameters', 'PA0101', 1, 2, 0, 6, 0 ) 2212 2150 2213 2151 END SELECT … … 2219 2157 WRITE( message_string, * ) 'z_max_do1d_normalized = ', & 2220 2158 z_max_do1d_normalized, ' must be >= 0.0' 2221 CALL handle_palm_message( 'check_parameters', 'PA0101', 1, 2, 0, 6, 0 )2159 CALL message( 'check_parameters', 'PA0101', 1, 2, 0, 6, 0 ) 2222 2160 ENDIF 2223 2161 … … 2235 2173 message_string = 'number of output quantitities given by data' // & 2236 2174 '_output and data_output_user exceeds the limit of 100' 2237 CALL handle_palm_message( 'check_parameters', 'PA0102', 1, 2, 0, & 2238 6, 0 ) 2175 CALL message( 'check_parameters', 'PA0102', 1, 2, 0, 6, 0 ) 2239 2176 ENDIF 2240 2177 data_output(i) = data_output_user(j) … … 2279 2216 message_string = 'output of "' // TRIM( var ) // '" requi' // & 2280 2217 'res constant_diffusion = .FALSE.' 2281 CALL handle_palm_message( 'check_parameters', 'PA0103', 1, 2, & 2282 0, 6, 0 ) 2218 CALL message( 'check_parameters', 'PA0103', 1, 2, 0, 6, 0 ) 2283 2219 ENDIF 2284 2220 unit = 'm2/s2' … … 2288 2224 message_string = 'output of "' // TRIM( var ) // '" requir' // & 2289 2225 'es a "particles_par"-NAMELIST in the parameter file (PARIN)' 2290 CALL handle_palm_message( 'check_parameters', 'PA0104', 1, 2, & 2291 0, 6, 0 ) 2226 CALL message( 'check_parameters', 'PA0104', 1, 2, 0, 6, 0 ) 2292 2227 ENDIF 2293 2228 IF ( TRIM( var ) == 'pc' ) unit = 'number' … … 2298 2233 message_string = 'output of "' // TRIM( var ) // '" requi' // & 2299 2234 'res humidity = .TRUE.' 2300 CALL handle_palm_message( 'check_parameters', 'PA0105', 1, 2, & 2301 0, 6, 0 ) 2235 CALL message( 'check_parameters', 'PA0105', 1, 2, 0, 6, 0 ) 2302 2236 ENDIF 2303 2237 IF ( TRIM( var ) == 'q' ) unit = 'kg/kg' … … 2308 2242 message_string = 'output of "' // TRIM( var ) // '" requi' // & 2309 2243 'res cloud_physics = .TRUE. or cloud_droplets = .TRUE.' 2310 CALL handle_palm_message( 'check_parameters', 'PA0106', 1, 2, & 2311 0, 6, 0 ) 2244 CALL message( 'check_parameters', 'PA0106', 1, 2, 0, 6, 0 ) 2312 2245 ENDIF 2313 2246 unit = 'kg/kg' … … 2317 2250 message_string = 'output of "' // TRIM( var ) // '" requi' // & 2318 2251 'res cloud_droplets = .TRUE.' 2319 CALL handle_palm_message( 'check_parameters', 'PA0107', 1, 2, & 2320 0, 6, 0 ) 2252 CALL message( 'check_parameters', 'PA0107', 1, 2, 0, 6, 0 ) 2321 2253 ENDIF 2322 2254 IF ( TRIM( var ) == 'ql_c' ) unit = 'kg/kg' … … 2328 2260 message_string = 'output of "' // TRIM( var ) // '" requi' // & 2329 2261 'res cloud_physics = .TRUE.' 2330 CALL handle_palm_message( 'check_parameters', 'PA0108', 1, 2, & 2331 0, 6, 0 ) 2262 CALL message( 'check_parameters', 'PA0108', 1, 2, 0, 6, 0 ) 2332 2263 ENDIF 2333 2264 unit = 'kg/kg' … … 2337 2268 message_string = 'output of "' // TRIM( var ) // '" requi' // & 2338 2269 'res ocean = .TRUE.' 2339 CALL handle_palm_message( 'check_parameters', 'PA0109', 1, 2, & 2340 0, 6, 0 ) 2270 CALL message( 'check_parameters', 'PA0109', 1, 2, 0, 6, 0 ) 2341 2271 ENDIF 2342 2272 unit = 'kg/m3' … … 2346 2276 message_string = 'output of "' // TRIM( var ) // '" requi' // & 2347 2277 'res passive_scalar = .TRUE.' 2348 CALL handle_palm_message( 'check_parameters', 'PA0110', 1, 2, & 2349 0, 6, 0 ) 2278 CALL message( 'check_parameters', 'PA0110', 1, 2, 0, 6, 0 ) 2350 2279 ENDIF 2351 2280 unit = 'conc' … … 2355 2284 message_string = 'output of "' // TRIM( var ) // '" requi' // & 2356 2285 'res ocean = .TRUE.' 2357 CALL handle_palm_message( 'check_parameters', 'PA0109', 1, 2, & 2358 0, 6, 0 ) 2286 CALL message( 'check_parameters', 'PA0109', 1, 2, 0, 6, 0 ) 2359 2287 ENDIF 2360 2288 unit = 'psu' … … 2365 2293 TRIM( var ) // '" & only 2d-horizontal ' // & 2366 2294 'cross sections are allowed for this value' 2367 CALL handle_palm_message( 'check_parameters', 'PA0111', 1, 2, & 2368 0, 6, 0 ) 2295 CALL message( 'check_parameters', 'PA0111', 1, 2, 0, 6, 0 ) 2369 2296 ENDIF 2370 2297 IF ( TRIM( var ) == 'lwp*' .AND. .NOT. cloud_physics ) THEN 2371 2298 message_string = 'output of "' // TRIM( var ) // '" requi' // & 2372 2299 'res cloud_physics = .TRUE.' 2373 CALL handle_palm_message( 'check_parameters', 'PA0108', 1, 2, & 2374 0, 6, 0 ) 2300 CALL message( 'check_parameters', 'PA0108', 1, 2, 0, 6, 0 ) 2375 2301 ENDIF 2376 2302 IF ( TRIM( var ) == 'pra*' .AND. .NOT. precipitation ) THEN 2377 2303 message_string = 'output of "' // TRIM( var ) // '" requi' // & 2378 2304 'res precipitation = .TRUE.' 2379 CALL handle_palm_message( 'check_parameters', 'PA0112', 1, 2, & 2380 0, 6, 0 ) 2305 CALL message( 'check_parameters', 'PA0112', 1, 2, 0, 6, 0 ) 2381 2306 ENDIF 2382 2307 IF ( TRIM( var ) == 'pra*' .AND. j == 1 ) THEN 2383 2308 message_string = 'temporal averaging of precipitation ' // & 2384 2309 'amount "' // TRIM( var ) // '" is not possible' 2385 CALL handle_palm_message( 'check_parameters', 'PA0113', 1, 2, & 2386 0, 6, 0 ) 2310 CALL message( 'check_parameters', 'PA0113', 1, 2, 0, 6, 0 ) 2387 2311 ENDIF 2388 2312 IF ( TRIM( var ) == 'prr*' .AND. .NOT. precipitation ) THEN 2389 2313 message_string = 'output of "' // TRIM( var ) // '" requi' // & 2390 2314 'res precipitation = .TRUE.' 2391 CALL handle_palm_message( 'check_parameters', 'PA0112', 1, 2, & 2392 0, 6, 0 ) 2315 CALL message( 'check_parameters', 'PA0112', 1, 2, 0, 6, 0 ) 2393 2316 ENDIF 2394 2317 … … 2416 2339 message_string = 'illegal value for data_output or ' // & 2417 2340 'data_output_user = "' // TRIM( data_output(i) ) // '"' 2418 CALL handle_palm_message( 'check_parameters', 'PA0114', 1, & 2419 2, 0, 6, 0 ) 2341 CALL message( 'check_parameters', 'PA0114', 1, 2, 0, 6, 0 ) 2420 2342 ELSE 2421 2343 message_string = 'illegal value for data_output =' // & 2422 2344 TRIM( data_output(i) ) // '"' 2423 CALL handle_palm_message( 'check_parameters', 'PA0115', 1, & 2424 2, 0, 6, 0 ) 2345 CALL message( 'check_parameters', 'PA0115', 1, 2, 0, 6, 0 ) 2425 2346 ENDIF 2426 2347 ENDIF … … 2489 2410 ' must be >= ', zu(nzb+1), '(zu(nzb+1)) and <= ', zu(nzt), & 2490 2411 ' (zu(nzt))' 2491 CALL handle_palm_message( 'check_parameters', 'PA0116', 1, 2, 0, 6, 0 )2412 CALL message( 'check_parameters', 'PA0116', 1, 2, 0, 6, 0 ) 2492 2413 ENDIF 2493 2414 … … 2504 2425 message_string = 'do3d_compress = .TRUE. not allowed on host "' // & 2505 2426 TRIM( host ) // '"' 2506 CALL handle_palm_message( 'check_parameters', 'PA0117', 1, 2, 0, 6, & 2507 0 ) 2427 CALL message( 'check_parameters', 'PA0117', 1, 2, 0, 6, 0 ) 2508 2428 ENDIF 2509 2429 … … 2516 2436 WRITE( message_string, * ) 'illegal precision: do3d_comp_prec', & 2517 2437 '(', i, ') = "', TRIM(do3d_comp_prec(i)),'"' 2518 CALL handle_palm_message( 'check_parameters', 'PA0118', 1, 2, 0, & 2519 6, 0 ) 2438 CALL message( 'check_parameters', 'PA0118', 1, 2, 0, 6, 0 ) 2520 2439 ENDIF 2521 2440 … … 2540 2459 TRIM( do3d_comp_prec(i) ), '" given for do3d_comp_prec(', & 2541 2460 i, ')' 2542 CALL handle_palm_message( 'check_parameters', 'PA0119', 1, 2, & 2543 0, 6, 0 ) 2461 CALL message( 'check_parameters', 'PA0119', 1, 2, 0, 6, 0 ) 2544 2462 2545 2463 END SELECT … … 2575 2493 message_string = 'unknown value for data_output_format "' // & 2576 2494 TRIM( data_output_format(i) ) // '"' 2577 CALL handle_palm_message( 'check_parameters', 'PA0120', 1, 2, & 2578 0, 6, 0 ) 2495 CALL message( 'check_parameters', 'PA0120', 1, 2, 0, 6, 0 ) 2579 2496 2580 2497 END SELECT … … 2597 2514 IF ( km_constant < 0.0 ) THEN 2598 2515 WRITE( message_string, * ) 'km_constant = ', km_constant, ' < 0.0' 2599 CALL handle_palm_message( 'check_parameters', 'PA0121', 1, 2, 0, 6, & 2600 0 ) 2516 CALL message( 'check_parameters', 'PA0121', 1, 2, 0, 6, 0 ) 2601 2517 ELSE 2602 2518 IF ( prandtl_number < 0.0 ) THEN 2603 2519 WRITE( message_string, * ) 'prandtl_number = ', prandtl_number, & 2604 2520 ' < 0.0' 2605 CALL handle_palm_message( 'check_parameters', 'PA0122', 1, 2, 0, & 2606 6, 0 ) 2521 CALL message( 'check_parameters', 'PA0122', 1, 2, 0, 6, 0 ) 2607 2522 ENDIF 2608 2523 constant_diffusion = .TRUE. … … 2611 2526 message_string = 'prandtl_layer is not allowed with fixed ' // & 2612 2527 'value of km' 2613 CALL handle_palm_message( 'check_parameters', 'PA0123', 1, 2, 0, & 2614 6, 0 ) 2528 CALL message( 'check_parameters', 'PA0123', 1, 2, 0, 6, 0 ) 2615 2529 ENDIF 2616 2530 ENDIF … … 2630 2544 IF ( outflow_damping_width <= 0 .OR. outflow_damping_width > nx ) THEN 2631 2545 message_string = 'outflow_damping width out of range' 2632 CALL handle_palm_message( 'check_parameters', 'PA0124', 1, 2, 0, 6, & 2633 0 ) 2546 CALL message( 'check_parameters', 'PA0124', 1, 2, 0, 6, 0 ) 2634 2547 ENDIF 2635 2548 ENDIF … … 2644 2557 IF ( outflow_damping_width <= 0 .OR. outflow_damping_width > ny ) THEN 2645 2558 message_string = 'outflow_damping width out of range' 2646 CALL handle_palm_message( 'check_parameters', 'PA0124', 1, 2, 0, 6, & 2647 0 ) 2559 CALL message( 'check_parameters', 'PA0124', 1, 2, 0, 6, 0 ) 2648 2560 ENDIF 2649 2561 ENDIF … … 2654 2566 WRITE( message_string, * ) 'rif_min = ', rif_min, ' must be less ', & 2655 2567 'than rif_max = ', rif_max 2656 CALL handle_palm_message( 'check_parameters', 'PA0125', 1, 2, 0, 6, 0 )2568 CALL message( 'check_parameters', 'PA0125', 1, 2, 0, 6, 0 ) 2657 2569 ENDIF 2658 2570 … … 2670 2582 WRITE( message_string, * ) 'disturbance_level_b = ', & 2671 2583 disturbance_level_b, ' must be >= ', zu(3), '(zu(3))' 2672 CALL handle_palm_message( 'check_parameters', 'PA0126', 1, 2, 0, 6, 0 )2584 CALL message( 'check_parameters', 'PA0126', 1, 2, 0, 6, 0 ) 2673 2585 ELSEIF ( disturbance_level_b > zu(nzt-2) ) THEN 2674 2586 WRITE( message_string, * ) 'disturbance_level_b = ', & 2675 2587 disturbance_level_b, ' must be <= ', zu(nzt-2), '(zu(nzt-2))' 2676 CALL handle_palm_message( 'check_parameters', 'PA0127', 1, 2, 0, 6, 0 )2588 CALL message( 'check_parameters', 'PA0127', 1, 2, 0, 6, 0 ) 2677 2589 ELSE 2678 2590 DO k = 3, nzt-2 … … 2695 2607 WRITE( message_string, * ) 'disturbance_level_t = ', & 2696 2608 disturbance_level_t, ' must be <= ', zu(nzt-2), '(zu(nzt-2))' 2697 CALL handle_palm_message( 'check_parameters', 'PA0128', 1, 2, 0, 6, 0 )2609 CALL message( 'check_parameters', 'PA0128', 1, 2, 0, 6, 0 ) 2698 2610 ELSEIF ( disturbance_level_t < disturbance_level_b ) THEN 2699 2611 WRITE( message_string, * ) 'disturbance_level_t = ', & 2700 2612 disturbance_level_t, ' must be >= disturbance_level_b = ', & 2701 2613 disturbance_level_b 2702 CALL handle_palm_message( 'check_parameters', 'PA0129', 1, 2, 0, 6, 0 )2614 CALL message( 'check_parameters', 'PA0129', 1, 2, 0, 6, 0 ) 2703 2615 ELSE 2704 2616 DO k = 3, nzt-2 … … 2718 2630 disturbance_level_ind_t, ' must be >= disturbance_level_b = ', & 2719 2631 disturbance_level_b 2720 CALL handle_palm_message( 'check_parameters', 'PA0130', 1, 2, 0, 6, 0 )2632 CALL message( 'check_parameters', 'PA0130', 1, 2, 0, 6, 0 ) 2721 2633 ENDIF 2722 2634 … … 2735 2647 THEN 2736 2648 message_string = 'inflow_disturbance_begin out of range' 2737 CALL handle_palm_message( 'check_parameters', 'PA0131', 1, 2, 0, 6, & 2738 0 ) 2649 CALL message( 'check_parameters', 'PA0131', 1, 2, 0, 6, 0 ) 2739 2650 ENDIF 2740 2651 IF ( inflow_disturbance_end == -1 ) THEN … … 2744 2655 THEN 2745 2656 message_string = 'inflow_disturbance_end out of range' 2746 CALL handle_palm_message( 'check_parameters', 'PA0132', 1, 2, 0, 6, & 2747 0 ) 2657 CALL message( 'check_parameters', 'PA0132', 1, 2, 0, 6, 0 ) 2748 2658 ENDIF 2749 2659 ELSEIF ( bc_ns /= 'cyclic' ) THEN … … 2754 2664 THEN 2755 2665 message_string = 'inflow_disturbance_begin out of range' 2756 CALL handle_palm_message( 'check_parameters', 'PA0131', 1, 2, 0, 6, & 2757 0 ) 2666 CALL message( 'check_parameters', 'PA0131', 1, 2, 0, 6, 0 ) 2758 2667 ENDIF 2759 2668 IF ( inflow_disturbance_end == -1 ) THEN … … 2763 2672 THEN 2764 2673 message_string = 'inflow_disturbance_end out of range' 2765 CALL handle_palm_message( 'check_parameters', 'PA0132', 1, 2, 0, 6, & 2766 0 ) 2674 CALL message( 'check_parameters', 'PA0132', 1, 2, 0, 6, 0 ) 2767 2675 ENDIF 2768 2676 ENDIF … … 2789 2697 message_string = 'turbulent_inflow = .T. requires a Dirichlet ' // & 2790 2698 'condition at the inflow boundary' 2791 CALL handle_palm_message( 'check_parameters', 'PA0133', 1, 2, 0, 6, 0 )2699 CALL message( 'check_parameters', 'PA0133', 1, 2, 0, 6, 0 ) 2792 2700 ENDIF 2793 2701 … … 2803 2711 WRITE( message_string, * ) 'illegal value for recycling_width:', & 2804 2712 ' ', recycling_width 2805 CALL handle_palm_message( 'check_parameters', 'PA0134', 1, 2, 0, & 2806 6, 0 ) 2713 CALL message( 'check_parameters', 'PA0134', 1, 2, 0, 6, 0 ) 2807 2714 ENDIF 2808 2715 ENDIF … … 2818 2725 message_string = 'unknown random generator: random_generator = "' // & 2819 2726 TRIM( random_generator ) // '"' 2820 CALL handle_palm_message( 'check_parameters', 'PA0135', 1, 2, 0, 6, 0 )2727 CALL message( 'check_parameters', 'PA0135', 1, 2, 0, 6, 0 ) 2821 2728 ENDIF 2822 2729 … … 2830 2737 WRITE( message_string, * ) 'damp_level_1d = ', damp_level_1d, & 2831 2738 ' must be > 0.0 and < ', zu(nzt+1), '(zu(nzt+1))' 2832 CALL handle_palm_message( 'check_parameters', 'PA0136', 1, 2, 0, 6, & 2833 0 ) 2739 CALL message( 'check_parameters', 'PA0136', 1, 2, 0, 6, 0 ) 2834 2740 ELSE 2835 2741 DO k = 1, nzt+1 … … 2848 2754 message_string = 'mixing_length_1d = "' // TRIM( mixing_length_1d ) // & 2849 2755 '" is unknown' 2850 CALL handle_palm_message( 'check_parameters', 'PA0137', 1, 2, 0, 6, 0 )2756 CALL message( 'check_parameters', 'PA0137', 1, 2, 0, 6, 0 ) 2851 2757 ENDIF 2852 2758 IF ( TRIM( dissipation_1d ) /= 'as_in_3d_model' .AND. & … … 2854 2760 message_string = 'dissipation_1d = "' // TRIM( dissipation_1d ) // & 2855 2761 '" is unknown' 2856 CALL handle_palm_message( 'check_parameters', 'PA0138', 1, 2, 0, 6, 0 )2762 CALL message( 'check_parameters', 'PA0138', 1, 2, 0, 6, 0 ) 2857 2763 ENDIF 2858 2764 … … 2889 2795 termination_time_needed, ' must be > 30.0 on host "', & 2890 2796 TRIM( host ), '"' 2891 CALL handle_palm_message( 'check_parameters', 'PA0139', 1, 2, 0, 6, & 2892 0 ) 2797 CALL message( 'check_parameters', 'PA0139', 1, 2, 0, 6, 0 ) 2893 2798 ENDIF 2894 2799 ELSEIF ( host(1:3) == 'ibm' ) THEN … … 2901 2806 termination_time_needed, ' should be >= 300.0 on host "', & 2902 2807 TRIM( host ), '"' 2903 CALL handle_palm_message( 'check_parameters', 'PA0140', 1, 2, 0, 6, & 2904 0 ) 2808 CALL message( 'check_parameters', 'PA0140', 1, 2, 0, 6, 0 ) 2905 2809 ENDIF 2906 2810 ENDIF -
palm/trunk/SOURCE/cpu_log.f90
r225 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Type of count and count_rate changed to INTEGER(8)6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 225 2009-01-26 14:44:20Z raasch 13 ! Type of count and count_rate changed to INTEGER(8) 11 14 ! 12 15 ! 82 2007-04-16 15:40:52Z raasch -
palm/trunk/SOURCE/cpu_statistics.f90
r222 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Bugfix for nonparallel execution6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 222 2009-01-12 16:04:16Z letzel 13 ! Bugfix for nonparallel execution 11 14 ! 12 15 ! 197 2008-09-16 15:29:03Z raasch -
palm/trunk/SOURCE/data_output_2d.f90
r215 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Bugfix: zero output of particle concentration and radius unless particles 7 ! have been started 6 ! 8 7 ! 9 8 ! Former revisions: 10 9 ! ----------------- 11 10 ! $Id$ 11 ! 12 ! 215 2008-11-18 09:54:31Z raasch 13 ! Bugfix: no output of particle concentration and radius unless particles 14 ! have been started 12 15 ! 13 16 ! 96 2007-06-04 08:07:41Z raasch -
palm/trunk/SOURCE/data_output_dvrp.f90
r210 r226 32 32 ! Actual revisions: 33 33 ! ----------------- 34 ! DVRP arguments changed to single precision, mode pathlines added35 34 ! TEST: different colours for isosurfaces 36 35 ! TEST: write statements … … 39 38 ! ----------------- 40 39 ! $Id$ 40 ! 41 ! 210 2008-11-06 08:54:02Z raasch 42 ! DVRP arguments changed to single precision, mode pathlines added 41 43 ! 42 44 ! 130 2007-11-13 14:08:40Z letzel -
palm/trunk/SOURCE/header.f90
r206 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Bugfix: error in zu index in case of section_xy = -16 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 206 2008-10-13 14:59:11Z raasch 13 ! Bugfix: error in zu index in case of section_xy = -1 11 14 ! 12 15 ! 198 2008-09-17 08:55:28Z raasch -
palm/trunk/SOURCE/inflow_turbulence.f90
r222 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Bugfix for nonparallel execution6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 222 2009-01-12 16:04:16Z letzel 13 ! Bugfix for nonparallel execution 11 14 ! 12 15 ! Initial version (2008/03/07) -
palm/trunk/SOURCE/init_cloud_physics.f90
r221 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Bugfix: abort in case that absolute temperature is below zero6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ------------------ 10 10 ! $Id$ 11 ! 12 ! 221 2009-01-12 15:32:23Z raasch 13 ! Bugfix: abort in case that absolute temperature is below zero 11 14 ! 12 15 ! 95 2007-06-02 16:48:38Z raasch … … 67 70 WRITE( message_string, * ) 'absolute temperature < 0.0 at zu(', k, & 68 71 ') = ', zu(k) 69 CALL handle_palm_message( 'init_cloud_physics', 'PA0142', 1, 2, 0, 6, & 70 0 ) 72 CALL message( 'init_cloud_physics', 'PA0142', 1, 2, 0, 6, 0 ) 71 73 ENDIF 72 74 hyp(k) = surface_pressure * 100.0 * & -
palm/trunk/SOURCE/init_coupling.f90
r222 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Bugfix for nonparallel execution6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ------------------ 10 10 ! $Id$ 11 ! 12 ! 222 2009-01-12 16:04:16Z letzel 13 ! Initial revision 11 14 ! 12 15 ! Description: -
palm/trunk/SOURCE/init_dvrp.f90
r210 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! DVRP arguments changed to single precision, mode pathlines added7 6 ! TEST: print* statements 8 7 ! ToDo: checking of mode_dvrp for legal values is not correct 9 8 ! Implementation of a MPI-1 coupling: __mpi2 adjustments for MPI_COMM_WORLD 9 ! 10 10 ! Former revisions: 11 11 ! ----------------- 12 12 ! $Id$ 13 ! 14 ! 210 2008-11-06 08:54:02Z raasch 15 ! DVRP arguments changed to single precision, mode pathlines added 13 16 ! 14 17 ! 155 2008-03-28 10:56:30Z letzel -
palm/trunk/SOURCE/init_grid.f90
r217 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! +topography_grid_convention6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 217 2008-12-09 18:00:48Z letzel 13 ! +topography_grid_convention 11 14 ! 12 15 ! 134 2007-11-21 07:28:38Z letzel -
palm/trunk/SOURCE/init_pegrid.f90
r206 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Implementation of a MPI-1 coupling: added __parallel within the __mpi2 part7 ! 2d-decomposition is default on SGI-ICE systems8 6 ! ATTENTION: nnz_x undefined problem still has to be solved!!!!!!!! 9 7 ! TEST OUTPUT (TO BE REMOVED) logging mpi2 ierr values … … 12 10 ! ----------------- 13 11 ! $Id$ 12 ! 13 ! 206 2008-10-13 14:59:11Z raasch 14 ! Implementation of a MPI-1 coupling: added __parallel within the __mpi2 part 15 ! 2d-decomposition is default on SGI-ICE systems 14 16 ! 15 17 ! 197 2008-09-16 15:29:03Z raasch -
palm/trunk/SOURCE/local_stop.f90
r213 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Implementation of a MPI-1 coupling: replaced myid with target_id. 7 ! The uncoupled case allows stop or mpi_abort depending on new steering 8 ! parameter abort_mode, which is set in handle_palm_message. 6 ! 9 7 ! 10 8 ! Former revisions: 11 9 ! ----------------- 12 10 ! $Id$ 11 ! 12 ! 213 2008-11-13 10:26:18Z raasch 13 ! Implementation of a MPI-1 coupling: replaced myid with target_id. 14 ! The uncoupled case allows stop or mpi_abort depending on new steering 15 ! parameter abort_mode, which is set in routine message. 13 16 ! 14 17 ! 147 2008-02-01 12:41:46Z raasch -
palm/trunk/SOURCE/local_tremain.f90
r225 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Type of count and count_rate changed to INTEGER(8) in order to avoid out of 7 ! range problems (which result in measured negative time intervals) 6 ! 8 7 ! 9 8 ! Former revisions: 10 9 ! ----------------- 11 10 ! $Id$ 11 ! 12 ! 225 2009-01-26 14:44:20Z raasch 13 ! Type of count and count_rate changed to INTEGER(8) in order to avoid out of 14 ! range problems (which result in measured negative time intervals) 12 15 ! 13 16 ! 82 2007-04-16 15:40:52Z raasch -
palm/trunk/SOURCE/local_tremain_ini.f90
r225 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Type of count and count_rate changed to INTEGER(8) in order to avoid out of 7 ! range problems (which result in measured negative time intervals) 6 ! 8 7 ! 9 8 ! Former revisions: 10 9 ! ----------------- 11 10 ! $Id$ 11 ! 12 ! 225 2009-01-26 14:44:20Z raasch 13 ! Type of count and count_rate changed to INTEGER(8) in order to avoid out of 14 ! range problems (which result in measured negative time intervals) 12 15 ! 13 16 ! 82 2007-04-16 15:40:52Z raasch -
palm/trunk/SOURCE/message.f90
r225 r226 1 SUBROUTINE handle_palm_message( routine_name, message_identifier, & 2 requested_action, message_level, output_on_pe,& 3 file_id, flush ) 1 SUBROUTINE message( routine_name, message_identifier, requested_action, & 2 message_level, output_on_pe, file_id, flush ) 4 3 5 4 !------------------------------------------------------------------------------! 6 5 ! Actual revisions: 7 6 ! ----------------- 8 ! Initial revision7 ! 9 8 ! 10 9 ! Former revisions: 11 10 ! ----------------- 12 11 ! $Id$ 12 ! 13 ! 213 2008-11-13 10:26:18Z raasch 14 ! Initial revision 13 15 ! 14 16 ! Description: … … 128 130 129 131 IF ( pe_out_of_range ) THEN 130 WRITE ( *, '(A)' ) '+++ WARNING from handle_palm_message:'132 WRITE ( *, '(A)' ) '+++ WARNING from routine message:' 131 133 WRITE ( *, '(A,I6,A)' ) ' PE ', output_on_pe, & 132 134 ' choosed for output is larger ' … … 148 150 ! print*, '#13' 149 151 150 END SUBROUTINE handle_palm_message152 END SUBROUTINE message -
palm/trunk/SOURCE/modules.f90
r217 r226 5 5 ! Actual revisions: 6 6 ! ----------------- 7 ! 8 ! 9 ! Former revisions: 10 ! ----------------- 11 ! $Id$ 12 ! 13 ! 217 2008-12-09 18:00:48Z letzel 7 14 ! +topography_grid_convention 8 15 ! some dvrp-variables changed to single precision, variables for dvrp-mode 9 16 ! pathlines added, +target_id, abort_mode, message_string 10 !11 ! Former revisions:12 ! -----------------13 ! $Id$14 17 ! 15 18 ! 197 2008-09-16 15:29:03Z raasch -
palm/trunk/SOURCE/netcdf.f90
r216 r226 7 7 ! Current revisions: 8 8 ! ------------------ 9 ! Origin of the xy-coordinate system shifted from the center of the first 10 ! grid cell (indices i=0, j=0) to the south-left corner of this cell. 9 ! 11 10 ! 12 11 ! Former revisions: 13 12 ! ----------------- 14 13 ! $Id$ 14 ! 15 ! 216 2008-11-25 07:12:43Z raasch 16 ! Origin of the xy-coordinate system shifted from the center of the first 17 ! grid cell (indices i=0, j=0) to the south-left corner of this cell. 15 18 ! 16 19 ! 189 2008-08-13 17:09:26Z letzel -
palm/trunk/SOURCE/package_parin.f90
r210 r226 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 210 2008-11-06 08:54:02Z raasch 13 ! Variables for dvrp-mode pathlines added 11 14 ! 12 15 ! 116 2007-10-11 02:30:27Z raasch -
palm/trunk/SOURCE/palm.f90
r215 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Initialization of coupled runs modified for MPI-1 and moved to external 7 ! subroutine init_coupling 6 ! 8 7 ! 9 8 ! Former revisions: 10 9 ! ----------------- 11 10 ! $Id$ 11 ! 12 ! 215 2008-11-18 09:54:31Z raasch 13 ! Initialization of coupled runs modified for MPI-1 and moved to external 14 ! subroutine init_coupling 12 15 ! 13 16 ! 197 2008-09-16 15:29:03Z raasch -
palm/trunk/SOURCE/production_e.f90
r208 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Bugfix concerning the calculation of velocity gradients at vertical walls 7 ! in case of diabatic conditions 6 ! 8 7 ! 9 8 ! Former revisions: 10 9 ! ----------------- 11 10 ! $Id$ 11 ! 12 ! 208 2008-10-20 06:02:59Z raasch 13 ! Bugfix concerning the calculation of velocity gradients at vertical walls 14 ! in case of diabatic conditions 12 15 ! 13 16 ! 187 2008-08-06 16:25:09Z letzel -
palm/trunk/SOURCE/read_3d_binary.f90
r220 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! 7 ! 8 ! Former revisions: 9 ! ----------------- 10 ! $Id$ 11 ! 12 ! 220 2008-12-18 07:00:36Z raasch 6 13 ! reading mechanism completely revised (subdomain/total domain size can vary 7 14 ! arbitrarily between current and previous run) 8 15 ! Bugfix: reading of spectrum_x|y from restart files ignored if total numbers 9 16 ! of grid points do not match 10 !11 ! Former revisions:12 ! -----------------13 ! $Id$14 17 ! 15 18 ! 150 2008-02-29 08:19:58Z raasch -
palm/trunk/SOURCE/read_var_list.f90
r216 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! limitations for nx_on_file, ny_on_file removed (read_parts_of_var_list)6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 216 2008-11-25 07:12:43Z raasch 13 ! limitations for nx_on_file, ny_on_file removed (read_parts_of_var_list) 11 14 ! 12 15 ! 173 2008-05-23 20:39:38Z raasch -
palm/trunk/SOURCE/surface_coupler.f90
r206 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Implementation of a MPI-1 Coupling: replaced myid with target_id, 7 ! deleted __mpi2 directives 6 ! 8 7 ! 9 8 ! Former revisions: 10 9 ! ------------------ 11 10 ! $Id$ 11 ! 12 ! 206 2008-10-13 14:59:11Z raasch 13 ! Implementation of a MPI-1 Coupling: replaced myid with target_id, 14 ! deleted __mpi2 directives 12 15 ! 13 16 ! 109 2007-08-28 15:26:47Z letzel -
palm/trunk/SOURCE/timestep.f90
r222 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Implementation of a MPI-1 Coupling: replaced myid with target_id 7 ! Bugfix for nonparallel execution 6 ! 8 7 ! 9 8 ! Former revisions: 10 9 ! ----------------- 11 10 ! $Id$ 11 ! 12 ! 222 2009-01-12 16:04:16Z letzel 13 ! Implementation of a MPI-1 Coupling: replaced myid with target_id 14 ! Bugfix for nonparallel execution 12 15 ! 13 16 ! 108 2007-08-24 15:10:38Z letzel -
palm/trunk/SOURCE/user_3d_data_averaging.f90
r211 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Former file user_interface.f90 split into one file per subroutine6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 211 2008-11-11 04:46:24Z raasch 13 ! Former file user_interface.f90 split into one file per subroutine 11 14 ! 12 15 ! Description: -
palm/trunk/SOURCE/user_actions.f90
r211 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Former file user_interface.f90 split into one file per subroutine6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 211 2008-11-11 04:46:24Z raasch 13 ! Former file user_interface.f90 split into one file per subroutine 11 14 ! 12 15 ! Description: -
palm/trunk/SOURCE/user_additional_routines.f90
r211 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Initial version6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 211 2008-11-11 04:46:24Z raasch 13 ! Initial version 11 14 ! 12 15 ! Description: -
palm/trunk/SOURCE/user_advec_particles.f90
r211 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Former file user_interface.f90 split into one file per subroutine6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 211 2008-11-11 04:46:24Z raasch 13 ! Former file user_interface.f90 split into one file per subroutine 11 14 ! 12 15 ! Description: -
palm/trunk/SOURCE/user_check_data_output.f90
r211 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Former file user_interface.f90 split into one file per subroutine6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 211 2008-11-11 04:46:24Z raasch 13 ! Former file user_interface.f90 split into one file per subroutine 11 14 ! 12 15 ! Description: -
palm/trunk/SOURCE/user_check_data_output_pr.f90
r211 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Former file user_interface.f90 split into one file per subroutine6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 211 2008-11-11 04:46:24Z raasch 13 ! Former file user_interface.f90 split into one file per subroutine 11 14 ! 12 15 ! Description: -
palm/trunk/SOURCE/user_check_parameters.f90
r217 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Initial version6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 217 2008-12-09 18:00:48Z letzel 13 ! Initial version 11 14 ! 12 15 ! Description: … … 35 38 '"topography" = ''single_building'' or ''read_from_file''.'//& 36 39 ' & Choose ''cell_edge'' or ''cell_center''.' 37 CALL handle_palm_message( 'user_check_parameters', 'UI0001', 1, & 38 2, 0, 6, 0 ) 40 CALL message( 'user_check_parameters', 'UI0001', 1, 2, 0, 6, 0 ) 39 41 ELSE 40 42 !-- The default value is applicable here. … … 50 52 message_string = 'The value for "topography_grid_convention" is '// & 51 53 'not recognized. & Choose ''cell_edge'' or ''cell_center''.' 52 CALL handle_palm_message( 'user_check_parameters', 'UI0002', 1, & 53 2, 0, 6, 0 ) 54 CALL message( 'user_check_parameters', 'UI0002', 1, 2, 0, 6, 0 ) 54 55 ENDIF 55 56 ENDIF -
palm/trunk/SOURCE/user_data_output_2d.f90
r211 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Former file user_interface.f90 split into one file per subroutine6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 211 2008-11-11 04:46:24Z raasch 13 ! Former file user_interface.f90 split into one file per subroutine 11 14 ! 12 15 ! Description: -
palm/trunk/SOURCE/user_data_output_3d.f90
r211 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Former file user_interface.f90 split into one file per subroutine6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 211 2008-11-11 04:46:24Z raasch 13 ! Former file user_interface.f90 split into one file per subroutine 11 14 ! 12 15 ! Description: -
palm/trunk/SOURCE/user_data_output_dvrp.f90
r211 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Former file user_interface.f90 split into one file per subroutine6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 211 2008-11-11 04:46:24Z raasch 13 ! Former file user_interface.f90 split into one file per subroutine 11 14 ! 12 15 ! Description: -
palm/trunk/SOURCE/user_define_netcdf_grid.f90
r211 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Former file user_interface.f90 split into one file per subroutine6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 211 2008-11-11 04:46:24Z raasch 13 ! Former file user_interface.f90 split into one file per subroutine 11 14 ! 12 15 ! Description: -
palm/trunk/SOURCE/user_dvrp_coltab.f90
r211 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Former file user_interface.f90 split into one file per subroutine6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 211 2008-11-11 04:46:24Z raasch 13 ! Former file user_interface.f90 split into one file per subroutine 11 14 ! 12 15 ! Description: -
palm/trunk/SOURCE/user_header.f90
r217 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! +topography_grid_convention 7 ! Former file user_interface.f90 split into one file per subroutine 6 ! 8 7 ! 9 8 ! Former revisions: 10 9 ! ----------------- 11 10 ! $Id$ 11 ! 12 ! 2008-12-09 18:00:48Z letzel 13 ! +topography_grid_convention 14 ! Former file user_interface.f90 split into one file per subroutine 12 15 ! 13 16 ! Description: -
palm/trunk/SOURCE/user_init.f90
r211 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Former file user_interface.f90 split into one file per subroutine6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 211 2008-11-11 04:46:24Z raasch 13 ! Former file user_interface.f90 split into one file per subroutine 11 14 ! 12 15 ! Description: -
palm/trunk/SOURCE/user_init_3d_model.f90
r211 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Former file user_interface.f90 split into one file per subroutine6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 211 2008-11-11 04:46:24Z raasch 13 ! Former file user_interface.f90 split into one file per subroutine 11 14 ! 12 15 ! Description: -
palm/trunk/SOURCE/user_init_grid.f90
r217 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! +topography_grid_convention 7 ! Former file user_interface.f90 split into one file per subroutine 6 ! 8 7 ! 9 8 ! Former revisions: 10 9 ! ----------------- 11 10 ! $Id$ 11 ! 12 ! 217 2008-12-09 18:00:48Z letzel 13 ! +topography_grid_convention 14 ! Former file user_interface.f90 split into one file per subroutine 12 15 ! 13 16 ! Description: -
palm/trunk/SOURCE/user_init_particles.f90
r211 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Former file user_interface.f90 split into one file per subroutine6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 211 2008-11-11 04:46:24Z raasch 13 ! Former file user_interface.f90 split into one file per subroutine 11 14 ! 12 15 ! Description: -
palm/trunk/SOURCE/user_init_plant_canopy.f90
r211 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Former file user_interface.f90 split into one file per subroutine6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 211 2008-11-11 04:46:24Z raasch 13 ! Former file user_interface.f90 split into one file per subroutine 11 14 ! 12 15 ! Description: -
palm/trunk/SOURCE/user_last_actions.f90
r211 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Former file user_interface.f90 split into one file per subroutine6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 211 2008-11-11 04:46:24Z raasch 13 ! Former file user_interface.f90 split into one file per subroutine 11 14 ! 12 15 ! Description: -
palm/trunk/SOURCE/user_module.f90
r220 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Former file user_interface.f90 split into one file per subroutine, 7 ! revision history cleaned up 6 ! 8 7 ! 9 8 ! Former revisions: 10 9 ! ----------------- 11 10 ! $Id$ 11 ! 12 ! 220 2008-12-18 07:00:36Z raasch 13 ! Former file user_interface.f90 split into one file per subroutine, 14 ! revision history cleaned up 12 15 ! 13 16 ! 159 2008-04-09 08:06:03Z raasch -
palm/trunk/SOURCE/user_parin.f90
r217 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! +topography_grid_convention 7 ! Former file user_interface.f90 split into one file per subroutine 6 ! 8 7 ! 9 8 ! Former revisions: 10 9 ! ----------------- 11 10 ! $Id$ 11 ! 12 ! 217 2008-12-09 18:00:48Z letzel 13 ! +topography_grid_convention 14 ! Former file user_interface.f90 split into one file per subroutine 12 15 ! 13 16 ! Description: -
palm/trunk/SOURCE/user_particle_attributes.f90
r211 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Former file user_interface.f90 split into one file per subroutine6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 211 2008-11-11 04:46:24Z raasch 13 ! Former file user_interface.f90 split into one file per subroutine 11 14 ! 12 15 ! Description: -
palm/trunk/SOURCE/user_read_restart_data.f90
r220 r226 7 7 ! Actual revisions: 8 8 ! ----------------- 9 ! reading mechanism revised (subdomain/total domain size can vary arbitrarily 10 ! between current and previous run), 11 ! former file user_interface.f90 split into one file per subroutine 9 ! 12 10 ! 13 11 ! Former revisions: 14 12 ! ----------------- 15 13 ! $Id$ 14 ! 15 ! 220 2008-12-18 07:00:36Z raasch 16 ! reading mechanism revised (subdomain/total domain size can vary arbitrarily 17 ! between current and previous run), 18 ! former file user_interface.f90 split into one file per subroutine 16 19 ! 17 20 ! Description: -
palm/trunk/SOURCE/user_spectra.f90
r211 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Former file user_interface.f90 split into one file per subroutine6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 211 2008-11-11 04:46:24Z raasch 13 ! Former file user_interface.f90 split into one file per subroutine 11 14 ! 12 15 ! Description: -
palm/trunk/SOURCE/user_statistics.f90
r211 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Former file user_interface.f90 split into one file per subroutine6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 211 2008-11-11 04:46:24Z raasch 13 ! Former file user_interface.f90 split into one file per subroutine 11 14 ! 12 15 ! Description: -
palm/trunk/UTIL/combine_plot_fields.f90
r210 r226 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! 7 ! 8 ! Former revisions: 9 ! ----------------- 10 ! $Id$ 11 ! 12 ! 210 2008-11-06 08:54:02Z raasch 6 13 ! Size of pf3d adjusted to the required output size (1 gridpoint less, along 7 14 ! all three dimensions), because output of a subset of the data … … 11 18 ! avoid INTEL compiler warnings about (automatic) creation of temporary arrays 12 19 ! Bugfix: three misplaced #endif directives 13 !14 ! Former revisions:15 ! -----------------16 ! $Id$17 20 ! 18 21 ! 114 2007-10-10 00:03:15Z raasch
Note: See TracChangeset
for help on using the changeset viewer.
