| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/DIAGNOSTICS.h |
122 |
NO PROCEDURE |
CHARACTER*8 flds (numperList,numLists) |
|
./pkg/diagnostics/DIAGNOSTICS.h |
136 |
NO PROCEDURE |
& flds, fnames, fflags |
|
./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/diagnostics_fill.F |
95 |
DIAGNOSTICS_FILL |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./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_fract_fill.F |
109 |
DIAGNOSTICS_FRACT_FILL |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
105 |
DIAGNOSTICS_INTERP_VERT |
& 'fails to interpolate diag.(#', ndId,'): ',flds(md,listId) |
|
./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_out.F |
222 |
DIAGNOSTICS_OUT |
& '- WARNING - diag.#',ndId, ' : ',flds(md,listId), |
|
./pkg/diagnostics/diagnostics_out.F |
371 |
DIAGNOSTICS_OUT |
IF ( flds(md,listId).EQ.'PhiVEL ' |
|
./pkg/diagnostics/diagnostics_out.F |
372 |
DIAGNOSTICS_OUT |
& .OR. flds(md,listId).EQ.'PsiVEL ' |
|
./pkg/diagnostics/diagnostics_out.F |
448 |
DIAGNOSTICS_OUT |
& nfields(listId), flds(1,listId), |
|
./pkg/diagnostics/diagnostics_readparms.F |
251 |
DIAGNOSTICS_READPARMS |
flds(m,n) = blkName |
|
./pkg/diagnostics/diagnostics_readparms.F |
353 |
DIAGNOSTICS_READPARMS |
flds(nfields(n),n) = diagName |
|
./pkg/diagnostics/diagnostics_readparms.F |
602 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(21A)') ' Fields: ',(' ',flds(l,n),l=nf,m) |
|
./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_rs.F |
97 |
DIAGNOSTICS_SCALE_FILL_RS |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
109 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(21A)') ' Fields: ',(' ',flds(i,ld),i=md,j) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
139 |
DIAGNOSTICS_SET_POINTERS |
IF ( flds(md,ld).EQ.cdiag(nd) ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
147 |
DIAGNOSTICS_SET_POINTERS |
I ld, md, nlists, nfields, flds, myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
150 |
DIAGNOSTICS_SET_POINTERS |
& flds(md,ld),' is not a Diagnostic' |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
56 |
DIAGNOSTICS_SET_POINTERS |
IF ( nd.EQ.0 .AND. flds(md,ld).EQ.cdiag(i) ) nd = i |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
65 |
DIAGNOSTICS_SET_POINTERS |
IF ( j.EQ.0 .AND. flds(i,ld).EQ.cdiag(mate) ) j = i |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
81 |
DIAGNOSTICS_SET_POINTERS |
& ' move ',flds(j,ld),' from ',j,' down to',md-1, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
82 |
DIAGNOSTICS_SET_POINTERS |
& ' just before ',flds(md,ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
86 |
DIAGNOSTICS_SET_POINTERS |
flds(i,ld) = flds(i+1,ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
88 |
DIAGNOSTICS_SET_POINTERS |
flds(md-1,ld) = cdiag(mate) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
91 |
DIAGNOSTICS_SET_POINTERS |
& ' move ',flds(j,ld),' from ',j,' up to ',md, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
92 |
DIAGNOSTICS_SET_POINTERS |
& ' just before ',flds(md,ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
96 |
DIAGNOSTICS_SET_POINTERS |
flds(i,ld) = flds(i-1,ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
98 |
DIAGNOSTICS_SET_POINTERS |
flds(md,ld) = cdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
127 |
DIAGNOSTICS_SETDIAG |
flds (k,listId) = cdiag(nn) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
195 |
DIAGNOSTICS_SETDIAG |
flds (k,listId) = cdiag(mate) |
|
./pkg/diagnostics/diagnostics_summary.F |
115 |
DIAGNOSTICS_SUMMARY |
& jdiag(md,ld),' |', flds(md,ld),'|',idiag(md,ld),' |', |
|
./pkg/diagnostics/diagnostics_utils.F |
260 |
DIAGNOSTICS_GET_POINTERS |
IF ( ip.EQ.0 .AND. diagName.EQ.flds(m,n) |
|
./pkg/diagnostics/diagnostics_utils.F |
281 |
DIAGNOSTICS_GET_POINTERS |
IF ( ip.EQ.0 .AND. diagName.EQ.flds(m,n) |
|
./pkg/diagnostics/diagnostics_utils.F |
289 |
DIAGNOSTICS_GET_POINTERS |
IF ( ip.EQ.0 .AND. diagName.EQ.flds(m,n) |
|
./pkg/diagnostics/diagnostics_utils.F |
71 |
DIAGNOSTICS_COUNT |
IF ( diagName.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |