Changeset 1253


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/calc_liquid_water_content.f90

    r1116 r1253  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix: q is set to qr in case that q is smaller than qr
    2323!
    2424! Former revisions:
     
    111111                   ql(k,j,i) = qc(k,j,i) + qr(k,j,i)
    112112                ELSE
     113                   IF ( q(k,j,i) < qr(k,j,i) )  q(k,j,i) = qr(k,j,i)
    113114                   qc(k,j,i) = 0.0
    114115                   ql(k,j,i) = qr(k,j,i)
  • palm/trunk/SOURCE/read_var_list.f90

    r1242 r1253  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Bugfix: add ref_state to read_parts_of_var_list, otherwise ref_state
     23! is zero for initializing_actions = 'cyclic_fill'
    2324!
    2425! Former revisions:
     
    911912             READ ( 13 )  ny_on_file
    912913
     914          CASE ( 'ref_state' )
     915             READ ( 13 )  ref_state
     916
    913917
    914918          CASE DEFAULT
Note: See TracChangeset for help on using the changeset viewer.