Changeset 2719 for palm/trunk/SOURCE/calc_liquid_water_content.f90
- Timestamp:
- Jan 2, 2018 9:02:06 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/calc_liquid_water_content.f90
r2718 r2719 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Bugfix for last change. 28 ! 29 ! 2718 2018-01-02 08:49:38Z maronga 27 30 ! Corrected "Former revisions" section 28 31 ! … … 144 147 ENDIF 145 148 ELSEIF ( microphysics_morrison ) THEN 146 IF (myid == 1 ) THEN147 WRITE(9,*) "clqc", ql(1,35,2), qc(1,35,2), qr(1,35,2)148 149 ql(k,j,i) = qc(k,j,i) + qr(k,j,i) & 149 150 * MERGE( 1.0_wp, 0.0_wp, &
Note: See TracChangeset
for help on using the changeset viewer.