Changeset 4156


Ignore:
Timestamp:
Aug 14, 2019 9:18:14 AM (2 years ago)
Author:
schwenkel
Message:

Bugfix in case of cloud microphysics morrison

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/surface_mod.f90

    r4150 r4156  
    2626! -----------------
    2727! $Id$
     28! Bugfix in case of cloud microphysics morrison
     29!
     30! 4150 2019-08-08 20:00:47Z suehring
    2831! Generic routine to initialize single surface properties added
    2932!
     
    19641967       DEALLOCATE ( surfaces%vpt1 )
    19651968
    1966        IF ( surf_bulk_cloud_model .AND. surf_microphysics_seifert)  THEN
     1969       IF ( surf_bulk_cloud_model .AND. surf_microphysics_morrison)  THEN
    19671970          DEALLOCATE ( surfaces%qcs )
    19681971          DEALLOCATE ( surfaces%ncs )
     
    20892092       ALLOCATE ( surfaces%vpt1(1:surfaces%ns) )
    20902093
    2091        IF ( surf_bulk_cloud_model .AND. surf_microphysics_seifert)  THEN
     2094       IF ( surf_bulk_cloud_model .AND. surf_microphysics_morrison)  THEN
    20922095          ALLOCATE ( surfaces%qcs(1:surfaces%ns)   )
    20932096          ALLOCATE ( surfaces%ncs(1:surfaces%ns)   )
Note: See TracChangeset for help on using the changeset viewer.