| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/DIAGNOSTICS.h |
113 |
NO PROCEDURE |
& nlists, idiag, mdiag, jdiag |
|
./pkg/diagnostics/DIAGNOSTICS.h |
97 |
NO PROCEDURE |
INTEGER jdiag(numperlist,numlists) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
91 |
DIAG_VEGTILE_FILL |
ndiagnum = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_check.F |
153 |
DIAGNOSTICS_CHECK |
nd = jdiag(md,ld) |
|
./pkg/diagnostics/diagnostics_clear.F |
36 |
DIAGNOSTICS_CLEAR |
ndId = jdiag(m,listId) |
|
./pkg/diagnostics/diagnostics_fill.F |
91 |
DIAGNOSTICS_FILL |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
91 |
DIAGNOSTICS_FILL_RS |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
104 |
DIAGNOSTICS_FRACT_FILL |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_out.F |
312 |
DIAGNOSTICS_OUT |
ndId = jdiag(md,listId) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
154 |
DIAGNOSTICS_READ_PICKUP |
READ(dUnit,'(I10)') ndiag(jdiag(m,n),1,1) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
93 |
DIAGNOSTICS_SCALE_FILL |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
93 |
DIAGNOSTICS_SCALE_FILL_RS |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
135 |
DIAGNOSTICS_SET_POINTERS |
nd = jdiag(md,ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
140 |
DIAGNOSTICS_SET_POINTERS |
IF ( mdiag(md,ld).EQ.0 .AND. jdiag(i,j).EQ.mate ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
166 |
DIAGNOSTICS_SET_POINTERS |
nd = jdiag(md,ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
208 |
DIAGNOSTICS_SET_POINTERS |
nd = jdiag(md,ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
49 |
DIAGNOSTICS_SET_POINTERS |
jdiag(md,ld) = 0 |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
69 |
DIAGNOSTICS_SET_POINTERS |
jdiag(md,ld) = nd |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
86 |
DIAGNOSTICS_SET_POINTERS |
jdiag(mm,ld) = mate |
|
./pkg/diagnostics/diagnostics_setdiag.F |
124 |
DIAGNOSTICS_SETDIAG |
IF (flag .AND. jdiag(k,l).GT.0) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
125 |
DIAGNOSTICS_SETDIAG |
IF (cdiag(mate).EQ.cdiag(jdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
73 |
DIAGNOSTICS_SETDIAG |
IF (flag .AND. jdiag(k,l).GT.0) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
74 |
DIAGNOSTICS_SETDIAG |
IF ( cdiag(ndId).EQ.cdiag(jdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagnostics_summary.F |
114 |
DIAGNOSTICS_SUMMARY |
& jdiag(md,ld),' |', flds(md,ld),'|',idiag(md,ld),' |', |
|
./pkg/diagnostics/diagnostics_summary.F |
115 |
DIAGNOSTICS_SUMMARY |
& mdiag(md,ld),' |', kdiag(jdiag(md,ld)),' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
122 |
DIAGNOSTICS_SUMMARY |
ii = ipt+l*kdiag(jdiag(md,ld)) |
|
./pkg/diagnostics/diagnostics_utils.F |
172 |
DIAGNOSTICS_COUNT |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_utils.F |
255 |
DIAGNOSTICS_GET_POINTERS |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_utils.F |
276 |
DIAGNOSTICS_GET_POINTERS |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_utils.F |
283 |
DIAGNOSTICS_GET_POINTERS |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
190 |
DIAGNOSTICS_WRITE_PICKUP |
WRITE(dUnit,'(I10)') ndiag(jdiag(m,n),1,1) |