Changeset 1253 for palm/trunk

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

Location:

palm/trunk/SOURCE

Files:

• calc_liquid_water_content.f90 (modified) (2 diffs)
• read_var_list.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)

palm/trunk/SOURCE/read_var_list.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! Bugfix: add ref_state to read_parts_of_var_list, otherwise ref_state 
+! is zero for initializing_actions = 'cyclic_fill'
 !
 ! Former revisions:
@@ -911 +912 @@
              READ ( 13 )  ny_on_file
 
+          CASE ( 'ref_state' )
+             READ ( 13 )  ref_state
+
 
           CASE DEFAULT