File |
Line number |
Procedure |
Code |
./pkg/diagnostics/DIAGNOSTICS.h |
184 |
NO PROCEDURE |
INTEGER iSdiag(numperList,numLists) |
./pkg/diagnostics/DIAGNOSTICS.h |
199 |
NO PROCEDURE |
& iSdiag, mSdiag, jSdiag, diagSt_region, |
./pkg/diagnostics/diag_vegtile_fill.F |
191 |
DIAG_VEGTILE_FILL |
IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN |
./pkg/diagnostics/diag_vegtile_fill.F |
192 |
DIAG_VEGTILE_FILL |
iSp = iSdiag(m,n) |
./pkg/diagnostics/diag_vegtile_fill.F |
203 |
DIAG_VEGTILE_FILL |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
./pkg/diagnostics/diagnostics_fill.F |
120 |
DIAGNOSTICS_FILL |
IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN |
./pkg/diagnostics/diagnostics_fill.F |
121 |
DIAGNOSTICS_FILL |
iSp = iSdiag(m,n) |
./pkg/diagnostics/diagnostics_fill.F |
132 |
DIAGNOSTICS_FILL |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
./pkg/diagnostics/diagnostics_fill_rs.F |
120 |
DIAGNOSTICS_FILL_RS |
IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN |
./pkg/diagnostics/diagnostics_fill_rs.F |
121 |
DIAGNOSTICS_FILL_RS |
iSp = iSdiag(m,n) |
./pkg/diagnostics/diagnostics_fill_rs.F |
132 |
DIAGNOSTICS_FILL_RS |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
./pkg/diagnostics/diagnostics_fract_fill.F |
148 |
DIAGNOSTICS_FRACT_FILL |
IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN |
./pkg/diagnostics/diagnostics_fract_fill.F |
149 |
DIAGNOSTICS_FRACT_FILL |
iSp = iSdiag(m,n) |
./pkg/diagnostics/diagnostics_fract_fill.F |
176 |
DIAGNOSTICS_FRACT_FILL |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
./pkg/diagnostics/diagnostics_is_on.F |
58 |
NO PROCEDURE |
& .AND.iSdiag(m,n).NE.0 ) THEN |
./pkg/diagnostics/diagnostics_is_on.F |
59 |
NO PROCEDURE |
iSp = ABS(iSdiag(m,n)) |
./pkg/diagnostics/diagnostics_scale_fill.F |
122 |
DIAGNOSTICS_SCALE_FILL |
IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN |
./pkg/diagnostics/diagnostics_scale_fill.F |
123 |
DIAGNOSTICS_SCALE_FILL |
iSp = iSdiag(m,n) |
./pkg/diagnostics/diagnostics_scale_fill.F |
134 |
DIAGNOSTICS_SCALE_FILL |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
122 |
DIAGNOSTICS_SCALE_FILL_RS |
IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN |
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
123 |
DIAGNOSTICS_SCALE_FILL_RS |
iSp = iSdiag(m,n) |
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
134 |
DIAGNOSTICS_SCALE_FILL_RS |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
./pkg/diagnostics/diagnostics_summary.F |
201 |
DIAGNOSTICS_SUMMARY |
& jSdiag(md,ld),' |', diagSt_Flds(md,ld),'|',iSdiag(md,ld), |
./pkg/diagnostics/diagnostics_summary.F |
203 |
DIAGNOSTICS_SUMMARY |
ipt = ABS(iSdiag(md,ld)) |
./pkg/diagnostics/diagnostics_switch_onoff.F |
200 |
DIAGNOSTICS_SWITCH_ONOFF |
iSp = iSdiag(m,n) |
./pkg/diagnostics/diagnostics_switch_onoff.F |
213 |
DIAGNOSTICS_SWITCH_ONOFF |
iSp = iSdiag(m,n) |
./pkg/diagnostics/diagstats_clear.F |
33 |
DIAGSTATS_CLEAR |
IF ( iSdiag(m,listId).GT.0 ) THEN |
./pkg/diagnostics/diagstats_clear.F |
35 |
DIAGSTATS_CLEAR |
iSp = iSdiag(m,listId) |
./pkg/diagnostics/diagstats_output.F |
69 |
DIAGSTATS_OUTPUT |
IF ( iSdiag(m,listId).NE.0 .AND. gcode(5:5).NE.'D' ) THEN |
./pkg/diagnostics/diagstats_output.F |
82 |
DIAGSTATS_OUTPUT |
iSp = ABS(iSdiag(m,listId)) |
./pkg/diagnostics/diagstats_set_pointers.F |
104 |
DIAGSTATS_SET_POINTERS |
iSdiag(mm,ld) = SIGN(mSdiag(md,ld),mate) |
./pkg/diagnostics/diagstats_set_pointers.F |
49 |
DIAGSTATS_SET_POINTERS |
iSdiag(md,ld) = 0 |
./pkg/diagnostics/diagstats_setdiag.F |
119 |
DIAGSTATS_SETDIAG |
mSdiag(mId,listId) = ABS(iSdiag(k,l)) |
./pkg/diagnostics/diagstats_setdiag.F |
74 |
DIAGSTATS_SETDIAG |
iSdiag(mId,listId) = -ABS(iSdiag(k,l)) |
./pkg/diagnostics/diagstats_setdiag.F |
94 |
DIAGSTATS_SETDIAG |
iSdiag(mId,listId) = ndiagmx + 1 |