Changeset 4363 for palm/trunk/SOURCE

Timestamp:

Jan 7, 2020 6:11:28 PM (5 years ago)

Author:

suehring

Message:

plant-canopy model: fix misplaced endif

File:

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

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Fix for last commit
+! 
+! 4362 2020-01-07 17:15:02Z suehring
 ! Input of plant canopy variables from static driver moved to plant-canopy 
 ! model
@@ -1181 +1184 @@
 
                 DEALLOCATE( vars_pids )
-
+!
+!--             Finally, close the input file and deallocate temporary array
+                CALL close_input_file( pids_id )
+#endif
              ENDIF
-!
-!--          Finally, close the input file and deallocate temporary arrays
-             CALL close_input_file( pids_id )
-#endif
+
 !
 !--          Initialize LAD with data from file. If LAD is given in NetCDF file,