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

Timestamp:

May 6, 2020 11:39:49 AM (4 years ago)

Author:

schwenkel

Message:

add error number

File:

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

palm/trunk/SOURCE/compute_vpt.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Rename variable
+! 
+! 4502 2020-04-17 16:14:16Z schwenkel
 ! Implementation of ice microphysics
 ! 
@@ -59 +62 @@
 
     USE bulk_cloud_model_mod,                                                  &
-        ONLY:  bulk_cloud_model, microphysics_ice_extension
+        ONLY:  bulk_cloud_model, microphysics_ice_phase
 
     IMPLICIT NONE
@@ -67 +70 @@
     IF ( .NOT. bulk_cloud_model  .AND.  .NOT. cloud_droplets )  THEN
        vpt = pt * ( 1.0_wp + 0.61_wp * q )
-    ELSEIF ( bulk_cloud_model  .AND.  .NOT. microphysics_ice_extension )  THEN
+    ELSEIF ( bulk_cloud_model  .AND.  .NOT. microphysics_ice_phase )  THEN
        DO  k = nzb, nzt+1
               vpt(k,:,:) = ( pt(k,:,:) + d_exner(k) * lv_d_cp * ql(k,:,:) ) *  &
                        ( 1.0_wp + 0.61_wp * q(k,:,:) - 1.61_wp *  ql(k,:,:)  )
        ENDDO
-    ELSEIF ( bulk_cloud_model  .AND.  microphysics_ice_extension ) THEN
+    ELSEIF ( bulk_cloud_model  .AND.  microphysics_ice_phase ) THEN
        DO  k = nzb, nzt+1
           vpt(k,:,:) = ( pt(k,:,:) + d_exner(k) * lv_d_cp * ql(k,:,:)   +      &