- Timestamp:
- Apr 8, 2014 3:22:57 PM (11 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 74 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/advec_s_bc.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1346 2014-03-27 13:18:20Z heinze -
palm/trunk/SOURCE/advec_s_pw.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/advec_s_up.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/advec_u_pw.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/advec_u_up.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/advec_v_pw.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/advec_v_up.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/advec_w_pw.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/advec_w_up.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/advec_ws.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 23 ! 24 ! Former revisions: 25 ! ----------------- 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 22 29 ! REAL constants provided with KIND-attribute, 23 30 ! module kinds added 24 31 ! some formatting adjustments 25 !26 ! Former revisions:27 ! -----------------28 ! $Id$29 32 ! 30 33 ! 1322 2014-03-20 16:38:49Z raasch -
palm/trunk/SOURCE/boundary_conds.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch 29 32 ! ONLY-attribute added to USE-statements, -
palm/trunk/SOURCE/buoyancy.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/calc_liquid_water_content.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/calc_precipitation.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/calc_radiation.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1322 2014-03-20 16:38:49Z raasch -
palm/trunk/SOURCE/check_for_restart.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/check_open.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute, 23 ! declaration for unused variables xkoor, ykoor, zkoor removed 22 ! 24 23 ! 25 24 ! Former revisions: … … 27 26 ! $Id$ 28 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute, 30 ! declaration for unused variables xkoor, ykoor, zkoor removed 31 ! 29 32 ! 1327 2014-03-21 11:00:16Z raasch 30 33 ! parts concerning iso2d and avs output removed -
palm/trunk/SOURCE/check_parameters.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1330 2014-03-24 17:29:32Z suehring 29 32 ! In case of SGS-particle velocity advection of TKE is also allowed with -
palm/trunk/SOURCE/compute_vpt.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/coriolis.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/cpulog.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1322 2014-03-20 16:38:49Z raasch -
palm/trunk/SOURCE/data_output_2d.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1327 2014-03-21 11:00:16Z raasch 29 32 ! parts concerning iso2d output removed, -
palm/trunk/SOURCE/data_output_3d.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1327 2014-03-21 11:00:16Z raasch 29 32 ! parts concerning avs output removed, -
palm/trunk/SOURCE/data_output_dvrp.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1346 2014-03-27 13:18:20Z heinze -
palm/trunk/SOURCE/data_output_mask.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1327 2014-03-21 11:00:16Z raasch 29 32 ! -
palm/trunk/SOURCE/data_output_profiles.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1327 2014-03-21 11:00:16Z raasch 29 32 ! -netcdf output queries -
palm/trunk/SOURCE/data_output_ptseries.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1327 2014-03-21 11:00:16Z raasch 29 32 ! -netcdf output queries -
palm/trunk/SOURCE/data_output_spectra.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1327 2014-03-21 11:00:16Z raasch 29 32 ! -netcdf output queries -
palm/trunk/SOURCE/diffusion_w.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1340 2014-03-25 19:45:13Z kanani 29 32 ! REAL constants defined as wp-kind -
palm/trunk/SOURCE/diffusivities.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1340 2014-03-25 19:45:13Z kanani 29 32 ! REAL constants defined as wp-kind -
palm/trunk/SOURCE/disturb_field.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1322 2014-03-20 16:38:49Z raasch -
palm/trunk/SOURCE/disturb_heatflux.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1322 2014-03-20 16:38:49Z raasch -
palm/trunk/SOURCE/eqn_state_seawater.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/fft_xy.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1342 2014-03-26 17:04:47Z kanani 29 32 ! REAL constants defined as wp-kind -
palm/trunk/SOURCE/flow_statistics.f90
r1353 r1354 21 21 ! Current revisions: 22 22 ! ----------------- 23 ! REAL constants provided with KIND-attribute24 ! 23 ! 24 ! 25 25 ! Former revisions: 26 26 ! ----------------- 27 27 ! $Id$ 28 ! 29 ! 1353 2014-04-08 15:21:23Z heinze 30 ! REAL constants provided with KIND-attribute 28 31 ! 29 32 ! 1322 2014-03-20 16:38:49Z raasch -
palm/trunk/SOURCE/global_min_max.f90
r1353 r1354 21 21 ! Current revisions: 22 22 ! ------------------ 23 ! REAL constants provided with KIND-attribute24 ! 23 ! 24 ! 25 25 ! Former revisions: 26 26 ! ----------------- 27 27 ! $Id$ 28 ! 29 ! 1353 2014-04-08 15:21:23Z heinze 30 ! REAL constants provided with KIND-attribute 28 31 ! 29 32 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/header.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1327 2014-03-21 11:00:16Z raasch 29 32 ! parts concerning iso2d and avs output removed, -
palm/trunk/SOURCE/impact_of_latent_heat.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/inflow_turbulence.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1346 2014-03-27 13:18:20Z heinze -
palm/trunk/SOURCE/init_1d_model.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1346 2014-03-27 13:18:20Z heinze 29 32 ! Bugfix: REAL constants provided with KIND-attribute especially in call of -
palm/trunk/SOURCE/init_3d_model.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1340 2014-03-25 19:45:13Z kanani 29 32 ! REAL constants defined as wp-kind -
palm/trunk/SOURCE/init_advec.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1346 2014-03-27 13:18:20Z heinze 29 32 ! Bugfix: REAL constants provided with KIND-attribute especially in call of -
palm/trunk/SOURCE/init_cloud_physics.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1334 2014-03-25 12:21:40Z heinze 29 32 ! Bugfix: REAL constants provided with KIND-attribute -
palm/trunk/SOURCE/init_dvrp.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1322 2014-03-20 16:38:49Z raasch -
palm/trunk/SOURCE/init_grid.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1322 2014-03-20 16:38:49Z raasch -
palm/trunk/SOURCE/init_masks.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1324 2014-03-21 09:13:16Z suehring -
palm/trunk/SOURCE/init_ocean.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ------------------ 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1322 2014-03-20 16:38:49Z raasch -
palm/trunk/SOURCE/init_pegrid.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1322 2014-03-20 16:38:49Z raasch -
palm/trunk/SOURCE/init_pt_anomaly.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1322 2014-03-20 16:38:49Z raasch -
palm/trunk/SOURCE/init_rankine.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1322 2014-03-20 16:38:49Z raasch -
palm/trunk/SOURCE/init_slope.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1322 2014-03-20 16:38:49Z raasch -
palm/trunk/SOURCE/local_stop.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/local_tremain.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1322 2014-03-20 16:38:49Z raasch -
palm/trunk/SOURCE/ls_forcing.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/microphysics.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1346 2014-03-27 13:18:20Z heinze 29 32 ! Bugfix: REAL constants provided with KIND-attribute especially in call of -
palm/trunk/SOURCE/modules.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1327 2014-03-21 11:00:16Z raasch 29 32 ! REAL constants defined as wp-kind -
palm/trunk/SOURCE/netcdf.f90
r1353 r1354 23 23 ! Current revisions: 24 24 ! ------------------ 25 ! REAL constants provided with KIND-attribute26 ! 25 ! 26 ! 27 27 ! Former revisions: 28 28 ! ----------------- 29 29 ! $Id$ 30 ! 31 ! 1353 2014-04-08 15:21:23Z heinze 32 ! REAL constants provided with KIND-attribute 30 33 ! 31 34 ! 1322 2014-03-20 16:38:49Z raasch -
palm/trunk/SOURCE/nudging.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/parin.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1327 2014-03-21 11:00:16Z raasch 29 32 ! -data_output_format, do3d_compress, do3d_comp_prec -
palm/trunk/SOURCE/poismg.f90
r1353 r1354 23 23 ! Current revisions: 24 24 ! ----------------- 25 ! REAL constants provided with KIND-attribute26 ! 25 ! 26 ! 27 27 ! Former revisions: 28 28 ! ----------------- 29 29 ! $Id$ 30 ! 31 ! 1353 2014-04-08 15:21:23Z heinze 32 ! REAL constants provided with KIND-attribute 30 33 ! 31 34 ! 1322 2014-03-20 16:38:49Z raasch -
palm/trunk/SOURCE/production_e.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1342 2014-03-26 17:04:47Z kanani 29 32 ! REAL constants defined as wp-kind -
palm/trunk/SOURCE/prognostic_equations.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1337 2014-03-25 15:11:48Z heinze 29 32 ! Bugfix: REAL constants provided with KIND-attribute -
palm/trunk/SOURCE/run_control.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/set_slicer_attributes_dvrp.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/sor.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/subsidence.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch 29 32 ! ONLY-attribute added to USE-statements, -
palm/trunk/SOURCE/sum_up_3d_data.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch 29 32 ! ONLY-attribute added to USE-statements, -
palm/trunk/SOURCE/surface_coupler.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1324 2014-03-21 09:13:16Z suehring 29 32 ! Bugfix: ONLY statement for module pegrid removed -
palm/trunk/SOURCE/user_3d_data_averaging.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1322 2014-03-20 16:38:49Z raasch -
palm/trunk/SOURCE/user_actions.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! REAL constants provided with KIND-attribute22 ! 23 23 ! 24 24 ! Former revisions: … … 26 26 ! $Id$ 27 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch 29 32 ! kind-parameters added to all INTEGER and REAL declaration statements, -
palm/trunk/SOURCE/user_init.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/user_init_plant_canopy.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/user_statistics.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch -
palm/trunk/SOURCE/wall_fluxes.f90
r1353 r1354 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! REAL constants provided with KIND-attribute23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! 28 ! 1353 2014-04-08 15:21:23Z heinze 29 ! REAL constants provided with KIND-attribute 27 30 ! 28 31 ! 1320 2014-03-20 08:40:49Z raasch
Note: See TracChangeset
for help on using the changeset viewer.