/[MITgcm]/MITgcm/pkg/runclock/runclock_continue.F
ViewVC logotype

Diff of /MITgcm/pkg/runclock/runclock_continue.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by adcroft, Tue May 31 18:24:34 2005 UTC revision 1.2 by ce107, Thu Sep 20 20:55:21 2007 UTC
# Line 86  c    &  dd,dh,dm,ds,elapsed_secs,maxtime Line 86  c    &  dd,dh,dm,ds,elapsed_secs,maxtime
86    
87        IF (maxtime_secs.ne.0 .AND. elapsed_secs.GT.maxtime_secs) THEN        IF (maxtime_secs.ne.0 .AND. elapsed_secs.GT.maxtime_secs) THEN
88         RUNCLOCK_CONTINUE=.FALSE.         RUNCLOCK_CONTINUE=.FALSE.
89         WRITE(msgBuf,'(A)') ' RUNCLOCK_CONTINUE: Wall Clock limit reached!'         WRITE(msgBuf,'(A)')
90         & ' RUNCLOCK_CONTINUE: Wall Clock limit reached!'
91         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
92       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
93         CALL PRINT_ERROR( msgBuf, myThid )         CALL PRINT_ERROR( msgBuf, myThid )
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22