| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/DIAGNOSTICS.h |
56 |
NO PROCEDURE |
INTEGER ndiag(numDiags,nSx,nSy) |
|
./pkg/diagnostics/DIAGNOSTICS.h |
60 |
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 |
88 |
DIAGNOSTICS_CLRDIAG |
ndiag(kl,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_fill.F |
90 |
DIAGNOSTICS_FILL |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
110 |
DIAGNOSTICS_FILL_FIELD |
ndiag(ipointer,bi,bj) = ndiag(ipointer,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_fill_field.F |
116 |
DIAGNOSTICS_FILL_FIELD |
ndiag(ipointer,bi,bj) = ndiag(ipointer,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
90 |
DIAGNOSTICS_FILL_RS |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
103 |
DIAGNOSTICS_FRACT_FILL |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_init_varia.F |
42 |
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 |
337 |
DIAGNOSTICS_OUT |
IF ( ndiag(ip,1,1).EQ.0 ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
353 |
DIAGNOSTICS_OUT |
& ndiag(ip,1,1), ' )' |
|
./pkg/diagnostics/diagnostics_out.F |
357 |
DIAGNOSTICS_OUT |
& ndiag(ip,1,1), ' )' |
|
./pkg/diagnostics/diagnostics_out.F |
384 |
DIAGNOSTICS_OUT |
& ' Counter:',ndiag(ip,1,1),' Parms: ',gdiag(ndId) |
|
./pkg/diagnostics/diagnostics_out.F |
390 |
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(jdiag(m,n),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 |
92 |
DIAGNOSTICS_SCALE_FILL |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
92 |
DIAGNOSTICS_SCALE_FILL_RS |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_summary.F |
118 |
DIAGNOSTICS_SUMMARY |
xOld=ndiag(ipt,1,1) |
|
./pkg/diagnostics/diagnostics_summary.F |
127 |
DIAGNOSTICS_SUMMARY |
xNew=ndiag(ii,1,1) |
|
./pkg/diagnostics/diagnostics_summary.F |
147 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I8,A)') tmpBuf(1:iLen),ndiag(ipt,1,1),' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
152 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I8,A)') tmpBuf(1:iLen),ndiag(im,1,1),' |' |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
100 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (ip.GT.0) ndiag(ip,bi,bj) = -1 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
92 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (ip.GT.0) ndiag(ip,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_utils.F |
171 |
DIAGNOSTICS_COUNT |
IF (ndiag(ipt,bi,bj).GE.0) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
178 |
DIAGNOSTICS_COUNT |
ndiag(ipt,bi,bj) = ndiag(ipt,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_utils.F |
182 |
DIAGNOSTICS_COUNT |
ndiag(ipt,bi,bj) = ndiag(ipt,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_utils.F |
70 |
GETDIAG |
factor = FLOAT(ndiag(ip,bi,bj)) |
|
./pkg/diagnostics/diagnostics_utils.F |
71 |
GETDIAG |
IF (ndiag(ip,bi,bj).NE.0) factor = 1. _d 0 / factor |
|
./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(jdiag(m,n),1,1) |