Changeset 3039 for palm/trunk/SOURCE/lpm_init.f90
- Timestamp:
- May 24, 2018 1:13:11 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm_init.f90
r2967 r3039 25 25 ! ----------------- 26 26 ! $Id$ 27 ! bugfix for lcm with grid stretching 28 ! 29 ! 2967 2018-04-13 11:22:08Z raasch 27 30 ! nesting routine is only called if nesting is switched on 28 31 ! … … 209 212 210 213 USE arrays_3d, & 211 ONLY: de_dx, de_dy, de_dz, zu, zw214 ONLY: de_dx, de_dy, de_dz, dzw, zu, zw 212 215 213 216 USE control_parameters, & … … 1161 1164 na(3) / ( SQRT( 2.0 * pi ) * log_sigma(3) ) * & 1162 1165 EXP( - LOG10( r_mid / rm(3) )**2 / ( 2.0 * log_sigma(3)**2 ) ) & 1163 ) * ( LOG10(r_r) - LOG10(r_l) ) * ( dx * dy * dz )1166 ) * ( LOG10(r_r) - LOG10(r_l) ) * ( dx * dy * dzw(kp) ) 1164 1167 1165 1168 !
Note: See TracChangeset
for help on using the changeset viewer.