Changeset 4742 for palm/trunk/SOURCE/compute_vpt.f90

Timestamp:

Oct 14, 2020 3:11:02 PM (4 years ago)

Author:

schwenkel

Message:

Implement snow and graupel (bulk microphysics)

File:

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

palm/trunk/SOURCE/compute_vpt.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Implement snow and graupel (bulk microphysics)
+! 
+! 4559 2020-06-11 08:51:48Z raasch
 ! file re-formatted to follow the PALM coding standard
 ! 
@@ -50 +53 @@
 
     USE arrays_3d,                                                                                 &
-        ONLY:  d_exner, pt, q, qi, ql, vpt
+        ONLY:  d_exner, pt, q, qf, ql, vpt
 
     USE basic_constants_and_equations_mod,                                                         &
@@ -80 +83 @@
        DO  k = nzb, nzt+1
           vpt(k,:,:) = ( pt(k,:,:) + d_exner(k) * lv_d_cp * ql(k,:,:)   +                          &
-                                     d_exner(k) * ls_d_cp * qi(k,:,:) ) *                          &
-                       ( 1.0_wp + 0.61_wp * q(k,:,:) - 1.61_wp * ( ql(k,:,:) + qi(k,:,:) ) )
+                                     d_exner(k) * ls_d_cp * qf(k,:,:) ) *                          &
+                       ( 1.0_wp + 0.61_wp * q(k,:,:) - 1.61_wp * ( ql(k,:,:) + qf(k,:,:) ) )
        ENDDO
     ELSE