Changeset 4231

Timestamp:

Sep 12, 2019 11:22:00 AM (5 years ago)

Author:

suehring

Message:

Bugfix in array deallocation

File:

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

palm/trunk/SOURCE/nesting_offl_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in array deallocation
+! 
+! 4230 2019-09-11 13:58:14Z suehring
 ! Update mean chemistry profiles. These are also used for rayleigh damping. 
 ! 
@@ -1500 +1503 @@
        ENDIF
 
-       DEALLOCATE( ref_chem   )
-       DEALLOCATE( ref_chem_l )     
+       IF ( ALLOCATED( ref_chem   ) )  DEALLOCATE( ref_chem   )
+       IF ( ALLOCATED( ref_chem_l ) )  DEALLOCATE( ref_chem_l )     
 !
 !--    Further, adjust Rayleigh damping height in case of time-changing conditions.