Changeset 2719 for palm/trunk/SOURCE/calc_liquid_water_content.f90

Timestamp:

Jan 2, 2018 9:02:06 AM (7 years ago)

Author:

maronga

Message:

bugfix for last commit

File:

• palm/trunk/SOURCE/calc_liquid_water_content.f90 (modified) (2 diffs)

palm/trunk/SOURCE/calc_liquid_water_content.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix for last change.
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -144 +147 @@
                 ENDIF
              ELSEIF ( microphysics_morrison )  THEN
-                IF (myid == 1 ) THEN
-WRITE(9,*) "clqc", ql(1,35,2), qc(1,35,2), qr(1,35,2)
                 ql(k,j,i) = qc(k,j,i) + qr(k,j,i)                              &
                                       * MERGE( 1.0_wp, 0.0_wp,                 &