| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_set_levels.F |
139 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I4,3A,I3,6A)') n,' |',cdiag(n),'|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
142 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I4,3A,I3,6A)') n,' |',cdiag(n),'|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
157 |
DIAGNOSTICS_SET_LEVELS |
IF ( cdiag(n).NE.blk8c ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
159 |
DIAGNOSTICS_SET_LEVELS |
IF ( cdiag(l).EQ.cdiag(n) ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
161 |
DIAGNOSTICS_SET_LEVELS |
& 'diag.Name: ',cdiag(n),' registered 2 times :' |
|
./pkg/diagnostics/DIAGNOSTICS.h |
30 |
NO PROCEDURE |
character*8 cdiag(ndiagMax) |
|
./pkg/diagnostics/DIAGNOSTICS.h |
37 |
NO PROCEDURE |
common /diagarrays/ cdiag |
|
./pkg/diagnostics/diagnostics_fill_field.F |
189 |
DIAGNOSTICS_FILL_FIELD |
& 'for Diagnostics #', ndiagnum, ' : ', cdiag(ndiagnum) |
|
./pkg/diagnostics/diagnostics_add2list.F |
52 |
DIAGNOSTICS_ADD2LIST |
IF ( cdiag(n).EQ.diagName ) THEN |
|
./pkg/diagnostics/diagnostics_add2list.F |
93 |
DIAGNOSTICS_ADD2LIST |
cdiag(diagNum) = diagName |
|
./pkg/diagnostics/diagnostics_out.F |
255 |
DIAGNOSTICS_OUT |
& ' Computing Diagnostic # ', ndId, ' ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
264 |
DIAGNOSTICS_OUT |
& ' use Counter Mate for ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
265 |
DIAGNOSTICS_OUT |
& ' Diagnostic # ',mate, ' ', cdiag(mate) |
|
./pkg/diagnostics/diagnostics_out.F |
277 |
DIAGNOSTICS_OUT |
& ' Vector Mate for ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
278 |
DIAGNOSTICS_OUT |
& ' Diagnostic # ',mVec, ' ', cdiag(mVec), |
|
./pkg/diagnostics/diagnostics_out.F |
282 |
DIAGNOSTICS_OUT |
& ' Vector Mate for ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
283 |
DIAGNOSTICS_OUT |
& ' Diagnostic # ',mVec, ' ', cdiag(mVec), |
|
./pkg/diagnostics/diagnostics_out.F |
510 |
DIAGNOSTICS_OUT |
CALL MNC_CW_ADD_VNAME(cdiag(ndId), d_cw_name, |
|
./pkg/diagnostics/diagnostics_out.F |
512 |
DIAGNOSTICS_OUT |
CALL MNC_CW_ADD_VATTR_TEXT(cdiag(ndId),'description', |
|
./pkg/diagnostics/diagnostics_out.F |
514 |
DIAGNOSTICS_OUT |
CALL MNC_CW_ADD_VATTR_TEXT(cdiag(ndId),'units', |
|
./pkg/diagnostics/diagnostics_out.F |
520 |
DIAGNOSTICS_OUT |
& cdiag(ndId), qtmp1, myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
523 |
DIAGNOSTICS_OUT |
& cdiag(ndId), qtmp1, myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
526 |
DIAGNOSTICS_OUT |
CALL MNC_CW_DEL_VNAME(cdiag(ndId), myThid) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
100 |
DIAGSTATS_SET_POINTERS |
diagSt_Flds(mm,ld) = cdiag(mate) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
65 |
DIAGSTATS_SET_POINTERS |
IF ( diagSt_Flds(md,ld).EQ.cdiag(nd) ) THEN |
|
./pkg/diagnostics/diagstats_set_pointers.F |
83 |
DIAGSTATS_SET_POINTERS |
IF ( diagSt_Flds(k,l).EQ.cdiag(-mate) ) inList=.TRUE. |
|
./pkg/diagnostics/diagstats_mnc_out.F |
244 |
DIAGSTATS_MNC_OUT |
ilen = ILNBLNK(cdiag(ndId)) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
246 |
DIAGSTATS_MNC_OUT |
& cdiag(ndId)(1:ilen),'_',stat_typ(ist+1) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
279 |
DIAGSTATS_MNC_OUT |
ilen = ILNBLNK(cdiag(ndId)) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
281 |
DIAGSTATS_MNC_OUT |
& cdiag(ndId)(1:ilen),'_lv_',stat_typ(ist+1) |
|
./pkg/diagnostics/diagstats_fill.F |
180 |
DIAGSTATS_FILL |
& 'for Diagnostics #', ndId, ' : ', cdiag(ndId) |
|
./pkg/diagnostics/diagnostics_setunits.F |
40 |
DIAGNOSTICS_SETUNITS |
if(chardiag.eq.cdiag(n)) then |
|
./pkg/diagnostics/diagnostics_init_early.F |
104 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 6) = 'SDIAG6 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
109 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 7) = 'SDIAG7 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
114 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 8) = 'SDIAG8 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
119 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 9) = 'SDIAG9 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
124 |
DIAGNOSTICS_INIT_EARLY |
cdiag(10) = 'SDIAG10 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
129 |
DIAGNOSTICS_INIT_EARLY |
cdiag(11) = 'UDIAG1 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
134 |
DIAGNOSTICS_INIT_EARLY |
cdiag(12) = 'UDIAG2 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
139 |
DIAGNOSTICS_INIT_EARLY |
cdiag(13) = 'UDIAG3 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
144 |
DIAGNOSTICS_INIT_EARLY |
cdiag(14) = 'UDIAG4 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
149 |
DIAGNOSTICS_INIT_EARLY |
cdiag(15) = 'UDIAG5 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
154 |
DIAGNOSTICS_INIT_EARLY |
cdiag(16) = 'UDIAG6 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
159 |
DIAGNOSTICS_INIT_EARLY |
cdiag(17) = 'UDIAG7 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
164 |
DIAGNOSTICS_INIT_EARLY |
cdiag(18) = 'UDIAG8 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
169 |
DIAGNOSTICS_INIT_EARLY |
cdiag(19) = 'UDIAG9 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
174 |
DIAGNOSTICS_INIT_EARLY |
cdiag(20) = 'UDIAG10 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
179 |
DIAGNOSTICS_INIT_EARLY |
cdiag(21) = 'SDIAGC ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
184 |
DIAGNOSTICS_INIT_EARLY |
cdiag(22) = 'SDIAGCC ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
68 |
DIAGNOSTICS_INIT_EARLY |
cdiag(n) = ' ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
79 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 1) = 'SDIAG1 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
84 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 2) = 'SDIAG2 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
89 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 3) = 'SDIAG3 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
94 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 4) = 'SDIAG4 ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
99 |
DIAGNOSTICS_INIT_EARLY |
cdiag( 5) = 'SDIAG5 ' |
|
./pkg/diagnostics/diagstats_setdiag.F |
120 |
DIAGSTATS_SETDIAG |
IF (cdiag(mate).EQ.cdiag(jSdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
134 |
DIAGSTATS_SETDIAG |
& mate, cdiag(mate) |
|
./pkg/diagnostics/diagstats_setdiag.F |
138 |
DIAGSTATS_SETDIAG |
& kdiag(mate), ' Levels for Count.Diag #', mate, cdiag(mate) |
|
./pkg/diagnostics/diagstats_setdiag.F |
145 |
DIAGSTATS_SETDIAG |
& '- NOTE - SETDIAG: Counter Diagnostic #', mate, cdiag(mate), |
|
./pkg/diagnostics/diagstats_setdiag.F |
72 |
DIAGSTATS_SETDIAG |
IF (cdiag(ndId).EQ.cdiag(jSdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
88 |
DIAGSTATS_SETDIAG |
& 'SETDIAG: Not enough space for Stats-Diag #',ndId,cdiag(ndId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
92 |
DIAGSTATS_SETDIAG |
& kdiag(ndId), ' Levels for Stats-Diag #', ndId, cdiag(ndId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
99 |
DIAGSTATS_SETDIAG |
& '- WARNING - SETDIAG: Stats-Diag #', ndId, cdiag(ndId), |
|
./pkg/diagnostics/diagstats_ascii_out.F |
64 |
DIAGSTATS_ASCII_OUT |
WRITE(nUnit,'(3A,I10,2(A,I4))') ' field : ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
135 |
DIAGNOSTICS_SWITCH_ONOFF |
& nd,' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', 0 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
147 |
DIAGNOSTICS_SWITCH_ONOFF |
& nd,' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->',-1 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
120 |
DIAGNOSTICS_SETDIAG |
IF (cdiag(mate).EQ.cdiag(jdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
134 |
DIAGNOSTICS_SETDIAG |
& mate, cdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
138 |
DIAGNOSTICS_SETDIAG |
& kdiag(mate), ' Levels for Count.Diag #', mate, cdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
145 |
DIAGNOSTICS_SETDIAG |
& '- NOTE - SETDIAG: Counter Diagnostic #', mate, cdiag(mate), |
|
./pkg/diagnostics/diagnostics_setdiag.F |
72 |
DIAGNOSTICS_SETDIAG |
IF ( cdiag(ndId).EQ.cdiag(jdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
88 |
DIAGNOSTICS_SETDIAG |
& 'SETDIAG: Not enough space for Diagnostic #',ndId,cdiag(ndId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
92 |
DIAGNOSTICS_SETDIAG |
& kdiag(ndId), ' Levels for Diagnostic #', ndId, cdiag(ndId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
99 |
DIAGNOSTICS_SETDIAG |
& '- WARNING - SETDIAG: Diagnostic #', ndId, cdiag(ndId), |
|
./pkg/diagnostics/diagstats_output.F |
115 |
DIAGSTATS_OUTPUT |
& ' Compute Stats, Diag. # ',ndId, ' ', cdiag(ndId), |
|
./pkg/diagnostics/diagstats_output.F |
119 |
DIAGSTATS_OUTPUT |
& ' use Counter Mate # ', mate,' ',cdiag(mate), |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
144 |
DIAGNOSTICS_SET_POINTERS |
& nd, ' ', cdiag(nd), ' , Parms: ', gdiag(nd) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
205 |
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 |
83 |
DIAGNOSTICS_SET_POINTERS |
flds (mm,ld) = cdiag(mate) |