Changeset 3233 for palm/trunk/SOURCE/land_surface_model_mod.f90

Timestamp:

Sep 7, 2018 1:21:24 PM (6 years ago)

Author:

schwenkel

Message:

Adapted for the use of cloud_droplets

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Adapted for the use of cloud_droplets 
+! 
+! 3222 2018-08-30 13:35:35Z suehring
 ! - Introduction of surface array for type and its names
 ! - Bugfix in intialization of pavement surfaces
@@ -2487 +2490 @@
 !
 !--    If no cloud physics is used, rho_surface has not been calculated before
-       IF (  .NOT.  cloud_physics )  THEN
+       IF (  .NOT.  cloud_physics  .AND.  .NOT.  cloud_droplets )  THEN
           CALL calc_mean_profile( pt, 4 )
           rho_surface = surface_pressure * 100.0_wp / ( r_d * hom(topo_min_level+1,1,4,0) * exn )