Ignore:
Timestamp:
Feb 27, 2009 2:01:30 PM (13 years ago)
Author:
heinze
Message:

Output of messages replaced by message handling routin

File:
1 edited

Legend:

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

    r226 r247  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
    6 !
     6! Output of messages replaced by message handling routine
     7!
    78!
    89! Former revisions:
     
    6869!-- Output that job will be terminated
    6970    IF ( terminate_run  .AND.  myid == 0 )  THEN
    70        PRINT*, '*** WARNING: run will be terminated because it is running', &
    71                     ' out of job cpu limit'
    72        PRINT*, '             remaining time:         ', remaining_time, ' s'
    73        PRINT*, '             termination time needed:', &
    74                              termination_time_needed, ' s'
     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'
     75       CALL message( 'check_for_restart', 'PA0163', 0, 1, 0, 6, 0 )
    7576    ENDIF
    7677
     
    111112          ENDIF
    112113
    113           IF ( myid == 0 )  THEN
    114              PRINT*, '*** INFORMATIVE: run will be terminated due to user ', &
    115                                        'settings of'
    116              PRINT*, '                 restart_time / dt_restart'
    117              PRINT*, '                 new restart time is: ', time_restart, &
    118                                        ' s'
    119           ENDIF
     114          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 )                     
     119 
    120120!
    121121!--       In case of coupled runs inform the remote model of the termination
Note: See TracChangeset for help on using the changeset viewer.