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

Timestamp:

Jan 2, 2018 8:49:38 AM (6 years ago)

Author:

maronga

Message:

deleting of deprecated files; headers updated where needed

File:

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

palm/trunk/SOURCE/calc_liquid_water_content.f90

@@ -15 +15 @@
 ! PALM. If not, see <http://www.gnu.org/licenses/>.
 !
-! Copyright 1997-2017 Leibniz Universitaet Hannover
+! Copyright 1997-2018 Leibniz Universitaet Hannover
 !------------------------------------------------------------------------------!
 !
@@ -144 +144 @@
                 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,                 &