Changeset 803 for palm

Timestamp:

Jan 16, 2012 3:48:46 PM (13 years ago)

Author:

franke

Message:

message string

File:

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

palm/trunk/SOURCE/compute_vpt.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-!
+! Bugfix: wrong factor in calculation of vpt in case of cloud droplets
 !
 ! Former revisions:
@@ -45 +45 @@
        ENDDO
     ELSE
-       vpt = pt * ( 1.0 + 0.61 * q - 1.61 * ql ) 
+       vpt = pt * ( 1.0 + 0.61 * q - ql ) 
     ENDIF