99 |
_BEGIN_MASTER( myThid ) |
_BEGIN_MASTER( myThid ) |
100 |
c IF ( filePrec.NE.0 .AND. filePrec.NE.prec ) THEN |
c IF ( filePrec.NE.0 .AND. filePrec.NE.prec ) THEN |
101 |
IF ( nbFields.GE.0 .AND. filePrec.NE.prec ) THEN |
IF ( nbFields.GE.0 .AND. filePrec.NE.prec ) THEN |
102 |
WRITE(msgBuf,'(2A,I4)') 'READ_PICKUP: ', |
WRITE(msgBuf,'(2A,I4)') 'PTRACERS_READ_PICKUP: ', |
103 |
& 'pickup-file binary precision do not match !' |
& 'pickup-file binary precision do not match !' |
104 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
105 |
WRITE(msgBuf,'(A,2(A,I4))') 'READ_PICKUP: ', |
WRITE(msgBuf,'(A,2(A,I4))') 'PTRACERS_READ_PICKUP: ', |
106 |
& 'file prec.=', filePrec, ' but expecting prec.=', prec |
& 'file prec.=', filePrec, ' but expecting prec.=', prec |
107 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
108 |
STOP 'ABNORMAL END: S/R READ_PICKUP (data-prec Pb)' |
STOP 'ABNORMAL END: S/R PTRACERS_READ_PICKUP (data-prec Pb)' |
109 |
ENDIF |
ENDIF |
110 |
_END_MASTER( myThid ) |
_END_MASTER( myThid ) |
111 |
|
|
113 |
C- No meta-file or old meta-file without List of Fields |
C- No meta-file or old meta-file without List of Fields |
114 |
ioUnit = errorMessageUnit |
ioUnit = errorMessageUnit |
115 |
IF ( pickupStrictlyMatch ) THEN |
IF ( pickupStrictlyMatch ) THEN |
116 |
WRITE(msgBuf,'(4A)') 'READ_PICKUP: ', |
WRITE(msgBuf,'(4A)') 'PTRACERS_READ_PICKUP: ', |
117 |
& 'no field-list found in meta-file', |
& 'no field-list found in meta-file', |
118 |
& ' => cannot check for strick-matching' |
& ' => cannot check for strick-matching' |
119 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
120 |
WRITE(msgBuf,'(4A)') 'READ_PICKUP: ', |
WRITE(msgBuf,'(4A)') 'PTRACERS_READ_PICKUP: ', |
121 |
& 'try with " pickupStrictlyMatch=.FALSE.,"', |
& 'try with " pickupStrictlyMatch=.FALSE.,"', |
122 |
& ' in file: "data", NameList: "PARM03"' |
& ' in file: "data", NameList: "PARM03"' |
123 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
124 |
STOP 'ABNORMAL END: S/R READ_PICKUP' |
STOP 'ABNORMAL END: S/R PTRACERS_READ_PICKUP' |
125 |
ELSE |
ELSE |
126 |
WRITE(msgBuf,'(4A)') 'WARNING >> READ_PICKUP: ', |
WRITE(msgBuf,'(4A)') 'WARNING >> PTRACERS_READ_PICKUP: ', |
127 |
& ' no field-list found' |
& ' no field-list found' |
128 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
129 |
IF ( nbFields.EQ.-1 ) THEN |
IF ( nbFields.EQ.-1 ) THEN |
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 |
230 |
U nMissing, |
U nMissing, |
231 |
I myIter, myThid ) |
I myIter, myThid ) |
232 |
IF ( nMissing.GT.missFldDim ) THEN |
IF ( nMissing.GT.missFldDim ) THEN |
233 |
WRITE(msgBuf,'(2A,I4)') 'READ_PICKUP: ', |
WRITE(msgBuf,'(2A,I4)') 'PTRACERS_READ_PICKUP: ', |
234 |
& 'missing fields list has been truncated to', missFldDim |
& 'missing fields list has been truncated to', missFldDim |
235 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
236 |
STOP 'ABNORMAL END: S/R READ_PICKUP (list-size Pb)' |
STOP 'ABNORMAL END: S/R PTRACERS_READ_PICKUP (list-size Pb)' |
237 |
ENDIF |
ENDIF |
238 |
CALL PTRACERS_CHECK_PICKUP( |
CALL PTRACERS_CHECK_PICKUP( |
239 |
I missFldList, |
I missFldList, |
240 |
I nMissing, nbFields, |
I nMissing, nbFields, |
241 |
I myIter, myThid ) |
I myIter, myThid ) |
242 |
|
_BARRIER |
243 |
|
|
244 |
C-- end: pickup_read_mdsio |
C-- end: pickup_read_mdsio |
245 |
ENDIF |
ENDIF |