Changeset 2547 for palm/trunk/SOURCE/surface_mod.f90

Timestamp:

Oct 16, 2017 12:41:56 PM (7 years ago)

Author:

schwenkel

Message:

extended by cloud_droplets option

File:

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

palm/trunk/SOURCE/surface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! extended by cloud_droplets option
+! 
+! 2508 2017-10-02 08:57:09Z suehring
 ! Minor formatting adjustment
 ! 
@@ -139 +142 @@
        REAL(wp), DIMENSION(:), ALLOCATABLE ::  z0q       !< roughness length for humidity
 
-       REAL(wp), DIMENSION(:), ALLOCATABLE ::  pt1       !< Specific humidity at first grid level (required for cloud_physics = .T.)
-       REAL(wp), DIMENSION(:), ALLOCATABLE ::  qv1       !< Potential temperature at first grid level (required for cloud_physics = .T.)
+       REAL(wp), DIMENSION(:), ALLOCATABLE ::  pt1       !< Specific humidity at first grid level (required for cloud_physics = .T. or cloud_droplets = .T.)
+       REAL(wp), DIMENSION(:), ALLOCATABLE ::  qv1       !< Potential temperature at first grid level (required for cloud_physics = .T. or cloud_droplets = .T.)
 !
 !--    Define arrays for surface fluxes
@@ -745 +748 @@
 !--    When cloud physics is used, arrays for storing potential temperature and
 !--    specific humidity at first grid level are required. 
-       IF ( cloud_physics )  THEN
+       IF ( cloud_physics  .OR.  cloud_droplets )  THEN
           ALLOCATE ( surfaces%pt1(1:surfaces%ns) )
           ALLOCATE ( surfaces%qv1(1:surfaces%ns) )