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

Timestamp:

Mar 26, 2009 3:11:21 PM (15 years ago)

Author:

heinze

Message:

Indentation of the message calls corrected

File:

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

palm/trunk/SOURCE/check_for_restart.f90

@@ -69 +69 @@
 !-- Output that job will be terminated
     IF ( terminate_run  .AND.  myid == 0 )  THEN
-       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'
+       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
@@ -113 +113 @@
 
           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 )                      
+                                  'settings of',                            &
+                                  '&restart_time / dt_restart',             &
+                                  '&new restart time is: ', time_restart, ' s' 
+          CALL message( 'check_for_restart', 'PA0164', 0, 0, 0, 6, 0 )
  
 !