| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_clear.F |
32 |
DIAGNOSTICS_CLEAR |
INTEGER m, ndId, ipt, nLev |
|
./pkg/diagnostics/diagnostics_clear.F |
37 |
DIAGNOSTICS_CLEAR |
ipt = idiag(m,listId) |
|
./pkg/diagnostics/diagnostics_clear.F |
42 |
DIAGNOSTICS_CLEAR |
CALL DIAGNOSTICS_CLRDIAG( ipt, nLev, myThid ) |
|
./pkg/diagnostics/diagnostics_clear.F |
54 |
DIAGNOSTICS_CLRDIAG |
SUBROUTINE DIAGNOSTICS_CLRDIAG ( ipt, nLev, myThid ) |
|
./pkg/diagnostics/diagnostics_clear.F |
74 |
DIAGNOSTICS_CLRDIAG |
INTEGER ipt, nLev |
|
./pkg/diagnostics/diagnostics_clear.F |
90 |
DIAGNOSTICS_CLRDIAG |
kl = ipt+k-1 |
|
./pkg/diagnostics/diagnostics_fill.F |
100 |
DIAGNOSTICS_FILL |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fill.F |
105 |
DIAGNOSTICS_FILL |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fill.F |
66 |
DIAGNOSTICS_FILL |
INTEGER ndId, ipt, iSp |
|
./pkg/diagnostics/diagnostics_fill.F |
96 |
DIAGNOSTICS_FILL |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill.F |
97 |
DIAGNOSTICS_FILL |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
100 |
DIAGNOSTICS_FILL_RS |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
105 |
DIAGNOSTICS_FILL_RS |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
66 |
DIAGNOSTICS_FILL_RS |
INTEGER ndId, ipt, iSp |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
96 |
DIAGNOSTICS_FILL_RS |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
97 |
DIAGNOSTICS_FILL_RS |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
110 |
DIAGNOSTICS_FRACT_FILL |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
111 |
DIAGNOSTICS_FRACT_FILL |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
113 |
DIAGNOSTICS_FRACT_FILL |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
133 |
DIAGNOSTICS_FRACT_FILL |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
80 |
DIAGNOSTICS_FRACT_FILL |
INTEGER ndId, ipt, iSp |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
102 |
DIAGNOSTICS_SCALE_FILL |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
107 |
DIAGNOSTICS_SCALE_FILL |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
70 |
DIAGNOSTICS_SCALE_FILL |
INTEGER ndId, ipt, iSp |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
98 |
DIAGNOSTICS_SCALE_FILL |
ipt = idiag(m,n) |
|
./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 |
102 |
DIAGNOSTICS_SCALE_FILL_RS |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
107 |
DIAGNOSTICS_SCALE_FILL_RS |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
70 |
DIAGNOSTICS_SCALE_FILL_RS |
INTEGER ndId, ipt, iSp |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
98 |
DIAGNOSTICS_SCALE_FILL_RS |
ipt = idiag(m,n) |
|
./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 |
117 |
DIAGNOSTICS_SUMMARY |
ipt = ABS(idiag(md,ld)) |
|
./pkg/diagnostics/diagnostics_summary.F |
118 |
DIAGNOSTICS_SUMMARY |
IF (ipt.NE.0 .AND. averageCycle(ld).GT.1) THEN |
|
./pkg/diagnostics/diagnostics_summary.F |
119 |
DIAGNOSTICS_SUMMARY |
xOld=ndiag(ipt,1,1) |
|
./pkg/diagnostics/diagnostics_summary.F |
123 |
DIAGNOSTICS_SUMMARY |
ii = ipt+l*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_summary.F |
145 |
DIAGNOSTICS_SUMMARY |
ELSEIF (ipt.NE.0) THEN |
|
./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 |
203 |
DIAGNOSTICS_SUMMARY |
ipt = ABS(iSdiag(md,ld)) |
|
./pkg/diagnostics/diagnostics_summary.F |
204 |
DIAGNOSTICS_SUMMARY |
IF (ipt.NE.0) THEN |
|
./pkg/diagnostics/diagnostics_summary.F |
208 |
DIAGNOSTICS_SUMMARY |
& qSdiag(0,0,ipt,1,1),' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
33 |
DIAGNOSTICS_SUMMARY |
INTEGER md, ld, ndId, ipt, im |
|
./pkg/diagnostics/diagnostics_utils.F |
56 |
DIAGNOSTICS_COUNT |
INTEGER ipt, ndId |
|
./pkg/diagnostics/diagnostics_utils.F |
72 |
DIAGNOSTICS_COUNT |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_utils.F |
73 |
DIAGNOSTICS_COUNT |
IF (ndiag(ipt,bi,bj).GE.0) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
75 |
DIAGNOSTICS_COUNT |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./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 |