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 |