Changeset 3056 for palm

Timestamp:

Jun 4, 2018 7:49:35 AM (6 years ago)

Author:

Giersch

Message:

Bugfix in case of restarts using cyclic fill

File:

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

palm/trunk/SOURCE/read_restart_data_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! found variable has to be set to false inside overlap loop
+! 
+! 3049 2018-05-29 13:52:36Z Giersch
 ! Error messages revised
 ! 
@@ -1365 +1368 @@
        DO  WHILE ( restart_string(1:length) /= '*** end ***' )
 
-          found = .FALSE.
 !
 !--       Map data on file as often as needed (data are read only for k=1)
           DO  k = 1, overlap_count(i)
 
+             found = .FALSE.
+             
 !
 !--          Get the index range of the subdomain on file which overlap with