| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/DIAGNOSTICS.h |
60 |
NO PROCEDURE |
CHARACTER*8 cdiag(ndiagMax) |
|
./pkg/diagnostics/DIAGNOSTICS.h |
68 |
NO PROCEDURE |
& cdiag, gdiag, tdiag, udiag |
|
./pkg/diagnostics/diagnostics_addtolist.F |
107 |
DIAGNOSTICS_ADDTOLIST |
cdiag(diagNum) = diagName |
|
./pkg/diagnostics/diagnostics_addtolist.F |
70 |
DIAGNOSTICS_ADDTOLIST |
IF ( cdiag(n).EQ.diagName ) THEN |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
306 |
DIAGNOSTICS_CALC_PHIVEL |
& ' :',listId, md, ndId, ' ', cdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
211 |
DIAGNOSTICS_FILL_FIELD |
& 'for Diagnostics #', ndId, ' : ', cdiag(ndId) |
|
./pkg/diagnostics/diagnostics_init_early.F |
104 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 3) = 'SDIAG3 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
109 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 4) = 'SDIAG4 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
114 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 5) = 'SDIAG5 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
119 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 6) = 'SDIAG6 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
124 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 7) = 'SDIAG7 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
129 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 8) = 'SDIAG8 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
134 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 9) = 'SDIAG9 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
140 |
DIAGNOSTICS_INIT_EARLY |
cdiag(10) = 'SDIAG10 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
146 |
DIAGNOSTICS_INIT_EARLY |
cdiag(11) = 'UDIAG1 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
151 |
DIAGNOSTICS_INIT_EARLY |
cdiag(12) = 'UDIAG2 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
156 |
DIAGNOSTICS_INIT_EARLY |
cdiag(13) = 'UDIAG3 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
161 |
DIAGNOSTICS_INIT_EARLY |
cdiag(14) = 'UDIAG4 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
166 |
DIAGNOSTICS_INIT_EARLY |
cdiag(15) = 'UDIAG5 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
171 |
DIAGNOSTICS_INIT_EARLY |
cdiag(16) = 'UDIAG6 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
176 |
DIAGNOSTICS_INIT_EARLY |
cdiag(17) = 'UDIAG7 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
182 |
DIAGNOSTICS_INIT_EARLY |
cdiag(18) = 'UDIAG8 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
188 |
DIAGNOSTICS_INIT_EARLY |
cdiag(19) = 'UDIAG9 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
193 |
DIAGNOSTICS_INIT_EARLY |
cdiag(20) = 'UDIAG10 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
198 |
DIAGNOSTICS_INIT_EARLY |
cdiag(21) = 'SDIAGC ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
204 |
DIAGNOSTICS_INIT_EARLY |
cdiag(22) = 'SDIAGCC ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
79 |
DIAGNOSTICS_INIT_EARLY |
cdiag(n) = ' ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
94 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 1) = 'SDIAG1 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
99 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 2) = 'SDIAG2 ' |
|
./pkg/diagnostics/diagnostics_list_check.F |
65 |
DIAGNOSTICS_LIST_CHECK |
IF ( diagName.EQ.cdiag(i) ) found = .TRUE. |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
350 |
DIAGNOSTICS_MNC_OUT |
CALL MNC_CW_ADD_VNAME( cdiag(ndId), d_cw_name, |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
352 |
DIAGNOSTICS_MNC_OUT |
CALL MNC_CW_ADD_VATTR_TEXT( cdiag(ndId),'description', |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
354 |
DIAGNOSTICS_MNC_OUT |
CALL MNC_CW_ADD_VATTR_TEXT( cdiag(ndId),'units', |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
380 |
DIAGNOSTICS_MNC_OUT |
CALL MNC_CW_VATTR_MISSING(cdiag(ndId), 2, |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
389 |
DIAGNOSTICS_MNC_OUT |
CALL MNC_CW_VATTR_MISSING( cdiag(ndId), 0, |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
397 |
DIAGNOSTICS_MNC_OUT |
& cdiag(ndId), qtmp, myThid) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
401 |
DIAGNOSTICS_MNC_OUT |
& cdiag(ndId), qtmp, myThid) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
404 |
DIAGNOSTICS_MNC_OUT |
CALL MNC_CW_DEL_VNAME(cdiag(ndId), myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
208 |
DIAGNOSTICS_OUT |
& ' get Post-Proc. Diag # ', ndId, ' ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
261 |
DIAGNOSTICS_OUT |
& ' Post-Processing Diag # ', ndId, ' ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
265 |
DIAGNOSTICS_OUT |
& cdiag(nn), ' (#', nn, ') Cnt=', ndiag(ip,1,1) |
|
./pkg/diagnostics/diagnostics_out.F |
268 |
DIAGNOSTICS_OUT |
& cdiag(nn), ' (#', nn, ') Cnt=', ndiag(ip,1,1), |
|
./pkg/diagnostics/diagnostics_out.F |
270 |
DIAGNOSTICS_OUT |
& cdiag(mDbl),' (#',mDbl,') Cnt=',ndiag(im,1,1) |
|
./pkg/diagnostics/diagnostics_out.F |
274 |
DIAGNOSTICS_OUT |
& ' Computing Diagnostic # ', ndId, ' ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
279 |
DIAGNOSTICS_OUT |
& ' use Counter Mate for ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
280 |
DIAGNOSTICS_OUT |
& ' Diagnostic # ',mate, ' ', cdiag(mate) |
|
./pkg/diagnostics/diagnostics_out.F |
284 |
DIAGNOSTICS_OUT |
& ' Vector Mate for ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
285 |
DIAGNOSTICS_OUT |
& ' Diagnostic # ',mVec, ' ', cdiag(mVec), |
|
./pkg/diagnostics/diagnostics_out.F |
289 |
DIAGNOSTICS_OUT |
& ' Vector Mate for ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
290 |
DIAGNOSTICS_OUT |
& ' Diagnostic # ',mVec, ' ', cdiag(mVec), |
|
./pkg/diagnostics/diagnostics_out.F |
382 |
DIAGNOSTICS_OUT |
& 'unknown Processing method for diag="',cdiag(ndId),'"' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
108 |
DIAGNOSTICS_SET_LEVELS |
& 'level Nb =', kdiag(n), ' < 1 for diag."', cdiag(n),'"' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
116 |
DIAGNOSTICS_SET_LEVELS |
& cdiag(n),'"' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
135 |
DIAGNOSTICS_SET_LEVELS |
& 'inconsistent gdiag(3&10)="',gcode,'" for diag."',cdiag(n),'"' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
152 |
DIAGNOSTICS_SET_LEVELS |
& 'unvalid mate number=',hdiag(n),' for diag."',cdiag(n),'"' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
160 |
DIAGNOSTICS_SET_LEVELS |
& 'mate number required for diag."',cdiag(n), |
|
./pkg/diagnostics/diagnostics_set_levels.F |
217 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I6,3A,I3,A,I6,6A)') n, ' |', cdiag(n), '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
221 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I6,3A,I3,A,I6,6A)') n, ' |', cdiag(n), '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
225 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I6,3A,I3,6A)') n, ' |', cdiag(n), '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
229 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I6,3A,I3,6A)') n, ' |', cdiag(n), '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
244 |
DIAGNOSTICS_SET_LEVELS |
IF ( cdiag(n).NE.blkName ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
246 |
DIAGNOSTICS_SET_LEVELS |
IF ( cdiag(l).EQ.cdiag(n) ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
248 |
DIAGNOSTICS_SET_LEVELS |
& 'diag.Name: ',cdiag(n),' registered 2 times :' |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
139 |
DIAGNOSTICS_SET_POINTERS |
IF ( flds(md,ld).EQ.cdiag(nd) ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
216 |
DIAGNOSTICS_SET_POINTERS |
& nd, ' ', cdiag(nd), ' , Parms: ', gdiag(nd)(1:10), |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
288 |
DIAGNOSTICS_SET_POINTERS |
& '(=',kdiag(nd),') for Diag. #', nd, ' : ',cdiag(nd) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
56 |
DIAGNOSTICS_SET_POINTERS |
IF ( nd.EQ.0 .AND. flds(md,ld).EQ.cdiag(i) ) nd = i |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
65 |
DIAGNOSTICS_SET_POINTERS |
IF ( j.EQ.0 .AND. flds(i,ld).EQ.cdiag(mate) ) j = i |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
88 |
DIAGNOSTICS_SET_POINTERS |
flds(md-1,ld) = cdiag(mate) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
98 |
DIAGNOSTICS_SET_POINTERS |
flds(md,ld) = cdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
112 |
DIAGNOSTICS_SETDIAG |
& 'SETDIAG: Diag #', ndId, cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_setdiag.F |
113 |
DIAGNOSTICS_SETDIAG |
& ' processed from Diag #',nn,cdiag(nn) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
127 |
DIAGNOSTICS_SETDIAG |
flds (k,listId) = cdiag(nn) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
136 |
DIAGNOSTICS_SETDIAG |
& 'SETDIAG: Not enough space for Diagnostic #',nn,cdiag(nn) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
141 |
DIAGNOSTICS_SETDIAG |
& ' Levels for Diagnostic #', nn, cdiag(nn) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
147 |
DIAGNOSTICS_SETDIAG |
& ' #', nn, cdiag(nn), ' is already set' |
|
./pkg/diagnostics/diagnostics_setdiag.F |
177 |
DIAGNOSTICS_SETDIAG |
IF (cdiag(mate).EQ.cdiag(jdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
195 |
DIAGNOSTICS_SETDIAG |
flds (k,listId) = cdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
202 |
DIAGNOSTICS_SETDIAG |
& mate, cdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
207 |
DIAGNOSTICS_SETDIAG |
& ' Levels for Mate Diag. #', mate, cdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
212 |
DIAGNOSTICS_SETDIAG |
& ' #', mate, cdiag(mate), ' is already set' |
|
./pkg/diagnostics/diagnostics_setdiag.F |
93 |
DIAGNOSTICS_SETDIAG |
IF ( cdiag(nn).EQ.cdiag(ABS(jdiag(k,l))) ) THEN |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
206 |
DIAGNOSTICS_SWITCH_ONOFF |
& ' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', 0 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
219 |
DIAGNOSTICS_SWITCH_ONOFF |
& ' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', -1 |
|
./pkg/diagnostics/diagnostics_utils.F |
356 |
DIAGNOSTICS_SETKLEV |
IF ( diagName.EQ.cdiag(n) ) THEN |
|
./pkg/diagnostics/diagstats_ascii_out.F |
59 |
DIAGSTATS_ASCII_OUT |
WRITE(nUnit,'(3A,I10,2(A,I4))') ' field : ', cdiag(ndId), |
|
./pkg/diagnostics/diagstats_fill.F |
204 |
DIAGSTATS_FILL |
& 'for Diagnostics #', ndId, ' : ', cdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
246 |
DIAGSTATS_MNC_OUT |
ilen = ILNBLNK(cdiag(ndId)) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
248 |
DIAGSTATS_MNC_OUT |
& cdiag(ndId)(1:ilen),'_',stat_typ(ist+1) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
288 |
DIAGSTATS_MNC_OUT |
ilen = ILNBLNK(cdiag(ndId)) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
290 |
DIAGSTATS_MNC_OUT |
& cdiag(ndId)(1:ilen),'_lv_',stat_typ(ist+1) |
|
./pkg/diagnostics/diagstats_output.F |
121 |
DIAGSTATS_OUTPUT |
& ' Compute Stats, Diag. # ',ndId, ' ', cdiag(ndId), |
|
./pkg/diagnostics/diagstats_output.F |
125 |
DIAGSTATS_OUTPUT |
& ' use Counter Mate # ', mate,' ',cdiag(mate), |
|
./pkg/diagnostics/diagstats_set_pointers.F |
107 |
DIAGSTATS_SET_POINTERS |
diagSt_Flds(mm,ld) = cdiag(mate) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
66 |
DIAGSTATS_SET_POINTERS |
IF ( diagSt_Flds(md,ld).EQ.cdiag(nd) ) THEN |
|
./pkg/diagnostics/diagstats_set_pointers.F |
90 |
DIAGSTATS_SET_POINTERS |
IF ( diagSt_Flds(k,l).EQ.cdiag(-mate) ) inList=.TRUE. |
|
./pkg/diagnostics/diagstats_setdiag.F |
116 |
DIAGSTATS_SETDIAG |
IF (cdiag(mate).EQ.cdiag(jSdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
130 |
DIAGSTATS_SETDIAG |
& mate, cdiag(mate) |
|
./pkg/diagnostics/diagstats_setdiag.F |
134 |
DIAGSTATS_SETDIAG |
& kdiag(mate), ' Levels for Count.Diag #', mate, cdiag(mate) |
|
./pkg/diagnostics/diagstats_setdiag.F |
141 |
DIAGSTATS_SETDIAG |
& '- NOTE - SETDIAG: Counter Diagnostic #', mate, cdiag(mate), |
|
./pkg/diagnostics/diagstats_setdiag.F |
71 |
DIAGSTATS_SETDIAG |
IF (cdiag(ndId).EQ.cdiag(jSdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
87 |
DIAGSTATS_SETDIAG |
& 'SETDIAG: Not enough space for Stats-Diag #',ndId,cdiag(ndId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
91 |
DIAGSTATS_SETDIAG |
& kdiag(ndId), ' Levels for Stats-Diag #', ndId, cdiag(ndId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
98 |
DIAGSTATS_SETDIAG |
& '- NOTE - SETDIAG: Stats-Diag #', ndId, cdiag(ndId), |