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

Timestamp:

Nov 7, 2013 10:48:12 AM (11 years ago)

Author:

fricke

Message:

Bugfix: add ref_state to read_parts_of_var_list, otherwise ref_state is zero for initializing_actions = 'cyclic_fill'

Bugfix: q is set to qr in case that q is smaller than qr

File:

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

palm/trunk/SOURCE/calc_liquid_water_content.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! Bugfix: q is set to qr in case that q is smaller than qr
 !
 ! Former revisions:
@@ -111 +111 @@
                    ql(k,j,i) = qc(k,j,i) + qr(k,j,i)
                 ELSE
+                   IF ( q(k,j,i) < qr(k,j,i) )  q(k,j,i) = qr(k,j,i)
                    qc(k,j,i) = 0.0 
                    ql(k,j,i) = qr(k,j,i)