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

Timestamp:

Apr 16, 2009 12:07:26 PM (15 years ago)

Author:

raasch

Message:

changes for coupling with independent precursor runs; z_i calculation with Sullivan criterion

File:

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

palm/trunk/SOURCE/check_for_restart.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
+! Coupling with independent precursor runs.
 ! Output of messages replaced by message handling routine
 !
@@ -96 +97 @@
 !
 !-- Set the stop flag also, if restart is forced by user
-    IF ( time_restart /= 9999999.9  .AND.  time_restart < simulated_time ) &
-    THEN
+    IF ( time_restart /= 9999999.9  .AND.  &
+         time_restart < time_since_reference_point )  THEN
+
 !
 !--    Restart is not neccessary, if the end time of the run (given by