Ignore:
Timestamp:
Sep 17, 2018 8:39:12 AM (3 years ago)
Author:
suehring
Message:

Bugfix, missing deallocation of q_surface in case of restarts

File:
1 edited

Legend:

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

    r3241 r3253  
    2626! -----------------
    2727! $Id$
     28! Bugfix, missing deallocation of q_surface
     29!
     30! 3241 2018-09-12 15:02:00Z raasch
    2831! unused variables removed
    2932!
     
    191194!> @todo Clean up urban-surface variables (some of them are not used any more)
    192195!> @todo Revise chemistry surface flux part (reduce loops?!)
     196!> @todo Get rid-off deallocation routines in restarts
    193197!------------------------------------------------------------------------------!
    194198 MODULE surface_mod
     
    10561060!
    10571061!--    Characteristic humidity and surface flux of latent heat
    1058        IF ( humidity )  THEN
     1062       IF ( humidity )  THEN         
    10591063          DEALLOCATE ( surfaces%qs )
    1060           DEALLOCATE ( surfaces%qsws )     
     1064          DEALLOCATE ( surfaces%qsws ) 
     1065          DEALLOCATE ( surfaces%q_surface   )
     1066          DEALLOCATE ( surfaces%vpt_surface )
    10611067       ENDIF
    10621068!
Note: See TracChangeset for help on using the changeset viewer.