Changeset 4187 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Aug 26, 2019 12:43:15 PM (5 years ago)

Author:

suehring

Message:

radiation: Take external radiation input from root domain dynamic file if no dynamic input file is provided for each nested domain; radiation: Combine MPI_ALLREDUCE calls to reduce latency; land_surface + plant_canopy: Give specific error numbers; land-surface: Adjust error messages for local checks; init_3d_model: Deallocate temporary string array for netcdf-data input since it may be re-used in other modules for different input files

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Deallocate temporary string array since it may be re-used to read different 
+! input data in other modules
+! 
+! 4186 2019-08-23 16:06:14Z suehring
 ! Design change, use variables defined in netcdf_data_input_mod to read netcd
 ! variables rather than define local ones.
@@ -1594 +1598 @@
                            
 !
-!--    Finally, close the input file.
+!--    Finally, close the input file and deallocate temporary arrays
+       DEALLOCATE( vars_pids )
+       
        CALL close_input_file( pids_id )
 #endif