Changeset 803 for palm/trunk


Ignore:
Timestamp:
Jan 16, 2012 3:48:46 PM (13 years ago)
Author:
franke
Message:

message string

File:
1 edited

Legend:

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

    r800 r803  
    44! Current revisions:
    55! -----------------
    6 !
     6! Bugfix: wrong factor in calculation of vpt in case of cloud droplets
    77!
    88! Former revisions:
     
    4545       ENDDO
    4646    ELSE
    47        vpt = pt * ( 1.0 + 0.61 * q - 1.61 * ql )
     47       vpt = pt * ( 1.0 + 0.61 * q - ql )
    4848    ENDIF
    4949
Note: See TracChangeset for help on using the changeset viewer.