Changeset 3562
 Timestamp:
 Nov 23, 2018 12:06:35 PM (4 years ago)
 Location:
 palm/trunk/SOURCE
 Files:

 3 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/boundary_conds.f90
r3467 r3562 25 25 !  26 26 ! $Id$ 27 ! variables documented 28 ! 29 ! 3467 20181030 19:05:21Z suehring 27 30 ! Implementation of a new aerosol module salsa. 28 31 ! … … 263 266 INTEGER(iwp) :: m !< running index surface elements 264 267 265 REAL(wp) :: c_max !< 266 REAL(wp) :: denom !< 268 REAL(wp) :: c_max !< maximum phase velocity allowed by CFL criterion, used for outflow boundary condition 269 REAL(wp) :: denom !< horizontal gradient of velocity component normal to the outflow boundary 267 270 268 271 
palm/trunk/SOURCE/lpm_advec.f90
r3274 r3562 25 25 !  26 26 ! $Id$ 27 ! variables documented 28 ! 29 ! 3274 20180924 15:42:55Z knoop 27 30 ! Modularization of all bulk cloud physics code components 28 31 ! … … 243 246 REAL(wp) :: diss_int_u !< x/yinterpolated 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/yinterpolated TKE at particle position at lower vertical level 247 250 REAL(wp) :: e_int_u !< x/yinterpolated 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 !< Gaussiandistributed 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/yinterpolated vcomponent 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/yinterpolated wcomponent at particle position at lower vertical level 269 272 REAL(wp) :: w_int_u !< x/yinterpolated wcomponent 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 subgridscale 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  ucomponent 297 REAL(wp), DIMENSION(number_of_particles) :: rvar2_temp !< SGS particle velocity  vcomponent 298 REAL(wp), DIMENSION(number_of_particles) :: rvar3_temp !< SGS particle velocity  wcomponent 296 299 REAL(wp), DIMENSION(number_of_particles) :: u_int !< ucomponent of particle speed 297 300 REAL(wp), DIMENSION(number_of_particles) :: v_int !< vcomponent of particle speed 
palm/trunk/SOURCE/lpm_boundary_conds.f90
r3241 r3562 25 25 !  26 26 ! $Id$ 27 ! variables documented 28 ! 29 ! 3241 20180912 15:02:00Z raasch 27 30 ! unused variables removed 28 31 ! … … 146 149 IMPLICIT NONE 147 150 148 CHARACTER (LEN=*) :: location !< 151 CHARACTER (LEN=*) :: location !< general mode: boundary conditions at bottom/top of the model domain 152 !< or at vertical surfaces (buildings, terrain steps) 149 153 150 INTEGER(iwp), INTENT(IN) :: i !< 151 INTEGER(iwp), INTENT(IN) :: j !< 152 INTEGER(iwp), INTENT(IN) :: k !< 154 INTEGER(iwp), INTENT(IN) :: i !< grid index of particle box along x 155 INTEGER(iwp), INTENT(IN) :: j !< grid index of particle box along y 156 INTEGER(iwp), INTENT(IN) :: k !< grid index of particle box along z 153 157 154 158 INTEGER(iwp) :: inc !< dummy for sorting algorithmus
Note: See TracChangeset
for help on using the changeset viewer.