| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_set_levels.F |
140 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' |',gdiag(n),'|',udiag(n),'|',tdiag(n)(1:l) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
143 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' |',gdiag(n),'|',udiag(n),'|' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
79 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = 0 |
|
./pkg/diagnostics/diagnostics_set_levels.F |
81 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = 1 |
|
./pkg/diagnostics/diagnostics_set_levels.F |
83 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = Nr |
|
./pkg/diagnostics/diagnostics_set_levels.F |
85 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = nlevs |
|
./pkg/diagnostics/diagnostics_set_levels.F |
87 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = nlevs - 1 |
|
./pkg/diagnostics/diagnostics_set_levels.F |
89 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = nGroundLev |
|
./pkg/diagnostics/diagnostics_set_levels.F |
92 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = 1 |
|
./pkg/diagnostics/diagstats_global.F |
62 |
DIAGSTATS_GLOBAL |
klev = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_global.F |
63 |
DIAGSTATS_GLOBAL |
IF ( mate.GT.0 ) kMlev = kdiag(mate) |
|
./pkg/diagnostics/DIAGNOSTICS.h |
29 |
NO PROCEDURE |
integer kdiag(ndiagMax) |
|
./pkg/diagnostics/DIAGNOSTICS.h |
36 |
NO PROCEDURE |
common /diagarrays/ kdiag |
|
./pkg/diagnostics/diagnostics_fill_field.F |
183 |
DIAGNOSTICS_FILL_FIELD |
IF ( kStore.GT.kdiag(ndiagnum) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
186 |
DIAGNOSTICS_FILL_FIELD |
& 'exceed Nb of levels(=',kdiag(ndiagnum),' ) reserved ' |
|
./pkg/diagnostics/diagstats_mnc_out.F |
120 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zmd', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
121 |
DIAGSTATS_MNC_OUT |
dim(1) = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
123 |
DIAGSTATS_MNC_OUT |
ie(1) = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
189 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zd', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
192 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zmd', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
196 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zld', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
200 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zud', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
204 |
DIAGSTATS_MNC_OUT |
ie(1) = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
277 |
DIAGSTATS_MNC_OUT |
IF ( kdiag(ndId) .GT. 1 ) THEN |
|
./pkg/diagnostics/diagstats_mnc_out.F |
292 |
DIAGSTATS_MNC_OUT |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_clear.F |
84 |
DIAGNOSTICS_CLRDIAG |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagstats_fill.F |
174 |
DIAGSTATS_FILL |
IF ( kStore.GT.kdiag(ndId) ) THEN |
|
./pkg/diagnostics/diagstats_fill.F |
177 |
DIAGSTATS_FILL |
& 'exceed Nb of levels(=',kdiag(ndId),' ) reserved ' |
|
./pkg/diagnostics/diagnostics_summary.F |
104 |
DIAGNOSTICS_SUMMARY |
& mdiag(md,ld),' |', kdiag(jdiag(md,ld)),' |' |
|
./pkg/diagnostics/diagstats_clear.F |
78 |
DIAGSTATS_CLRDIAG |
DO k = iSp,iSp+kdiag(ndId)-1 |
|
./pkg/diagnostics/diag_vegtile_fill.F |
121 |
DIAG_VEGTILE_FILL |
IF ( kStore.GT.kdiag(ndiagnum) ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
124 |
DIAG_VEGTILE_FILL |
. 'exceed Nb of levels(=',kdiag(ndiagnum),' ) reserved ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
67 |
DIAGNOSTICS_INIT_EARLY |
kdiag(n) = 0 |
|
./pkg/diagnostics/diagstats_setdiag.F |
131 |
DIAGSTATS_SETDIAG |
IF (ndiagmx+kdiag(mate).GT.diagSt_size) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
138 |
DIAGSTATS_SETDIAG |
& kdiag(mate), ' Levels for Count.Diag #', mate, cdiag(mate) |
|
./pkg/diagnostics/diagstats_setdiag.F |
142 |
DIAGSTATS_SETDIAG |
ndiagmx = ndiagmx + kdiag(mate) |
|
./pkg/diagnostics/diagstats_setdiag.F |
86 |
DIAGSTATS_SETDIAG |
IF (ndiagmx+kdiag(ndId).GT.diagSt_size) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
92 |
DIAGSTATS_SETDIAG |
& kdiag(ndId), ' Levels for Stats-Diag #', ndId, cdiag(ndId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
96 |
DIAGSTATS_SETDIAG |
ndiagmx = ndiagmx + kdiag(ndId) |
|
./pkg/diagnostics/diagstats_ascii_out.F |
57 |
DIAGSTATS_ASCII_OUT |
klev = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_ascii_out.F |
65 |
DIAGSTATS_ASCII_OUT |
& ' ; Iter =',myIter,' ; region #',j, ' ; nb.Lev =',kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
117 |
DIAGNOSTICS_FRACT_FILL |
nLevFract = MIN(nLevs,kdiag(mate)) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
155 |
DIAGNOSTICS_FRACT_FILL |
nLevFract = MIN(nLevs,kdiag(mate)) |
|
./pkg/diagnostics/diagnostics_utils.F |
53 |
GETDIAG |
klev = kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_utils.F |
77 |
GETDIAG |
levCt= MIN(lev,kdiag(mate)) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
131 |
DIAGNOSTICS_SETDIAG |
IF (ndiagmx+kdiag(mate).GT.numdiags) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
138 |
DIAGNOSTICS_SETDIAG |
& kdiag(mate), ' Levels for Count.Diag #', mate, cdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
142 |
DIAGNOSTICS_SETDIAG |
ndiagmx = ndiagmx + kdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
86 |
DIAGNOSTICS_SETDIAG |
IF (ndiagmx+kdiag(ndId).GT.numdiags) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
92 |
DIAGNOSTICS_SETDIAG |
& kdiag(ndId), ' Levels for Diagnostic #', ndId, cdiag(ndId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
96 |
DIAGNOSTICS_SETDIAG |
ndiagmx = ndiagmx + kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
162 |
DIAGNOSTICS_SET_POINTERS |
kLev = MIN(kdiag(nd),kLev) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
194 |
DIAGNOSTICS_SET_POINTERS |
IF ( kLev.GT.kdiag(nd) ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
205 |
DIAGNOSTICS_SET_POINTERS |
& '(=',kdiag(nd),') for Diag. #', nd, ' : ',cdiag(nd) |