| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/DIAGNOSTICS.h |
47 |
NO PROCEDURE |
integer ndiag(numdiags,nSx,nSy) |
|
./pkg/diagnostics/DIAGNOSTICS.h |
49 |
NO PROCEDURE |
common /diagnostics/ qdiag, qSdiag, ndiag |
|
./pkg/diagnostics/diagnostics_fill_field.F |
102 |
DIAGNOSTICS_FILL_FIELD |
ndiag(ipointer,bi,bj) = ndiag(ipointer,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_fill_field.F |
96 |
DIAGNOSTICS_FILL_FIELD |
ndiag(ipointer,bi,bj) = ndiag(ipointer,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_out.F |
216 |
DIAGNOSTICS_OUT |
IF ( ndiag(ip,1,1).EQ.0 ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
231 |
DIAGNOSTICS_OUT |
& ndiag(ip,1,1), ' )' |
|
./pkg/diagnostics/diagnostics_out.F |
256 |
DIAGNOSTICS_OUT |
& ' Counter:',ndiag(ip,1,1),' Parms: ',gdiag(ndId) |
|
./pkg/diagnostics/diagnostics_out.F |
275 |
DIAGNOSTICS_OUT |
IF ( im.GT.0 .AND. ndiag(MAX(1,im),1,1).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill.F |
85 |
DIAGNOSTICS_FILL |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_clear.F |
91 |
DIAGNOSTICS_CLRDIAG |
ndiag(ipt,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_is_on.F |
45 |
NO PROCEDURE |
IF ( ndiag(ip,1,1).GE.0 ) DIAGNOSTICS_IS_ON = .TRUE. |
|
./pkg/diagnostics/diagnostics_summary.F |
109 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I6,A)') tmpBuf(1:iLen),ndiag(ipt,1,1),' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
115 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I6,A)') tmpBuf(1:iLen),ndiag(im,1,1),' |' |
|
./pkg/diagnostics/diag_vegtile_fill.F |
80 |
DIAG_VEGTILE_FILL |
IF ( ndiagnum.NE.0 .AND. ndiag(ipointer,1,1).GE.0 ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
85 |
DIAG_VEGTILE_FILL |
ndiag(ipointer,bi,bj) = ndiag(ipointer,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
150 |
DIAGNOSTICS_WRITE_PICKUP |
& d_cw_name, ndiag, myThid) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
184 |
DIAGNOSTICS_WRITE_PICKUP |
WRITE(dUnit,'(I10)') ndiag(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
86 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (ip.GT.0) ndiag(ip,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
94 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (ip.GT.0) ndiag(ip,bi,bj) = -1 |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
88 |
DIAGNOSTICS_SCALE_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_fract_fill.F |
100 |
DIAGNOSTICS_FRACT_FILL |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
145 |
DIAGNOSTICS_COUNT |
IF (ndiag(ipt,1,1).GE.0) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
150 |
DIAGNOSTICS_COUNT |
ndiag(ipt,bi,bj) = ndiag(ipt,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_utils.F |
156 |
DIAGNOSTICS_COUNT |
ndiag(ipt,bi,bj) = ndiag(ipt,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_utils.F |
60 |
GETDIAG |
factor = FLOAT(ndiag(ip,bi,bj)) |
|
./pkg/diagnostics/diagnostics_utils.F |
61 |
GETDIAG |
IF (ndiag(ip,bi,bj).NE.0) factor = 1. _d 0 / factor |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
158 |
DIAGNOSTICS_READ_PICKUP |
READ(dUnit,'(I10)') ndiag(jdiag(m,n)) |