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

Timestamp:

Feb 27, 2009 2:01:30 PM (15 years ago)

Author:

heinze

Message:

Output of messages replaced by message handling routin

File:

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

palm/trunk/SOURCE/check_for_restart.f90

@@ -2 +2 @@
 
 !------------------------------------------------------------------------------!
-! Actual revisions:
+! Current revisions:
 ! -----------------
-! 
+! Output of messages replaced by message handling routine
+!
 !
 ! Former revisions:
@@ -68 +69 @@
 !-- Output that job will be terminated
     IF ( terminate_run  .AND.  myid == 0 )  THEN
-       PRINT*, '*** WARNING: run will be terminated because it is running', &
-                    ' out of job cpu limit'
-       PRINT*, '             remaining time:         ', remaining_time, ' s'
-       PRINT*, '             termination time needed:', &
-                             termination_time_needed, ' s'
+       WRITE( message_string, * ) 'run will be terminated because it is running', &
+                                  ' out of job cpu limit & '&
+                                  'remaining time:         ', remaining_time, ' s', &
+                                  'termination time needed:', termination_time_needed, ' s'
+       CALL message( 'check_for_restart', 'PA0163', 0, 1, 0, 6, 0 )
     ENDIF
 
@@ -111 +112 @@
           ENDIF
 
-          IF ( myid == 0 )  THEN
-             PRINT*, '*** INFORMATIVE: run will be terminated due to user ', &
-                                       'settings of'
-             PRINT*, '                 restart_time / dt_restart'
-             PRINT*, '                 new restart time is: ', time_restart, &
-                                       ' s'
-          ENDIF
+          WRITE( message_string, * ) 'run will be terminated due to user ', &
+                                     'settings of', &
+                                     '&restart_time / dt_restart',&
+                                     '&new restart time is: ', time_restart, ' s' 
+          CALL message( 'check_for_restart', 'PA0164', 0, 0, 0, 6, 0 )                      
+ 
 !
 !--       In case of coupled runs inform the remote model of the termination