/[MITgcm]/MITgcm/pkg/ptracers/ptracers_read_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_read_pickup.F

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

revision 1.6 by jmc, Mon Dec 17 22:05:48 2007 UTC revision 1.7 by jmc, Tue Dec 18 02:00:37 2007 UTC
# Line 137  C-      Old meta-file without List of Fi Line 137  C-      Old meta-file without List of Fi
137       &      ' try to read pickup as it used to be written'       &      ' try to read pickup as it used to be written'
138            CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )            CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
139            WRITE(msgBuf,'(4A)') 'WARNING >> ',            WRITE(msgBuf,'(4A)') 'WARNING >> ',
140       &      ' until checkpoint59k (2007 Dec 18)'       &      ' until checkpoint59l (2007 Dec 17)'
141            CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )            CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
142           ENDIF           ENDIF
143          ENDIF          ENDIF
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22