| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/DIAGNOSTICS.h |
38 |
NO PROCEDURE |
CHARACTER*8 cdiag(ndiagMax) |
|
./pkg/diagnostics/DIAGNOSTICS.h |
46 |
NO PROCEDURE |
& cdiag, gdiag, tdiag, udiag |
|
./pkg/diagnostics/diagnostics_addtolist.F |
118 |
DIAGNOSTICS_ADDTOLIST |
cdiag(diagNum) = diagName |
|
./pkg/diagnostics/diagnostics_addtolist.F |
81 |
DIAGNOSTICS_ADDTOLIST |
IF ( cdiag(n).EQ.diagName ) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
203 |
DIAGNOSTICS_FILL_FIELD |
& 'for Diagnostics #', ndiagnum, ' : ', cdiag(ndiagnum) |
|
./pkg/diagnostics/diagnostics_init_early.F |
101 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 3) = 'SDIAG3 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
106 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 4) = 'SDIAG4 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
111 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 5) = 'SDIAG5 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
116 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 6) = 'SDIAG6 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
121 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 7) = 'SDIAG7 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
126 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 8) = 'SDIAG8 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
131 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 9) = 'SDIAG9 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
137 |
DIAGNOSTICS_INIT_EARLY |
cdiag(10) = 'SDIAG10 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
143 |
DIAGNOSTICS_INIT_EARLY |
cdiag(11) = 'UDIAG1 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
148 |
DIAGNOSTICS_INIT_EARLY |
cdiag(12) = 'UDIAG2 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
153 |
DIAGNOSTICS_INIT_EARLY |
cdiag(13) = 'UDIAG3 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
158 |
DIAGNOSTICS_INIT_EARLY |
cdiag(14) = 'UDIAG4 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
163 |
DIAGNOSTICS_INIT_EARLY |
cdiag(15) = 'UDIAG5 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
168 |
DIAGNOSTICS_INIT_EARLY |
cdiag(16) = 'UDIAG6 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
173 |
DIAGNOSTICS_INIT_EARLY |
cdiag(17) = 'UDIAG7 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
179 |
DIAGNOSTICS_INIT_EARLY |
cdiag(18) = 'UDIAG8 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
185 |
DIAGNOSTICS_INIT_EARLY |
cdiag(19) = 'UDIAG9 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
190 |
DIAGNOSTICS_INIT_EARLY |
cdiag(20) = 'UDIAG10 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
195 |
DIAGNOSTICS_INIT_EARLY |
cdiag(21) = 'SDIAGC ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
201 |
DIAGNOSTICS_INIT_EARLY |
cdiag(22) = 'SDIAGCC ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
77 |
DIAGNOSTICS_INIT_EARLY |
cdiag(n) = ' ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
91 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 1) = 'SDIAG1 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
96 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 2) = 'SDIAG2 ' |
|
./pkg/diagnostics/diagnostics_list_check.F |
66 |
DIAGNOSTICS_LIST_CHECK |
IF ( diagName.EQ.cdiag(i) ) found = .TRUE. |
|
./pkg/diagnostics/diagnostics_out.F |
383 |
DIAGNOSTICS_OUT |
& ' Computing Diagnostic # ', ndId, ' ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
387 |
DIAGNOSTICS_OUT |
& ' use Counter Mate for ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
388 |
DIAGNOSTICS_OUT |
& ' Diagnostic # ',mate, ' ', cdiag(mate) |
|
./pkg/diagnostics/diagnostics_out.F |
392 |
DIAGNOSTICS_OUT |
& ' Vector Mate for ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
393 |
DIAGNOSTICS_OUT |
& ' Diagnostic # ',mVec, ' ', cdiag(mVec), |
|
./pkg/diagnostics/diagnostics_out.F |
397 |
DIAGNOSTICS_OUT |
& ' Vector Mate for ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
398 |
DIAGNOSTICS_OUT |
& ' Diagnostic # ',mVec, ' ', cdiag(mVec), |
|
./pkg/diagnostics/diagnostics_out.F |
549 |
DIAGNOSTICS_OUT |
CALL MNC_CW_ADD_VNAME(cdiag(ndId), d_cw_name, |
|
./pkg/diagnostics/diagnostics_out.F |
551 |
DIAGNOSTICS_OUT |
CALL MNC_CW_ADD_VATTR_TEXT(cdiag(ndId),'description', |
|
./pkg/diagnostics/diagnostics_out.F |
553 |
DIAGNOSTICS_OUT |
CALL MNC_CW_ADD_VATTR_TEXT(cdiag(ndId),'units', |
|
./pkg/diagnostics/diagnostics_out.F |
561 |
DIAGNOSTICS_OUT |
CALL MNC_CW_VATTR_MISSING(cdiag(ndId), 2, |
|
./pkg/diagnostics/diagnostics_out.F |
587 |
DIAGNOSTICS_OUT |
CALL MNC_CW_VATTR_MISSING(cdiag(ndId), 0, |
|
./pkg/diagnostics/diagnostics_out.F |
596 |
DIAGNOSTICS_OUT |
& cdiag(ndId), qtmp1, myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
600 |
DIAGNOSTICS_OUT |
& cdiag(ndId), qtmp1, myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
603 |
DIAGNOSTICS_OUT |
CALL MNC_CW_DEL_VNAME(cdiag(ndId), myThid) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
107 |
DIAGNOSTICS_SET_LEVELS |
& 'level Nb =', kdiag(n), ' < 1 for diag."', cdiag(n),'"' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
115 |
DIAGNOSTICS_SET_LEVELS |
& cdiag(n),'"' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
134 |
DIAGNOSTICS_SET_LEVELS |
& 'inconsistent gdiag(3&10)="',gcode,'" for diag."',cdiag(n),'"' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
151 |
DIAGNOSTICS_SET_LEVELS |
& 'unvalid mate number=',hdiag(n),' for diag."',cdiag(n),'"' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
207 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I6,3A,I3,A,I6,6A)') n, ' |', cdiag(n), '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
211 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I6,3A,I3,A,I6,6A)') n, ' |', cdiag(n), '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
215 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I6,3A,I3,6A)') n, ' |', cdiag(n), '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
219 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I6,3A,I3,6A)') n, ' |', cdiag(n), '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
235 |
DIAGNOSTICS_SET_LEVELS |
IF ( cdiag(n).NE.blk8c ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
237 |
DIAGNOSTICS_SET_LEVELS |
IF ( cdiag(l).EQ.cdiag(n) ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
239 |
DIAGNOSTICS_SET_LEVELS |
& 'diag.Name: ',cdiag(n),' registered 2 times :' |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
148 |
DIAGNOSTICS_SET_POINTERS |
& nd, ' ', cdiag(nd), ' , Parms: ', gdiag(nd)(1:10), |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
220 |
DIAGNOSTICS_SET_POINTERS |
& '(=',kdiag(nd),') for Diag. #', nd, ' : ',cdiag(nd) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
66 |
DIAGNOSTICS_SET_POINTERS |
IF ( flds(md,ld).EQ.cdiag(nd) ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
88 |
DIAGNOSTICS_SET_POINTERS |
flds (mm,ld) = cdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
102 |
DIAGNOSTICS_SETDIAG |
& '- WARNING - SETDIAG: Diagnostic #', ndId, cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_setdiag.F |
125 |
DIAGNOSTICS_SETDIAG |
IF (cdiag(mate).EQ.cdiag(jdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
141 |
DIAGNOSTICS_SETDIAG |
& mate, cdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
146 |
DIAGNOSTICS_SETDIAG |
& ' Levels for Count.Diag #', mate, cdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
151 |
DIAGNOSTICS_SETDIAG |
& '- NOTE - SETDIAG: Counter Diagnostic #', mate, cdiag(mate), |
|
./pkg/diagnostics/diagnostics_setdiag.F |
74 |
DIAGNOSTICS_SETDIAG |
IF ( cdiag(ndId).EQ.cdiag(jdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
92 |
DIAGNOSTICS_SETDIAG |
& 'SETDIAG: Not enough space for Diagnostic #',ndId,cdiag(ndId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
97 |
DIAGNOSTICS_SETDIAG |
& ' Levels for Diagnostic #', ndId, cdiag(ndId) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
179 |
DIAGNOSTICS_SWITCH_ONOFF |
& ' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', 0 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
192 |
DIAGNOSTICS_SWITCH_ONOFF |
& ' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', -1 |
|
./pkg/diagnostics/diagnostics_utils.F |
359 |
DIAGNOSTICS_SETKLEV |
IF ( diagName.EQ.cdiag(n) ) THEN |
|
./pkg/diagnostics/diagstats_ascii_out.F |
63 |
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 |
118 |
DIAGSTATS_SETDIAG |
IF (cdiag(mate).EQ.cdiag(jSdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
132 |
DIAGSTATS_SETDIAG |
& mate, cdiag(mate) |
|
./pkg/diagnostics/diagstats_setdiag.F |
136 |
DIAGSTATS_SETDIAG |
& kdiag(mate), ' Levels for Count.Diag #', mate, cdiag(mate) |
|
./pkg/diagnostics/diagstats_setdiag.F |
143 |
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 |
& '- WARNING - SETDIAG: Stats-Diag #', ndId, cdiag(ndId), |