260 |
IDIAG(NUM) = IPOINTER |
IDIAG(NUM) = IPOINTER |
261 |
IPOINTER = IPOINTER + KDIAG(NUM) |
IPOINTER = IPOINTER + KDIAG(NUM) |
262 |
ndiagmx = ndiagmx + KDIAG(NUM) |
ndiagmx = ndiagmx + KDIAG(NUM) |
263 |
if(myThid.eq.0) WRITE(6,2000)KDIAG(NUM),NUM,CDIAG(NUM),ndiagmx |
if(myThid.eq.1) WRITE(6,2000)KDIAG(NUM),NUM,CDIAG(NUM),ndiagmx |
264 |
endif |
endif |
265 |
ELSE |
ELSE |
266 |
if(myThid.eq.0) WRITE(6,3000) NUM, CDIAG(NUM) |
if(myThid.eq.1) WRITE(6,3000) NUM, CDIAG(NUM) |
267 |
ENDIF |
ENDIF |
268 |
|
|
269 |
c Check for Counter Diagnostic |
c Check for Counter Diagnostic |
278 |
IDIAG(mate) = IPOINTER |
IDIAG(mate) = IPOINTER |
279 |
IPOINTER = IPOINTER + KDIAG(mate) |
IPOINTER = IPOINTER + KDIAG(mate) |
280 |
ndiagmx = ndiagmx + KDIAG(mate) |
ndiagmx = ndiagmx + KDIAG(mate) |
281 |
if(myThid.eq.0)WRITE(6,2000)KDIAG(mate),mate,CDIAG(mate),ndiagmx |
if(myThid.eq.1)WRITE(6,2000)KDIAG(mate),mate,CDIAG(mate),ndiagmx |
282 |
endif |
endif |
283 |
ELSE |
ELSE |
284 |
if(myThid.eq.0) WRITE(6,3000) mate, CDIAG(mate) |
if(myThid.eq.1) WRITE(6,3000) mate, CDIAG(mate) |
285 |
ENDIF |
ENDIF |
286 |
endif |
endif |
287 |
|
|