| 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 |
121 |
DIAGNOSTICS_FILL |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill.F |
122 |
DIAGNOSTICS_FILL |
IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_fill.F |
132 |
DIAGNOSTICS_FILL |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diagnostics_fill.F |
146 |
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 |
121 |
DIAGNOSTICS_FILL_RS |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
122 |
DIAGNOSTICS_FILL_RS |
IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
132 |
DIAGNOSTICS_FILL_RS |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
148 |
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 |
149 |
DIAGNOSTICS_FRACT_FILL |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
150 |
DIAGNOSTICS_FRACT_FILL |
IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
176 |
DIAGNOSTICS_FRACT_FILL |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
190 |
DIAGNOSTICS_FRACT_FILL |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
80 |
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 |
123 |
DIAGNOSTICS_SCALE_FILL |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
124 |
DIAGNOSTICS_SCALE_FILL |
IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
134 |
DIAGNOSTICS_SCALE_FILL |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
148 |
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 |
123 |
DIAGNOSTICS_SCALE_FILL_RS |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
124 |
DIAGNOSTICS_SCALE_FILL_RS |
IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
134 |
DIAGNOSTICS_SCALE_FILL_RS |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
150 |
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 |
200 |
DIAGNOSTICS_SWITCH_ONOFF |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
201 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (iSp.GT.0) THEN |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
203 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (dBugFlag.AND.qSdiag(0,0,iSp,bi,bj).NE. 0.) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
206 |
DIAGNOSTICS_SWITCH_ONOFF |
& ' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', 0 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
207 |
DIAGNOSTICS_SWITCH_ONOFF |
qSdiag(0,0,iSp,bi,bj) = 0. |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
213 |
DIAGNOSTICS_SWITCH_ONOFF |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
214 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (iSp.GT.0) THEN |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
216 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (dBugFlag.AND.qSdiag(0,0,iSp,bi,bj).NE.-1.) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
219 |
DIAGNOSTICS_SWITCH_ONOFF |
& ' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', -1 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
220 |
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 |
48 |
DIAGSTATS_OUTPUT |
INTEGER j, m, ndId, iSp, iSm |
|
./pkg/diagnostics/diagstats_output.F |
82 |
DIAGSTATS_OUTPUT |
iSp = ABS(iSdiag(m,listId)) |
|
./pkg/diagnostics/diagstats_output.F |
87 |
DIAGSTATS_OUTPUT |
I ndId, mate, iSp, iSm, myThid ) |