| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
115 |
DIAGNOSTICS_FRACT_FILL |
mate = 0 |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
117 |
DIAGNOSTICS_FRACT_FILL |
IF ( gcode(5:5).EQ.'C' ) mate = hdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
118 |
DIAGNOSTICS_FRACT_FILL |
IF ( mate.LE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
128 |
DIAGNOSTICS_FRACT_FILL |
nLevFract = MIN(nLevs,kdiag(mate)) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
153 |
DIAGNOSTICS_FRACT_FILL |
mate = 0 |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
156 |
DIAGNOSTICS_FRACT_FILL |
IF ( gcode(5:5).EQ.'C' ) mate = hdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
157 |
DIAGNOSTICS_FRACT_FILL |
IF ( mate.LE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
167 |
DIAGNOSTICS_FRACT_FILL |
nLevFract = MIN(nLevs,kdiag(mate)) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
82 |
DIAGNOSTICS_FRACT_FILL |
INTEGER mate, nLevFract |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
208 |
DIAGNOSTICS_MNC_OUT |
I NrMax, nLevOutp, listId, ndId, mate, |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
238 |
DIAGNOSTICS_MNC_OUT |
INTEGER listId, ndId, mate |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
357 |
DIAGNOSTICS_MNC_OUT |
useMisValForThisDiag = mate.GT.0 |
|
./pkg/diagnostics/diagnostics_out.F |
172 |
DIAGNOSTICS_OUT |
mate = 0 |
|
./pkg/diagnostics/diagnostics_out.F |
178 |
DIAGNOSTICS_OUT |
mate = hdiag(ndId) |
|
./pkg/diagnostics/diagnostics_out.F |
198 |
DIAGNOSTICS_OUT |
IF (mate.GT.0) im = im + kdiag(mate)*(lm-1) |
|
./pkg/diagnostics/diagnostics_out.F |
277 |
DIAGNOSTICS_OUT |
IF ( mate.GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
280 |
DIAGNOSTICS_OUT |
& ' Diagnostic # ',mate, ' ', cdiag(mate) |
|
./pkg/diagnostics/diagnostics_out.F |
305 |
DIAGNOSTICS_OUT |
I ndId, mate, ip, im, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
329 |
DIAGNOSTICS_OUT |
I ndId, mate, ip, im, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
420 |
DIAGNOSTICS_OUT |
I NrMax, nLevOutp, listId, ndId, mate, |
|
./pkg/diagnostics/diagnostics_out.F |
425 |
DIAGNOSTICS_OUT |
I NrMax, nLevOutp, listId, ndId, mate, |
|
./pkg/diagnostics/diagnostics_out.F |
68 |
DIAGNOSTICS_OUT |
INTEGER mate, mDbl, mVec |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
140 |
DIAGNOSTICS_SET_POINTERS |
CALL DIAGNOSTICS_SETDIAG(mate,ndiagcount,md,ld,nd,myThid) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
200 |
DIAGNOSTICS_SET_POINTERS |
mate = hdiag(nd) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
201 |
DIAGNOSTICS_SET_POINTERS |
IF ( mate.GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
204 |
DIAGNOSTICS_SET_POINTERS |
IF ( mdiag(md,ld).EQ.0 .AND. (k*jdiag(i,j)).EQ.mate ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
37 |
DIAGNOSTICS_SET_POINTERS |
INTEGER mate, nActiveMax |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
61 |
DIAGNOSTICS_SET_POINTERS |
mate = hdiag(nd) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
62 |
DIAGNOSTICS_SET_POINTERS |
IF ( gdiag(mate)(5:5).EQ.'P' ) THEN |
|
./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 |
88 |
DIAGNOSTICS_SET_POINTERS |
flds(md-1,ld) = cdiag(mate) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
98 |
DIAGNOSTICS_SET_POINTERS |
flds(md,ld) = cdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
10 |
DIAGNOSTICS_SETDIAG |
O mate, |
|
./pkg/diagnostics/diagnostics_setdiag.F |
154 |
DIAGNOSTICS_SETDIAG |
mate = 0 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
159 |
DIAGNOSTICS_SETDIAG |
& (gcode(1:1).EQ.'U' .OR. gcode(1:1).EQ.'V') ) mate = hdiag(nn) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
162 |
DIAGNOSTICS_SETDIAG |
mate = hdiag(nn) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
166 |
DIAGNOSTICS_SETDIAG |
IF ( mate.GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
177 |
DIAGNOSTICS_SETDIAG |
IF (cdiag(mate).EQ.cdiag(jdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
193 |
DIAGNOSTICS_SETDIAG |
jdiag(k,listId) = mate |
|
./pkg/diagnostics/diagnostics_setdiag.F |
195 |
DIAGNOSTICS_SETDIAG |
flds (k,listId) = cdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
198 |
DIAGNOSTICS_SETDIAG |
ndiagmx = ndiagmx + kdiag(mate)*averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
202 |
DIAGNOSTICS_SETDIAG |
& mate, cdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
206 |
DIAGNOSTICS_SETDIAG |
& kdiag(mate), ' x', averageCycle(listId), |
|
./pkg/diagnostics/diagnostics_setdiag.F |
207 |
DIAGNOSTICS_SETDIAG |
& ' Levels for Mate Diag. #', mate, cdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
212 |
DIAGNOSTICS_SETDIAG |
& ' #', mate, cdiag(mate), ' is already set' |
|
./pkg/diagnostics/diagnostics_setdiag.F |
40 |
DIAGNOSTICS_SETDIAG |
INTEGER mate |
|
./pkg/diagnostics/diagnostics_utils.F |
104 |
DIAGNOSTICS_GET_DIAG |
I ndId, mate, ip, im, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
128 |
DIAGNOSTICS_GET_DIAG |
INTEGER ndId, mate, ip, im |
|
./pkg/diagnostics/diagnostics_utils.F |
153 |
DIAGNOSTICS_GET_DIAG |
IF ( mate.EQ.0 ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
182 |
DIAGNOSTICS_GET_DIAG |
km = MIN(kd,kdiag(mate)) |
|
./pkg/diagnostics/diagstats_global.F |
129 |
DIAGSTATS_GLOBAL |
IF ( mate.GT.0 ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
14 |
DIAGSTATS_GLOBAL |
I ndId, mate, iSp, iSm, myThid ) |
|
./pkg/diagnostics/diagstats_global.F |
153 |
DIAGSTATS_GLOBAL |
IF ( mate.GT.0 ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
171 |
DIAGSTATS_GLOBAL |
IF ( mate.EQ.0 ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
36 |
DIAGSTATS_GLOBAL |
INTEGER nLev, jReg, ndId, mate, iSp, iSm |
|
./pkg/diagnostics/diagstats_global.F |
64 |
DIAGSTATS_GLOBAL |
IF ( mate.GT.0 ) kMlev = kdiag(mate) |
|
./pkg/diagnostics/diagstats_global.F |
89 |
DIAGSTATS_GLOBAL |
IF ( mate.GT.0 ) THEN |
|
./pkg/diagnostics/diagstats_output.F |
123 |
DIAGSTATS_OUTPUT |
IF ( mate.GT.0 ) THEN |
|
./pkg/diagnostics/diagstats_output.F |
125 |
DIAGSTATS_OUTPUT |
& ' use Counter Mate # ', mate,' ',cdiag(mate), |
|
./pkg/diagnostics/diagstats_output.F |
50 |
DIAGSTATS_OUTPUT |
INTEGER mate |
|
./pkg/diagnostics/diagstats_output.F |
75 |
DIAGSTATS_OUTPUT |
mate = hdiag(ndId) |
|
./pkg/diagnostics/diagstats_output.F |
77 |
DIAGSTATS_OUTPUT |
mate = 0 |
|
./pkg/diagnostics/diagstats_output.F |
87 |
DIAGSTATS_OUTPUT |
I ndId, mate, iSp, iSm, myThid ) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
101 |
DIAGSTATS_SET_POINTERS |
IF ( found .AND. mate.NE.0 ) THEN |
|
./pkg/diagnostics/diagstats_set_pointers.F |
104 |
DIAGSTATS_SET_POINTERS |
iSdiag(mm,ld) = SIGN(mSdiag(md,ld),mate) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
105 |
DIAGSTATS_SET_POINTERS |
mate = ABS(mate) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
106 |
DIAGSTATS_SET_POINTERS |
jSdiag(mm,ld) = mate |
|
./pkg/diagnostics/diagstats_set_pointers.F |
107 |
DIAGSTATS_SET_POINTERS |
diagSt_Flds(mm,ld) = cdiag(mate) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
38 |
DIAGSTATS_SET_POINTERS |
INTEGER mm, mate, nActiveMax |
|
./pkg/diagnostics/diagstats_set_pointers.F |
67 |
DIAGSTATS_SET_POINTERS |
CALL DIAGSTATS_SETDIAG(mate,ndiagcount,md,ld,nd,myThid) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
84 |
DIAGSTATS_SET_POINTERS |
IF ( found .AND. mate.LE.-1 ) THEN |
|
./pkg/diagnostics/diagstats_set_pointers.F |
90 |
DIAGSTATS_SET_POINTERS |
IF ( diagSt_Flds(k,l).EQ.cdiag(-mate) ) inList=.TRUE. |
|
./pkg/diagnostics/diagstats_set_pointers.F |
99 |
DIAGSTATS_SET_POINTERS |
IF ( .NOT.addMate2List ) mate = 0 |
|
./pkg/diagnostics/diagstats_setdiag.F |
105 |
DIAGSTATS_SETDIAG |
mate = 0 |
|
./pkg/diagnostics/diagstats_setdiag.F |
107 |
DIAGSTATS_SETDIAG |
mate = hdiag(ndId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
10 |
DIAGSTATS_SETDIAG |
O mate, |
|
./pkg/diagnostics/diagstats_setdiag.F |
116 |
DIAGSTATS_SETDIAG |
IF (cdiag(mate).EQ.cdiag(jSdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
127 |
DIAGSTATS_SETDIAG |
IF (ndiagmx+kdiag(mate).GT.diagSt_size) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
130 |
DIAGSTATS_SETDIAG |
& mate, cdiag(mate) |
|
./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 |
141 |
DIAGSTATS_SETDIAG |
& '- NOTE - SETDIAG: Counter Diagnostic #', mate, cdiag(mate), |
|
./pkg/diagnostics/diagstats_setdiag.F |
144 |
DIAGSTATS_SETDIAG |
mate = -mate |
|
./pkg/diagnostics/diagstats_setdiag.F |
40 |
DIAGSTATS_SETDIAG |
INTEGER mate |