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

Timestamp:

Aug 14, 2019 9:18:14 AM (5 years ago)

Author:

schwenkel

Message:

Bugfix in case of cloud microphysics morrison

File:

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

palm/trunk/SOURCE/surface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Bugfix in case of cloud microphysics morrison
+! 
+! 4150 2019-08-08 20:00:47Z suehring
 ! Generic routine to initialize single surface properties added
 ! 
@@ -1964 +1967 @@
        DEALLOCATE ( surfaces%vpt1 )
 
-       IF ( surf_bulk_cloud_model .AND. surf_microphysics_seifert)  THEN
+       IF ( surf_bulk_cloud_model .AND. surf_microphysics_morrison)  THEN
           DEALLOCATE ( surfaces%qcs )
           DEALLOCATE ( surfaces%ncs )
@@ -2089 +2092 @@
        ALLOCATE ( surfaces%vpt1(1:surfaces%ns) )
 
-       IF ( surf_bulk_cloud_model .AND. surf_microphysics_seifert)  THEN
+       IF ( surf_bulk_cloud_model .AND. surf_microphysics_morrison)  THEN
           ALLOCATE ( surfaces%qcs(1:surfaces%ns)   )
           ALLOCATE ( surfaces%ncs(1:surfaces%ns)   )