Changeset 4261 for palm/trunk

Timestamp:

Oct 9, 2019 5:58:00 PM (5 years ago)

Author:

scharf

Message:

bugfix for rev. 4258

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix for rev. 4258: deallocate temporary arrays
+! 
+! 4258 2019-10-07 13:29:08Z suehring
 ! - Revise limitation for soil moisture in case it exceeds its saturation 
 !   value (J. Resler)
@@ -4190 +4193 @@
              ENDIF
 !           
-!--          Close input file
+!--          Close the input file and deallocate temporary arrays
+             DEALLOCATE( vars_pids )
+
              CALL close_input_file( pids_id )
 #endif