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

Timestamp:

Sep 17, 2018 8:39:12 AM (6 years ago)

Author:

suehring

Message:

Bugfix, missing deallocation of q_surface in case of restarts

File:

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

palm/trunk/SOURCE/surface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Bugfix, missing deallocation of q_surface
+! 
+! 3241 2018-09-12 15:02:00Z raasch
 ! unused variables removed
 ! 
@@ -191 +194 @@
 !> @todo Clean up urban-surface variables (some of them are not used any more) 
 !> @todo Revise chemistry surface flux part (reduce loops?!) 
+!> @todo Get rid-off deallocation routines in restarts
 !------------------------------------------------------------------------------!
  MODULE surface_mod
@@ -1056 +1060 @@
 !
 !--    Characteristic humidity and surface flux of latent heat
-       IF ( humidity )  THEN
+       IF ( humidity )  THEN          
           DEALLOCATE ( surfaces%qs ) 
-          DEALLOCATE ( surfaces%qsws )      
+          DEALLOCATE ( surfaces%qsws )  
+          DEALLOCATE ( surfaces%q_surface   )
+          DEALLOCATE ( surfaces%vpt_surface )
        ENDIF 
 !