| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
107 |
DIAGNOSTICS_FRACT_FILL |
mate = 0 |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
109 |
DIAGNOSTICS_FRACT_FILL |
IF ( gcode(5:5).EQ.'C' ) mate = hdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
110 |
DIAGNOSTICS_FRACT_FILL |
IF ( mdiag(m,n).EQ.0 ) mate = 0 |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
111 |
DIAGNOSTICS_FRACT_FILL |
IF ( mate.LE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
121 |
DIAGNOSTICS_FRACT_FILL |
nLevFract = MIN(nLevs,kdiag(mate)) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
146 |
DIAGNOSTICS_FRACT_FILL |
mate = 0 |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
149 |
DIAGNOSTICS_FRACT_FILL |
IF ( gcode(5:5).EQ.'C' ) mate = hdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
150 |
DIAGNOSTICS_FRACT_FILL |
IF ( mSdiag(m,n).EQ.0 ) mate = 0 |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
151 |
DIAGNOSTICS_FRACT_FILL |
IF ( mate.LE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
161 |
DIAGNOSTICS_FRACT_FILL |
nLevFract = MIN(nLevs,kdiag(mate)) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
81 |
DIAGNOSTICS_FRACT_FILL |
INTEGER mate, nLevFract |
|
./pkg/diagnostics/diagnostics_out.F |
314 |
DIAGNOSTICS_OUT |
mate = 0 |
|
./pkg/diagnostics/diagnostics_out.F |
318 |
DIAGNOSTICS_OUT |
mate = hdiag(ndId) |
|
./pkg/diagnostics/diagnostics_out.F |
334 |
DIAGNOSTICS_OUT |
IF (mate.GT.0) im = im + kdiag(mate)*(lm-1) |
|
./pkg/diagnostics/diagnostics_out.F |
385 |
DIAGNOSTICS_OUT |
IF ( mate.GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
388 |
DIAGNOSTICS_OUT |
& ' Diagnostic # ',mate, ' ', cdiag(mate) |
|
./pkg/diagnostics/diagnostics_out.F |
413 |
DIAGNOSTICS_OUT |
I ndId,mate,ip,im,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
425 |
DIAGNOSTICS_OUT |
I ndId,mate,ip,im,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
70 |
DIAGNOSTICS_OUT |
INTEGER mate, mVec |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
136 |
DIAGNOSTICS_SET_POINTERS |
mate = hdiag(nd) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
137 |
DIAGNOSTICS_SET_POINTERS |
IF ( mate.GT.0 ) THEN |
|
./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 |
37 |
DIAGNOSTICS_SET_POINTERS |
INTEGER mate, nActiveMax |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
67 |
DIAGNOSTICS_SET_POINTERS |
CALL DIAGNOSTICS_SETDIAG(mate,ndiagcount,md,ld,nd,myThid) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
83 |
DIAGNOSTICS_SET_POINTERS |
IF ( found .AND. mate.GE.1 ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
86 |
DIAGNOSTICS_SET_POINTERS |
jdiag(mm,ld) = mate |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
88 |
DIAGNOSTICS_SET_POINTERS |
flds (mm,ld) = cdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
105 |
DIAGNOSTICS_SETDIAG |
mate = 0 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
10 |
DIAGNOSTICS_SETDIAG |
O mate, |
|
./pkg/diagnostics/diagnostics_setdiag.F |
111 |
DIAGNOSTICS_SETDIAG |
mate = 0 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
113 |
DIAGNOSTICS_SETDIAG |
mate = hdiag(ndId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
125 |
DIAGNOSTICS_SETDIAG |
IF (cdiag(mate).EQ.cdiag(jdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
137 |
DIAGNOSTICS_SETDIAG |
ndiagmx = ndiagmx + kdiag(mate)*averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
141 |
DIAGNOSTICS_SETDIAG |
& mate, cdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
145 |
DIAGNOSTICS_SETDIAG |
& kdiag(mate), ' x', averageCycle(listId), |
|
./pkg/diagnostics/diagnostics_setdiag.F |
146 |
DIAGNOSTICS_SETDIAG |
& ' Levels for Count.Diag #', mate, cdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
151 |
DIAGNOSTICS_SETDIAG |
& '- NOTE - SETDIAG: Counter Diagnostic #', mate, cdiag(mate), |
|
./pkg/diagnostics/diagnostics_setdiag.F |
154 |
DIAGNOSTICS_SETDIAG |
mate = 0 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
40 |
DIAGNOSTICS_SETDIAG |
INTEGER mate |
|
./pkg/diagnostics/diagnostics_utils.F |
24 |
GETDIAG |
I ndId, mate, ip, im, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
48 |
GETDIAG |
INTEGER ndId, mate, ip, im |
|
./pkg/diagnostics/diagnostics_utils.F |
66 |
GETDIAG |
IF ( mate.EQ.0 ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
95 |
GETDIAG |
levCt= MIN(lev,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 |
55 |
DIAGSTATS_OUTPUT |
INTEGER mate |
|
./pkg/diagnostics/diagstats_output.F |
80 |
DIAGSTATS_OUTPUT |
mate = hdiag(ndId) |
|
./pkg/diagnostics/diagstats_output.F |
82 |
DIAGSTATS_OUTPUT |
mate = 0 |
|
./pkg/diagnostics/diagstats_output.F |
92 |
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 |
101 |
DIAGSTATS_SETDIAG |
mate = 0 |
|
./pkg/diagnostics/diagstats_setdiag.F |
107 |
DIAGSTATS_SETDIAG |
mate = 0 |
|
./pkg/diagnostics/diagstats_setdiag.F |
109 |
DIAGSTATS_SETDIAG |
mate = hdiag(ndId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
10 |
DIAGSTATS_SETDIAG |
O mate, |
|
./pkg/diagnostics/diagstats_setdiag.F |
118 |
DIAGSTATS_SETDIAG |
IF (cdiag(mate).EQ.cdiag(jSdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
129 |
DIAGSTATS_SETDIAG |
IF (ndiagmx+kdiag(mate).GT.diagSt_size) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
132 |
DIAGSTATS_SETDIAG |
& mate, cdiag(mate) |
|
./pkg/diagnostics/diagstats_setdiag.F |
136 |
DIAGSTATS_SETDIAG |
& kdiag(mate), ' Levels for Count.Diag #', mate, cdiag(mate) |
|
./pkg/diagnostics/diagstats_setdiag.F |
140 |
DIAGSTATS_SETDIAG |
ndiagmx = ndiagmx + kdiag(mate) |
|
./pkg/diagnostics/diagstats_setdiag.F |
143 |
DIAGSTATS_SETDIAG |
& '- NOTE - SETDIAG: Counter Diagnostic #', mate, cdiag(mate), |
|
./pkg/diagnostics/diagstats_setdiag.F |
146 |
DIAGSTATS_SETDIAG |
mate = -mate |
|
./pkg/diagnostics/diagstats_setdiag.F |
40 |
DIAGSTATS_SETDIAG |
INTEGER mate |