Changeset 3039 for palm/trunk/SOURCE/lpm_calc_liquid_water_content.f90
- Timestamp:
- May 24, 2018 1:13:11 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm_calc_liquid_water_content.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 ! … … 67 70 68 71 USE arrays_3d, & 69 ONLY: ql, ql_v, ql_vp72 ONLY: dzw, ql, ql_v, ql_vp 70 73 71 74 USE cloud_parameters, & … … 127 130 IF ( ql_v(k,j,i) /= 0.0_wp ) THEN 128 131 ql(k,j,i) = ql(k,j,i) + rho_l * 1.33333333_wp * pi * & 129 ql_v(k,j,i) / &130 ( rho_surface * dx * dy * dz )132 ql_v(k,j,i) / & 133 ( rho_surface * dx * dy * dzw(k) ) 131 134 132 135 IF ( ql(k,j,i) < 0.0_wp ) THEN
Note: See TracChangeset
for help on using the changeset viewer.