| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/DIAGNOSTICS.h |
58 |
NO PROCEDURE |
INTEGER kdiag(ndiagMax) |
|
./pkg/diagnostics/DIAGNOSTICS.h |
66 |
NO PROCEDURE |
& ndiagt, kdiag, hdiag |
|
./pkg/diagnostics/diag_vegtile_fill.F |
133 |
DIAG_VEGTILE_FILL |
IF ( kStore.GT.kdiag(ndiagnum) ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
136 |
DIAG_VEGTILE_FILL |
& 'exceed Nb of levels(=',kdiag(ndiagnum),' ) reserved ' |
|
./pkg/diagnostics/diagnostics_clear.F |
38 |
DIAGNOSTICS_CLEAR |
nLev = kdiag(ndId)*averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_fill.F |
100 |
DIAGNOSTICS_FILL |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
205 |
DIAGNOSTICS_FILL_FIELD |
IF ( kStore.GT.kdiag(ndId) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
208 |
DIAGNOSTICS_FILL_FIELD |
& 'exceed Nb of levels(=',kdiag(ndId),' ) reserved ' |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
100 |
DIAGNOSTICS_FILL_RS |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
113 |
DIAGNOSTICS_FRACT_FILL |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
128 |
DIAGNOSTICS_FRACT_FILL |
nLevFract = MIN(nLevs,kdiag(mate)) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
167 |
DIAGNOSTICS_FRACT_FILL |
nLevFract = MIN(nLevs,kdiag(mate)) |
|
./pkg/diagnostics/diagnostics_init_early.F |
77 |
DIAGNOSTICS_INIT_EARLY |
kdiag(n) = 0 |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
110 |
DIAGNOSTICS_INTERP_VERT |
ipoint1 = ipoint1 + kdiag(jpoint1)*(lm-1) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
111 |
DIAGNOSTICS_INTERP_VERT |
ipoint2 = ipoint2 + kdiag(jpoint2)*(lm-1) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
135 |
DIAGNOSTICS_INTERP_VERT |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
159 |
DIAGNOSTICS_INTERP_VERT |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
168 |
DIAGNOSTICS_INTERP_VERT |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
170 |
DIAGNOSTICS_INTERP_VERT |
kLev = kdiag(ndId)-k+1 |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
192 |
DIAGNOSTICS_INTERP_VERT |
I undefRL,pInc,sNx*sNy,kdiag(ndId),myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
196 |
DIAGNOSTICS_OUT |
ip = ABS(idiag(md,listId)) + kdiag(ndId)*(lm-1) |
|
./pkg/diagnostics/diagnostics_out.F |
198 |
DIAGNOSTICS_OUT |
IF (mate.GT.0) im = im + kdiag(mate)*(lm-1) |
|
./pkg/diagnostics/diagnostics_out.F |
199 |
DIAGNOSTICS_OUT |
IF (mDbl.GT.0) im = im + kdiag(mDbl)*(lm-1) |
|
./pkg/diagnostics/diagnostics_out.F |
200 |
DIAGNOSTICS_OUT |
IF (mVec.GT.0) im = im + kdiag(mVec)*(lm-1) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
102 |
DIAGNOSTICS_SCALE_FILL |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
102 |
DIAGNOSTICS_SCALE_FILL_RS |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
101 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = nGroundLev |
|
./pkg/diagnostics/diagnostics_set_levels.F |
103 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = 1 |
|
./pkg/diagnostics/diagnostics_set_levels.F |
105 |
DIAGNOSTICS_SET_LEVELS |
IF ( kdiag(n) .LE. 0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
108 |
DIAGNOSTICS_SET_LEVELS |
& 'level Nb =', kdiag(n), ' < 1 for diag."', cdiag(n),'"' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
218 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' |', hdiag(n), ' |', gcode, '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
222 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' |', hdiag(n), ' |', gcode, '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
226 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' | |', gcode, '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
230 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' | |', gcode, '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
91 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = 0 |
|
./pkg/diagnostics/diagnostics_set_levels.F |
93 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = 1 |
|
./pkg/diagnostics/diagnostics_set_levels.F |
95 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = Nr |
|
./pkg/diagnostics/diagnostics_set_levels.F |
97 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = nlevs |
|
./pkg/diagnostics/diagnostics_set_levels.F |
99 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = nlevs - 1 |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
235 |
DIAGNOSTICS_SET_POINTERS |
kLev = MIN(kdiag(nd),kLev) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
277 |
DIAGNOSTICS_SET_POINTERS |
IF ( kLev.GT.kdiag(nd) ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
288 |
DIAGNOSTICS_SET_POINTERS |
& '(=',kdiag(nd),') for Diag. #', nd, ' : ',cdiag(nd) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
133 |
DIAGNOSTICS_SETDIAG |
ndiagmx = ndiagmx + kdiag(nn)*averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
140 |
DIAGNOSTICS_SETDIAG |
& kdiag(nn), ' x', averageCycle(listId), |
|
./pkg/diagnostics/diagnostics_setdiag.F |
198 |
DIAGNOSTICS_SETDIAG |
ndiagmx = ndiagmx + kdiag(mate)*averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
206 |
DIAGNOSTICS_SETDIAG |
& kdiag(mate), ' x', averageCycle(listId), |
|
./pkg/diagnostics/diagnostics_summary.F |
116 |
DIAGNOSTICS_SUMMARY |
& mdiag(md,ld),' |', kdiag(ndId),' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
123 |
DIAGNOSTICS_SUMMARY |
ii = ipt+l*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_utils.F |
142 |
DIAGNOSTICS_GET_DIAG |
kLev = kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_utils.F |
182 |
DIAGNOSTICS_GET_DIAG |
km = MIN(kd,kdiag(mate)) |
|
./pkg/diagnostics/diagnostics_utils.F |
368 |
DIAGNOSTICS_SETKLEV |
IF ( kdiag(ndId).EQ.0 |
|
./pkg/diagnostics/diagnostics_utils.F |
370 |
DIAGNOSTICS_SETKLEV |
kdiag(ndId) = nLevDiag |
|
./pkg/diagnostics/diagnostics_utils.F |
371 |
DIAGNOSTICS_SETKLEV |
ELSEIF ( kdiag(ndId).EQ.nLevDiag |
|
./pkg/diagnostics/diagnostics_utils.F |
379 |
DIAGNOSTICS_SETKLEV |
& ' level Nb (=', kdiag(ndId), ') already set.' |
|
./pkg/diagnostics/diagnostics_utils.F |
388 |
DIAGNOSTICS_SETKLEV |
& 'level Nb already set to', kdiag(ndId), ' => STOP' |
|
./pkg/diagnostics/diagnostics_utils.F |
75 |
DIAGNOSTICS_COUNT |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagstats_ascii_out.F |
51 |
DIAGSTATS_ASCII_OUT |
kLev = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_ascii_out.F |
60 |
DIAGSTATS_ASCII_OUT |
& ' ; Iter =',myIter,' ; region #',j, ' ; nb.Lev =',kdiag(ndId) |
|
./pkg/diagnostics/diagstats_clear.F |
78 |
DIAGSTATS_CLRDIAG |
DO k = iSp,iSp+kdiag(ndId)-1 |
|
./pkg/diagnostics/diagstats_fill.F |
198 |
DIAGSTATS_FILL |
IF ( kStore.GT.kdiag(ndId) ) THEN |
|
./pkg/diagnostics/diagstats_fill.F |
201 |
DIAGSTATS_FILL |
& 'exceed Nb of levels(=',kdiag(ndId),' ) reserved ' |
|
./pkg/diagnostics/diagstats_global.F |
63 |
DIAGSTATS_GLOBAL |
klev = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_global.F |
64 |
DIAGSTATS_GLOBAL |
IF ( mate.GT.0 ) kMlev = kdiag(mate) |
|
./pkg/diagnostics/diagstats_ini_io.F |
92 |
DIAGSTATS_INI_IO |
& ( kdiag(jSdiag(m,n)), m=j,MIN(diagSt_nbFlds(n),j+49) ) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
122 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zmd', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
123 |
DIAGSTATS_MNC_OUT |
dim(1) = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
125 |
DIAGSTATS_MNC_OUT |
ie(1) = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
191 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zd', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
194 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zmd', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
198 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zld', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
202 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zud', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
206 |
DIAGSTATS_MNC_OUT |
ie(1) = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
286 |
DIAGSTATS_MNC_OUT |
IF ( kdiag(ndId) .GT. 1 ) THEN |
|
./pkg/diagnostics/diagstats_mnc_out.F |
301 |
DIAGSTATS_MNC_OUT |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagstats_output.F |
102 |
DIAGSTATS_OUTPUT |
IF ( kdiag(ndId).GT.nLev ) THEN |
|
./pkg/diagnostics/diagstats_output.F |
104 |
DIAGSTATS_OUTPUT |
& kdiag(ndId), ' exceeds local nLev=', nLev |
|
./pkg/diagnostics/diagstats_setdiag.F |
127 |
DIAGSTATS_SETDIAG |
IF (ndiagmx+kdiag(mate).GT.diagSt_size) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
134 |
DIAGSTATS_SETDIAG |
& kdiag(mate), ' Levels for Count.Diag #', mate, cdiag(mate) |
|
./pkg/diagnostics/diagstats_setdiag.F |
138 |
DIAGSTATS_SETDIAG |
ndiagmx = ndiagmx + kdiag(mate) |
|
./pkg/diagnostics/diagstats_setdiag.F |
85 |
DIAGSTATS_SETDIAG |
IF (ndiagmx+kdiag(ndId).GT.diagSt_size) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
91 |
DIAGSTATS_SETDIAG |
& kdiag(ndId), ' Levels for Stats-Diag #', ndId, cdiag(ndId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
95 |
DIAGSTATS_SETDIAG |
ndiagmx = ndiagmx + kdiag(ndId) |