Changeset 2563 for palm/trunk/SOURCE/parin.f90

Timestamp:

Oct 19, 2017 3:36:10 PM (7 years ago)

Author:

Giersch

Message:

Restart runs with the usage of the wind turbine model are possible now. Further small at reading/writing restart data

File:

• palm/trunk/SOURCE/parin.f90 (modified) (3 diffs)

palm/trunk/SOURCE/parin.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Changed position where restart files are closed.
+! 
+! 2550 2017-10-16 17:12:01Z boeske
 ! Added complex_terrain
 ! 
@@ -559 +562 @@
  12       IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
              CALL read_var_list
-!
-!--          The restart file will be reopened when reading the subdomain data
-             CALL close_file( 13 )
 
 !
@@ -698 +698 @@
 
 !
+!--       The restart file will be reopened when reading the subdomain data
+          IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
+             CALL close_file( 13 )
+          ENDIF
+
+!
 !--       Check in case of initial run, if the grid point numbers are well
 !--       defined and allocate some arrays which are already needed in