| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/DIAGNOSTICS.h |
78 |
NO PROCEDURE |
INTEGER ndiag(numDiags,nSx,nSy) |
|
./pkg/diagnostics/DIAGNOSTICS.h |
82 |
NO PROCEDURE |
COMMON / DIAG_STORE_I / ndiag, pdiag |
|
./pkg/diagnostics/diag_vegtile_fill.F |
93 |
DIAG_VEGTILE_FILL |
IF ( ndiagnum.NE.0 .AND. ndiag(ipointer,1,1).GE.0 ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
98 |
DIAG_VEGTILE_FILL |
ndiag(ipointer,bi,bj) = ndiag(ipointer,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_clear.F |
91 |
DIAGNOSTICS_CLRDIAG |
ndiag(kl,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_fill.F |
97 |
DIAGNOSTICS_FILL |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
113 |
DIAGNOSTICS_FILL_FIELD |
ndiag(ipointer,bi,bj) = ndiag(ipointer,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_fill_field.F |
119 |
DIAGNOSTICS_FILL_FIELD |
ndiag(ipointer,bi,bj) = ndiag(ipointer,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
97 |
DIAGNOSTICS_FILL_RS |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
111 |
DIAGNOSTICS_FRACT_FILL |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_init_varia.F |
50 |
DIAGNOSTICS_INIT_VARIA |
ndiag(k,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_is_on.F |
48 |
NO PROCEDURE |
IF ( ndiag(ip,bi,bj).GE.0 ) DIAGNOSTICS_IS_ON = .TRUE. |
|
./pkg/diagnostics/diagnostics_out.F |
212 |
DIAGNOSTICS_OUT |
ELSEIF ( ndiag(ip,1,1).EQ.0 ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
229 |
DIAGNOSTICS_OUT |
& ndiag(ip,1,1), ' )' |
|
./pkg/diagnostics/diagnostics_out.F |
233 |
DIAGNOSTICS_OUT |
& ndiag(ip,1,1), ' )' |
|
./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 |
275 |
DIAGNOSTICS_OUT |
& ' Counter:',ndiag(ip,1,1),' Parms: ',gdiag(ndId) |
|
./pkg/diagnostics/diagnostics_out.F |
282 |
DIAGNOSTICS_OUT |
IF ( im.GT.0 .AND. ndiag(MAX(1,im),1,1).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
154 |
DIAGNOSTICS_READ_PICKUP |
READ(dUnit,'(I10)') ndiag(ndId,1,1) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
162 |
DIAGNOSTICS_READ_PICKUP |
ndiag(n,bi,bj) = ndiag(n,1,1) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
99 |
DIAGNOSTICS_SCALE_FILL |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
99 |
DIAGNOSTICS_SCALE_FILL_RS |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_summary.F |
119 |
DIAGNOSTICS_SUMMARY |
xOld=ndiag(ipt,1,1) |
|
./pkg/diagnostics/diagnostics_summary.F |
128 |
DIAGNOSTICS_SUMMARY |
xNew=ndiag(ii,1,1) |
|
./pkg/diagnostics/diagnostics_summary.F |
148 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I8,A)') tmpBuf(1:iLen),ndiag(ipt,1,1),' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
153 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I8,A)') tmpBuf(1:iLen),ndiag(im,1,1),' |' |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
112 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (ip.GT.0) ndiag(ip,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
120 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (ip.GT.0) ndiag(ip,bi,bj) = -1 |
|
./pkg/diagnostics/diagnostics_utils.F |
157 |
DIAGNOSTICS_GET_DIAG |
factor = FLOAT(ndiag(ip,bi,bj)) |
|
./pkg/diagnostics/diagnostics_utils.F |
158 |
DIAGNOSTICS_GET_DIAG |
IF (ndiag(ip,bi,bj).NE.0) factor = 1. _d 0 / factor |
|
./pkg/diagnostics/diagnostics_utils.F |
73 |
DIAGNOSTICS_COUNT |
IF (ndiag(ipt,bi,bj).GE.0) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
80 |
DIAGNOSTICS_COUNT |
ndiag(ipt,bi,bj) = ndiag(ipt,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_utils.F |
84 |
DIAGNOSTICS_COUNT |
ndiag(ipt,bi,bj) = ndiag(ipt,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
163 |
DIAGNOSTICS_WRITE_PICKUP |
& d_cw_name, ndiag, myThid) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
190 |
DIAGNOSTICS_WRITE_PICKUP |
WRITE(dUnit,'(I10)') ndiag(ndId,1,1) |