| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/DIAGNOSTICS.h |
116 |
NO PROCEDURE |
INTEGER idiag(numperList,numLists) |
|
./pkg/diagnostics/DIAGNOSTICS.h |
130 |
NO PROCEDURE |
& nlists, idiag, mdiag, jdiag |
|
./pkg/diagnostics/diag_vegtile_fill.F |
90 |
DIAG_VEGTILE_FILL |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
92 |
DIAG_VEGTILE_FILL |
ipointer = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_clear.F |
35 |
DIAGNOSTICS_CLEAR |
IF ( idiag(m,listId).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_clear.F |
37 |
DIAGNOSTICS_CLEAR |
ipt = idiag(m,listId) |
|
./pkg/diagnostics/diagnostics_fill.F |
95 |
DIAGNOSTICS_FILL |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill.F |
96 |
DIAGNOSTICS_FILL |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
95 |
DIAGNOSTICS_FILL_RS |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
96 |
DIAGNOSTICS_FILL_RS |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
109 |
DIAGNOSTICS_FRACT_FILL |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
110 |
DIAGNOSTICS_FRACT_FILL |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_is_on.F |
46 |
NO PROCEDURE |
IF ( diagName.EQ.flds(m,n) .AND. idiag(m,n).NE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_is_on.F |
47 |
NO PROCEDURE |
ip = ABS(idiag(m,n)) |
|
./pkg/diagnostics/diagnostics_out.F |
186 |
DIAGNOSTICS_OUT |
IF ( idiag(md,listId).NE.0 .AND. gcode(5:5).NE.'D' ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
189 |
DIAGNOSTICS_OUT |
ip = ABS(idiag(md,listId)) + kdiag(ndId)*(lm-1) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
97 |
DIAGNOSTICS_SCALE_FILL |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
98 |
DIAGNOSTICS_SCALE_FILL |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
97 |
DIAGNOSTICS_SCALE_FILL_RS |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
98 |
DIAGNOSTICS_SCALE_FILL_RS |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
121 |
DIAGNOSTICS_SET_POINTERS |
idiag(md,ld) = 0 |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
209 |
DIAGNOSTICS_SET_POINTERS |
& mdiag(md,ld) = ABS(idiag(i,j)) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
108 |
DIAGNOSTICS_SETDIAG |
idiag(mId,listId) = -(ndiagmx+1) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
113 |
DIAGNOSTICS_SETDIAG |
idiag(k,listId) = ndiagmx + 1 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
118 |
DIAGNOSTICS_SETDIAG |
idiag(mId,listId) = ndiagmx + 1 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
167 |
DIAGNOSTICS_SETDIAG |
mdiag(mId,listId) = ABS(idiag(k,l)) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
181 |
DIAGNOSTICS_SETDIAG |
idiag(k,listId) = ndiagmx + 1 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
84 |
DIAGNOSTICS_SETDIAG |
idiag(mId,listId) = -ABS(idiag(k,l)) |
|
./pkg/diagnostics/diagnostics_summary.F |
114 |
DIAGNOSTICS_SUMMARY |
& jdiag(md,ld),' |', flds(md,ld),'|',idiag(md,ld),' |', |
|
./pkg/diagnostics/diagnostics_summary.F |
116 |
DIAGNOSTICS_SUMMARY |
ipt = ABS(idiag(md,ld)) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
109 |
DIAGNOSTICS_SWITCH_ONOFF |
ip = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
117 |
DIAGNOSTICS_SWITCH_ONOFF |
ip = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_utils.F |
260 |
DIAGNOSTICS_GET_POINTERS |
& .AND. idiag(m,n).NE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
261 |
DIAGNOSTICS_GET_POINTERS |
ip = ABS(idiag(m,n)) |
|
./pkg/diagnostics/diagnostics_utils.F |
281 |
DIAGNOSTICS_GET_POINTERS |
& .AND. idiag(m,n).NE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
282 |
DIAGNOSTICS_GET_POINTERS |
ip = ABS(idiag(m,n)) |
|
./pkg/diagnostics/diagnostics_utils.F |
289 |
DIAGNOSTICS_GET_POINTERS |
& .AND. idiag(m,n).NE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
70 |
DIAGNOSTICS_COUNT |
IF ( diagName.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
71 |
DIAGNOSTICS_COUNT |
ipt = idiag(m,n) |