Changeset 3562 for palm/trunk/SOURCE/lpm_advec.f90
- Timestamp:
- Nov 23, 2018 12:06:35 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm_advec.f90
r3274 r3562 25 25 ! ----------------- 26 26 ! $Id$ 27 ! variables documented 28 ! 29 ! 3274 2018-09-24 15:42:55Z knoop 27 30 ! Modularization of all bulk cloud physics code components 28 31 ! … … 243 246 REAL(wp) :: diss_int_u !< x/y-interpolated dissipation at particle position at upper vertical level 244 247 REAL(wp) :: dt_particle_m !< previous particle time step 245 REAL(wp) :: dz_temp !< 248 REAL(wp) :: dz_temp !< dummy for the vertical grid spacing 246 249 REAL(wp) :: e_int_l !< x/y-interpolated TKE at particle position at lower vertical level 247 250 REAL(wp) :: e_int_u !< x/y-interpolated TKE at particle position at upper vertical level 248 251 REAL(wp) :: e_mean_int !< horizontal mean TKE at particle height 249 REAL(wp) :: exp_arg !< 250 REAL(wp) :: exp_term !< 252 REAL(wp) :: exp_arg !< argument in the exponent - particle radius 253 REAL(wp) :: exp_term !< exponent term 251 254 REAL(wp) :: gg !< dummy argument for horizontal particle interpolation 252 255 REAL(wp) :: height_p !< dummy argument for logarithmic interpolation 253 256 REAL(wp) :: log_z_z0_int !< logarithmus used for surface_layer interpolation 254 REAL(wp) :: random_gauss !< 257 REAL(wp) :: random_gauss !< Gaussian-distributed random number used for SGS particle advection 255 258 REAL(wp) :: RL !< Lagrangian autocorrelation coefficient 256 259 REAL(wp) :: rg1 !< Gaussian distributed random number … … 265 268 REAL(wp) :: v_int_u !< x/y-interpolated v-component at particle position at upper vertical level 266 269 REAL(wp) :: vsws_int !< surface momentum flux (u component) at particle grid box 267 REAL(wp) :: vv_int !< 270 REAL(wp) :: vv_int !< dummy to compute interpolated mean SGS TKE, used to scale SGS advection 268 271 REAL(wp) :: w_int_l !< x/y-interpolated w-component at particle position at lower vertical level 269 272 REAL(wp) :: w_int_u !< x/y-interpolated w-component at particle position at upper vertical level … … 281 284 282 285 REAL(wp), DIMENSION(number_of_particles) :: term_1_2 !< flag to communicate whether a particle is near topography or not 283 REAL(wp), DIMENSION(number_of_particles) :: dens_ratio !< 286 REAL(wp), DIMENSION(number_of_particles) :: dens_ratio !< ratio between the density of the fluid and the density of the particles 284 287 REAL(wp), DIMENSION(number_of_particles) :: de_dx_int !< horizontal TKE gradient along x at particle position 285 288 REAL(wp), DIMENSION(number_of_particles) :: de_dy_int !< horizontal TKE gradient along y at particle position … … 291 294 REAL(wp), DIMENSION(number_of_particles) :: fs_int !< weighting factor for subgrid-scale particle speed 292 295 REAL(wp), DIMENSION(number_of_particles) :: lagr_timescale !< Lagrangian timescale 293 REAL(wp), DIMENSION(number_of_particles) :: rvar1_temp !< 294 REAL(wp), DIMENSION(number_of_particles) :: rvar2_temp !< 295 REAL(wp), DIMENSION(number_of_particles) :: rvar3_temp !< 296 REAL(wp), DIMENSION(number_of_particles) :: rvar1_temp !< SGS particle velocity - u-component 297 REAL(wp), DIMENSION(number_of_particles) :: rvar2_temp !< SGS particle velocity - v-component 298 REAL(wp), DIMENSION(number_of_particles) :: rvar3_temp !< SGS particle velocity - w-component 296 299 REAL(wp), DIMENSION(number_of_particles) :: u_int !< u-component of particle speed 297 300 REAL(wp), DIMENSION(number_of_particles) :: v_int !< v-component of particle speed
Note: See TracChangeset
for help on using the changeset viewer.