58 |
INTEGER bi, bj |
INTEGER bi, bj |
59 |
INTEGER md, ndId, ip, im |
INTEGER md, ndId, ip, im |
60 |
INTEGER mate, mVec |
INTEGER mate, mVec |
61 |
CHARACTER*8 parms1 |
CHARACTER*10 gcode |
62 |
_RL undef, getcon |
_RL undef, getcon |
63 |
_RL tmpLev |
_RL tmpLev |
64 |
EXTERNAL getcon |
EXTERNAL getcon |
202 |
|
|
203 |
DO md = 1,nfields(listId) |
DO md = 1,nfields(listId) |
204 |
ndId = jdiag(md,listId) |
ndId = jdiag(md,listId) |
205 |
parms1 = gdiag(ndId)(1:8) |
gcode = gdiag(ndId)(1:10) |
206 |
mate = 0 |
mate = 0 |
207 |
mVec = 0 |
mVec = 0 |
208 |
IF ( parms1(5:5).EQ.'C' ) THEN |
IF ( gcode(5:5).EQ.'C' ) THEN |
209 |
C- Check for Mate of a Counter Diagnostic |
C- Check for Mate of a Counter Diagnostic |
210 |
READ(parms1,'(5X,I3)') mate |
mate = hdiag(ndId) |
211 |
ELSEIF ( parms1(1:1).EQ.'U' .OR. parms1(1:1).EQ.'V' ) THEN |
ELSEIF ( gcode(1:1).EQ.'U' .OR. gcode(1:1).EQ.'V' ) THEN |
212 |
C- Check for Mate of a Vector Diagnostic |
C- Check for Mate of a Vector Diagnostic |
213 |
READ(parms1,'(5X,I3)') mVec |
mate = hdiag(ndId) |
214 |
ENDIF |
ENDIF |
215 |
IF ( idiag(md,listId).NE.0 .AND. parms1(5:5).NE.'D' ) THEN |
IF ( idiag(md,listId).NE.0 .AND. gcode(5:5).NE.'D' ) THEN |
216 |
C-- Start processing 1 Fld : |
C-- Start processing 1 Fld : |
217 |
DO lm=1,averageCycle(listId) |
DO lm=1,averageCycle(listId) |
218 |
|
|
229 |
& '- WARNING - from DIAGNOSTICS_OUT at iter=', myIter |
& '- WARNING - from DIAGNOSTICS_OUT at iter=', myIter |
230 |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
231 |
& SQUEEZE_RIGHT, myThid) |
& SQUEEZE_RIGHT, myThid) |
232 |
WRITE(msgBuf,'(A,I4,3A,I3,2A)') |
WRITE(msgBuf,'(A,I6,3A,I4,2A)') |
233 |
& '- WARNING - diag.#',ndId, ' : ',flds(md,listId), |
& '- WARNING - diag.#',ndId, ' : ',flds(md,listId), |
234 |
& ' (#',md,' ) in outp.Stream: ',fnames(listId) |
& ' (#',md,' ) in outp.Stream: ',fnames(listId) |
235 |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
236 |
& SQUEEZE_RIGHT, myThid) |
& SQUEEZE_RIGHT, myThid) |
237 |
IF ( averageCycle(listId).GT.1 ) THEN |
IF ( averageCycle(listId).GT.1 ) THEN |
238 |
WRITE(msgBuf,'(A,2(I2,A))') |
WRITE(msgBuf,'(A,2(I3,A))') |
239 |
& '- WARNING - has not been filled (ndiag(lm=',lm,')=', |
& '- WARNING - has not been filled (ndiag(lm=',lm,')=', |
240 |
& ndiag(ip,1,1), ' )' |
& ndiag(ip,1,1), ' )' |
241 |
ELSE |
ELSE |
242 |
WRITE(msgBuf,'(A,2(I2,A))') |
WRITE(msgBuf,'(A,2(I3,A))') |
243 |
& '- WARNING - has not been filled (ndiag=', |
& '- WARNING - has not been filled (ndiag=', |
244 |
& ndiag(ip,1,1), ' )' |
& ndiag(ip,1,1), ' )' |
245 |
ENDIF |
ENDIF |
266 |
C- diagnostics is not empty : |
C- diagnostics is not empty : |
267 |
|
|
268 |
IF ( debugLevel.GE.debLevA .AND. myThid.EQ.1 ) THEN |
IF ( debugLevel.GE.debLevA .AND. myThid.EQ.1 ) THEN |
269 |
WRITE(ioUnit,'(A,I3,3A,I8,2A)') |
WRITE(ioUnit,'(A,I6,3A,I8,2A)') |
270 |
& ' Computing Diagnostic # ', ndId, ' ', cdiag(ndId), |
& ' Computing Diagnostic # ', ndId, ' ', cdiag(ndId), |
271 |
& ' Counter:',ndiag(ip,1,1),' Parms: ',gdiag(ndId) |
& ' Counter:',ndiag(ip,1,1),' Parms: ',gdiag(ndId) |
272 |
IF ( mate.GT.0 ) THEN |
IF ( mate.GT.0 ) THEN |
273 |
WRITE(ioUnit,'(3A,I3,2A)') |
WRITE(ioUnit,'(3A,I6,2A)') |
274 |
& ' use Counter Mate for ', cdiag(ndId), |
& ' use Counter Mate for ', cdiag(ndId), |
275 |
& ' Diagnostic # ',mate, ' ', cdiag(mate) |
& ' Diagnostic # ',mate, ' ', cdiag(mate) |
276 |
ELSEIF ( mVec.GT.0 ) THEN |
ELSEIF ( mVec.GT.0 ) THEN |
277 |
IF ( im.GT.0 .AND. ndiag(MAX(1,im),1,1).GT.0 ) THEN |
IF ( im.GT.0 .AND. ndiag(MAX(1,im),1,1).GT.0 ) THEN |
278 |
WRITE(ioUnit,'(3A,I3,3A)') |
WRITE(ioUnit,'(3A,I6,3A)') |
279 |
& ' Vector Mate for ', cdiag(ndId), |
& ' Vector Mate for ', cdiag(ndId), |
280 |
& ' Diagnostic # ',mVec, ' ', cdiag(mVec), |
& ' Diagnostic # ',mVec, ' ', cdiag(mVec), |
281 |
& ' exists ' |
& ' exists ' |
282 |
ELSE |
ELSE |
283 |
WRITE(ioUnit,'(3A,I3,3A)') |
WRITE(ioUnit,'(3A,I6,3A)') |
284 |
& ' Vector Mate for ', cdiag(ndId), |
& ' Vector Mate for ', cdiag(ndId), |
285 |
& ' Diagnostic # ',mVec, ' ', cdiag(mVec), |
& ' Diagnostic # ',mVec, ' ', cdiag(mVec), |
286 |
& ' not enabled' |
& ' not enabled' |