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

Timestamp:

Jun 29, 2017 9:28:18 AM (7 years ago)

Author:

raasch

Message:

write_binary is of type LOGICAL now, MPI2-related code removed, obsolete variables removed, sendrecv_in_background related parts removed, missing variable descriptions added

File:

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

palm/trunk/SOURCE/check_for_restart.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! type of write_binary changed from CHARACTER to LOGICAL
+! 
+! 2101 2017-01-05 16:42:31Z suehring
 !
 ! 2000 2016-08-20 18:09:15Z knoop
@@ -103 +106 @@
 !-- If necessary set a flag to stop the model run
     terminate_run_l = .FALSE.
-    IF ( remaining_time <= termination_time_needed  .AND.                      &
-         write_binary(1:4) == 'true' )  THEN
+    IF ( remaining_time <= termination_time_needed  .AND.  write_binary )  THEN
 
        terminate_run_l = .TRUE.
@@ -174 +176 @@
 
           WRITE( message_string, * ) 'run will be terminated because user ',   &
-                                  'forced a job finialization using a flag',   &
+                                  'forced a job finalization using a flag',    &
                                   'file:',                                     &
                                   '&DO_STOP_NOW: ', do_stop_now,               &