| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diag_vegtile_fill.F |
192 |
DIAG_VEGTILE_FILL |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
193 |
DIAG_VEGTILE_FILL |
IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
203 |
DIAG_VEGTILE_FILL |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
265 |
DIAG_VEGTILE_FILL |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diag_vegtile_fill.F |
66 |
DIAG_VEGTILE_FILL |
INTEGER iSp, ndId, j,l |
|
./pkg/diagnostics/diagnostics_fill.F |
113 |
DIAGNOSTICS_FILL |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill.F |
114 |
DIAGNOSTICS_FILL |
IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_fill.F |
124 |
DIAGNOSTICS_FILL |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diagnostics_fill.F |
138 |
DIAGNOSTICS_FILL |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fill.F |
66 |
DIAGNOSTICS_FILL |
INTEGER ndId, ipt, iSp |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
113 |
DIAGNOSTICS_FILL_RS |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
114 |
DIAGNOSTICS_FILL_RS |
IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
124 |
DIAGNOSTICS_FILL_RS |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
140 |
DIAGNOSTICS_FILL_RS |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
66 |
DIAGNOSTICS_FILL_RS |
INTEGER ndId, ipt, iSp |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
142 |
DIAGNOSTICS_FRACT_FILL |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
143 |
DIAGNOSTICS_FRACT_FILL |
IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
170 |
DIAGNOSTICS_FRACT_FILL |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
184 |
DIAGNOSTICS_FRACT_FILL |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
79 |
DIAGNOSTICS_FRACT_FILL |
INTEGER ndId, ipt, iSp |
|
./pkg/diagnostics/diagnostics_is_on.F |
36 |
NO PROCEDURE |
INTEGER ip,iSp |
|
./pkg/diagnostics/diagnostics_is_on.F |
59 |
NO PROCEDURE |
iSp = ABS(iSdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_is_on.F |
60 |
NO PROCEDURE |
IF (qSdiag(0,0,iSp,bi,bj).GE.0.) DIAGNOSTICS_IS_ON = .TRUE. |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
115 |
DIAGNOSTICS_SCALE_FILL |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
116 |
DIAGNOSTICS_SCALE_FILL |
IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
126 |
DIAGNOSTICS_SCALE_FILL |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
140 |
DIAGNOSTICS_SCALE_FILL |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
70 |
DIAGNOSTICS_SCALE_FILL |
INTEGER ndId, ipt, iSp |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
115 |
DIAGNOSTICS_SCALE_FILL_RS |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
116 |
DIAGNOSTICS_SCALE_FILL_RS |
IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
126 |
DIAGNOSTICS_SCALE_FILL_RS |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
142 |
DIAGNOSTICS_SCALE_FILL_RS |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
70 |
DIAGNOSTICS_SCALE_FILL_RS |
INTEGER ndId, ipt, iSp |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
173 |
DIAGNOSTICS_SWITCH_ONOFF |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
174 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (iSp.GT.0) THEN |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
176 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (dBugFlag.AND.qSdiag(0,0,iSp,bi,bj).NE. 0.) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
179 |
DIAGNOSTICS_SWITCH_ONOFF |
& ' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', 0 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
180 |
DIAGNOSTICS_SWITCH_ONOFF |
qSdiag(0,0,iSp,bi,bj) = 0. |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
186 |
DIAGNOSTICS_SWITCH_ONOFF |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
187 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (iSp.GT.0) THEN |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
189 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (dBugFlag.AND.qSdiag(0,0,iSp,bi,bj).NE.-1.) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
192 |
DIAGNOSTICS_SWITCH_ONOFF |
& ' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', -1 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
193 |
DIAGNOSTICS_SWITCH_ONOFF |
qSdiag(0,0,iSp,bi,bj) = -1. |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
47 |
DIAGNOSTICS_SWITCH_ONOFF |
INTEGER bi, bj, ip, iSp |
|
./pkg/diagnostics/diagstats_clear.F |
30 |
DIAGSTATS_CLEAR |
INTEGER m, ndId, iSp |
|
./pkg/diagnostics/diagstats_clear.F |
35 |
DIAGSTATS_CLEAR |
iSp = iSdiag(m,listId) |
|
./pkg/diagnostics/diagstats_clear.F |
36 |
DIAGSTATS_CLEAR |
CALL DIAGSTATS_CLRDIAG( ndId, iSp, myThid ) |
|
./pkg/diagnostics/diagstats_clear.F |
49 |
DIAGSTATS_CLRDIAG |
SUBROUTINE DIAGSTATS_CLRDIAG( ndId, iSp, myThid ) |
|
./pkg/diagnostics/diagstats_clear.F |
65 |
DIAGSTATS_CLRDIAG |
INTEGER ndId, iSp, myThid |
|
./pkg/diagnostics/diagstats_clear.F |
78 |
DIAGSTATS_CLRDIAG |
DO k = iSp,iSp+kdiag(ndId)-1 |
|
./pkg/diagnostics/diagstats_global.F |
14 |
DIAGSTATS_GLOBAL |
I ndId, mate, iSp, iSm, myThid ) |
|
./pkg/diagnostics/diagstats_global.F |
36 |
DIAGSTATS_GLOBAL |
INTEGER nLev, jReg, ndId, mate, iSp, iSm |
|
./pkg/diagnostics/diagstats_global.F |
74 |
DIAGSTATS_GLOBAL |
kd = iSp + k - 1 |
|
./pkg/diagnostics/diagstats_output.F |
53 |
DIAGSTATS_OUTPUT |
INTEGER j, m, ndId, iSp, iSm |
|
./pkg/diagnostics/diagstats_output.F |
87 |
DIAGSTATS_OUTPUT |
iSp = ABS(iSdiag(m,listId)) |
|
./pkg/diagnostics/diagstats_output.F |
92 |
DIAGSTATS_OUTPUT |
I ndId, mate, iSp, iSm, myThid ) |