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

Diff of /MITgcm/pkg/runclock/runclock_readparms.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, Tue Jun 30 20:46:10 2009 UTC
# Line 88  C--   Close the open data file Line 88  C--   Close the open data file
88       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
89  c     write(0,*) ' RUNCLOCK_READPARMS: no Wall Clock limit set'  c     write(0,*) ' RUNCLOCK_READPARMS: no Wall Clock limit set'
90        ELSE        ELSE
91        WRITE(msgBuf,'(A,I)')        WRITE(msgBuf,'(A,I7)')
92       &  ' RUNCLOCK_READPARMS: Wall Clock limit set to ',tSecs       &  ' RUNCLOCK_READPARMS: Wall Clock limit set to ',tSecs
93        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
94       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22