Changeset 3039 for palm/trunk/SOURCE/lpm_droplet_condensation.f90
- Timestamp:
- May 24, 2018 1:13:11 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm_droplet_condensation.f90
r2718 r3039 25 25 ! ----------------- 26 26 ! $Id$ 27 ! bugfix for lcm with grid stretching 28 ! 29 ! 2718 2018-01-02 08:49:38Z maronga 27 30 ! Corrected "Former revisions" section 28 31 ! … … 124 127 125 128 USE arrays_3d, & 126 ONLY: hyp, pt, q, ql_c, ql_v129 ONLY: dzw, hyp, pt, q, ql_c, ql_v 127 130 128 131 USE cloud_parameters, & … … 372 375 rho_l * 1.33333333_wp * pi * & 373 376 ( new_r(n)**3 - particles(n)%radius**3 ) / & 374 ( rho_surface * dx * dy * dz )377 ( rho_surface * dx * dy * dzw(kp) ) 375 378 ! 376 379 !-- Check if the increase in liqid water is not too big. If this is the case,
Note: See TracChangeset
for help on using the changeset viewer.