Changeset 1509 for palm/trunk/SOURCE/check_for_restart.f90

Timestamp:

Dec 16, 2014 8:56:46 AM (10 years ago)

Author:

heinze

Message:

bugfix: prevent infinite loop in case of automatic restarts

File:

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

palm/trunk/SOURCE/check_for_restart.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! bugfix: prevent infinite loop in case of automatic restarts
 ! 
 ! Former revisions:
@@ -136 +136 @@
 !
 !-- Check if a flag file exists that forces a termination of the model
-    terminate_run_l = .FALSE.
     IF ( myid == 0 )  THEN
        INQUIRE(FILE="DO_STOP_NOW", EXIST=do_stop_now)