Ignore:
Timestamp:
Mar 26, 2009 3:11:21 PM (13 years ago)
Author:
heinze
Message:

Indentation of the message calls corrected

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/check_for_restart.f90

    r249 r274  
    6969!-- Output that job will be terminated
    7070    IF ( terminate_run  .AND.  myid == 0 )  THEN
    71        WRITE( message_string, * ) 'run will be terminated because it is running', &
    72                                   ' out of job cpu limit & ', &
    73                                   'remaining time:         ', remaining_time, ' s', &
    74                                   'termination time needed:', termination_time_needed, ' s'
     71       WRITE( message_string, * ) 'run will be terminated because it is ', &
     72                       'running out of job cpu limit & ',                  &
     73                       'remaining time:         ', remaining_time, ' s',  &
     74                       'termination time needed:', termination_time_needed, ' s'
    7575       CALL message( 'check_for_restart', 'PA0163', 0, 1, 0, 6, 0 )
    7676    ENDIF
     
    113113
    114114          WRITE( message_string, * ) 'run will be terminated due to user ', &
    115                                      'settings of', &
    116                                      '&restart_time / dt_restart',&
    117                                      '&new restart time is: ', time_restart, ' s'
    118           CALL message( 'check_for_restart', 'PA0164', 0, 0, 0, 6, 0 )                     
     115                                  'settings of',                            &
     116                                  '&restart_time / dt_restart',             &
     117                                  '&new restart time is: ', time_restart, ' s'
     118          CALL message( 'check_for_restart', 'PA0164', 0, 0, 0, 6, 0 )
    119119 
    120120!
Note: See TracChangeset for help on using the changeset viewer.