| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_clear.F |
28 |
DIAGNOSTICS_CLEAR |
INTEGER listId, myThid |
|
./pkg/diagnostics/diagnostics_clear.F |
34 |
DIAGNOSTICS_CLEAR |
DO m=1,nActive(listId) |
|
./pkg/diagnostics/diagnostics_clear.F |
35 |
DIAGNOSTICS_CLEAR |
IF ( idiag(m,listId).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_clear.F |
36 |
DIAGNOSTICS_CLEAR |
ndId = jdiag(m,listId) |
|
./pkg/diagnostics/diagnostics_clear.F |
37 |
DIAGNOSTICS_CLEAR |
ipt = idiag(m,listId) |
|
./pkg/diagnostics/diagnostics_clear.F |
38 |
DIAGNOSTICS_CLEAR |
nLev = kdiag(ndId)*averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_clear.F |
9 |
DIAGNOSTICS_CLEAR |
SUBROUTINE DIAGNOSTICS_CLEAR (listId, myThid) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
103 |
DIAGNOSTICS_INTERP_VERT |
& 'fails to interpolate diag.(#', ndId,'): ',flds(md,listId) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
12 |
DIAGNOSTICS_INTERP_VERT |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
189 |
DIAGNOSTICS_INTERP_VERT |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
190 |
DIAGNOSTICS_INTERP_VERT |
pk = levs(k,listId)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
48 |
DIAGNOSTICS_INTERP_VERT |
INTEGER listId, md, ndId, ip, im, lm |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
81 |
DIAGNOSTICS_INTERP_VERT |
IF (fflags(listId)(2:2).EQ.'P') THEN |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
90 |
DIAGNOSTICS_INTERP_VERT |
CALL DIAGNOSTICS_GET_POINTERS( 'RSURF ', listId, |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
95 |
DIAGNOSTICS_INTERP_VERT |
CALL DIAGNOSTICS_GET_POINTERS('FIZPRES ', listId, |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
98 |
DIAGNOSTICS_INTERP_VERT |
CALL DIAGNOSTICS_GET_POINTERS('RCENTER ', listId, |
|
./pkg/diagnostics/diagnostics_out.F |
118 |
DIAGNOSTICS_OUT |
ilen = ILNBLNK(fnames(listId)) |
|
./pkg/diagnostics/diagnostics_out.F |
119 |
DIAGNOSTICS_OUT |
WRITE( fn, '(A,A,A)' ) fnames(listId)(1:ilen),'.',suff(1:10) |
|
./pkg/diagnostics/diagnostics_out.F |
121 |
DIAGNOSTICS_OUT |
nLevOutp = nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
122 |
DIAGNOSTICS_OUT |
IF ( fflags(listId)(2:2).EQ.'I' ) nLevOutp = 1 |
|
./pkg/diagnostics/diagnostics_out.F |
125 |
DIAGNOSTICS_OUT |
IF ( freq(listId).LT.0. ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
12 |
DIAGNOSTICS_OUT |
I listId, |
|
./pkg/diagnostics/diagnostics_out.F |
142 |
DIAGNOSTICS_OUT |
timeRec(1) = (timeRec(1)-phase(listId))/freq(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
148 |
DIAGNOSTICS_OUT |
timeRec(1) = phase(listId) + freq(listId)*FLOAT(i) |
|
./pkg/diagnostics/diagnostics_out.F |
171 |
DIAGNOSTICS_OUT |
jjMx = averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
175 |
DIAGNOSTICS_OUT |
llMx = averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
185 |
DIAGNOSTICS_OUT |
IF ( misvalFlt(listId) .NE. UNSET_RL ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
186 |
DIAGNOSTICS_OUT |
misvalLoc = misvalFlt(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
191 |
DIAGNOSTICS_OUT |
misvalIntLoc = misvalInt(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
205 |
DIAGNOSTICS_OUT |
WRITE( diag_mnc_bn, '(A)' ) fnames(listId)(1:ilen) |
|
./pkg/diagnostics/diagnostics_out.F |
239 |
DIAGNOSTICS_OUT |
& 'diag_levels', levs(1,listId), myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
261 |
DIAGNOSTICS_OUT |
WRITE(dn(1),'(3a,i6.6)') 'Z',ctmp(i:i),'d',nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
274 |
DIAGNOSTICS_OUT |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
275 |
DIAGNOSTICS_OUT |
ztmp(j) = rC(NINT(levs(j,listId))) |
|
./pkg/diagnostics/diagnostics_out.F |
281 |
DIAGNOSTICS_OUT |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
282 |
DIAGNOSTICS_OUT |
ztmp(j) = rF(NINT(levs(j,listId)) + 1) |
|
./pkg/diagnostics/diagnostics_out.F |
288 |
DIAGNOSTICS_OUT |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
289 |
DIAGNOSTICS_OUT |
ztmp(j) = rF(NINT(levs(j,listId))) |
|
./pkg/diagnostics/diagnostics_out.F |
311 |
DIAGNOSTICS_OUT |
DO md = 1,nfields(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
312 |
DIAGNOSTICS_OUT |
ndId = jdiag(md,listId) |
|
./pkg/diagnostics/diagnostics_out.F |
323 |
DIAGNOSTICS_OUT |
IF ( idiag(md,listId).NE.0 .AND. gcode(5:5).NE.'D' ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
329 |
DIAGNOSTICS_OUT |
DO lm=1,averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
332 |
DIAGNOSTICS_OUT |
ip = ABS(idiag(md,listId)) + kdiag(ndId)*(lm-1) |
|
./pkg/diagnostics/diagnostics_out.F |
333 |
DIAGNOSTICS_OUT |
im = mdiag(md,listId) |
|
./pkg/diagnostics/diagnostics_out.F |
346 |
DIAGNOSTICS_OUT |
& '- WARNING - diag.#',ndId, ' : ',flds(md,listId), |
|
./pkg/diagnostics/diagnostics_out.F |
347 |
DIAGNOSTICS_OUT |
& ' (#',md,' ) in outp.Stream: ',fnames(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
350 |
DIAGNOSTICS_OUT |
IF ( averageCycle(listId).GT.1 ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
38 |
DIAGNOSTICS_OUT |
INTEGER listId, myIter, myThid |
|
./pkg/diagnostics/diagnostics_out.F |
404 |
DIAGNOSTICS_OUT |
IF ( fflags(listId)(2:2).NE.' ' ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
421 |
DIAGNOSTICS_OUT |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
423 |
DIAGNOSTICS_OUT |
I levs(k,listId),undef, |
|
./pkg/diagnostics/diagnostics_out.F |
434 |
DIAGNOSTICS_OUT |
IF ( fflags(listId)(2:2).EQ.'P' ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
439 |
DIAGNOSTICS_OUT |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_out.F |
449 |
DIAGNOSTICS_OUT |
IF ( fflags(listId)(2:2).EQ.'I' ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
452 |
DIAGNOSTICS_OUT |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_out.F |
464 |
DIAGNOSTICS_OUT |
nRec = lm + (md-1)*averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
468 |
DIAGNOSTICS_OUT |
IF ( fflags(listId)(1:1).EQ.'R' ) prec = precFloat32 |
|
./pkg/diagnostics/diagnostics_out.F |
469 |
DIAGNOSTICS_OUT |
IF ( fflags(listId)(1:1).EQ.'D' ) prec = precFloat64 |
|
./pkg/diagnostics/diagnostics_out.F |
569 |
DIAGNOSTICS_OUT |
klev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_out.F |
570 |
DIAGNOSTICS_OUT |
IF ( fflags(listId)(2:2).EQ.'I' ) kLev = 1 |
|
./pkg/diagnostics/diagnostics_out.F |
593 |
DIAGNOSTICS_OUT |
& .AND. (fflags(listId)(1:1) .NE. 'D')) |
|
./pkg/diagnostics/diagnostics_out.F |
594 |
DIAGNOSTICS_OUT |
& .OR. (fflags(listId)(1:1) .EQ. 'R') ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
598 |
DIAGNOSTICS_OUT |
& .OR. (fflags(listId)(1:1) .EQ. 'D') ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
628 |
DIAGNOSTICS_OUT |
nRec = nfields(listId)*averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
631 |
DIAGNOSTICS_OUT |
& nfields(listId), flds(1,listId), nTimRec, timeRec, |
|
./pkg/diagnostics/diagnostics_setdiag.F |
117 |
DIAGNOSTICS_SETDIAG |
DO l=1,listId |
|
./pkg/diagnostics/diagnostics_setdiag.F |
118 |
DIAGNOSTICS_SETDIAG |
IF (flag .AND. freq(l) .EQ.freq(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
119 |
DIAGNOSTICS_SETDIAG |
& .AND. phase(l).EQ.phase(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
120 |
DIAGNOSTICS_SETDIAG |
& .AND. averageFreq(l) .EQ.averageFreq(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
121 |
DIAGNOSTICS_SETDIAG |
& .AND. averagePhase(l).EQ.averagePhase(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
122 |
DIAGNOSTICS_SETDIAG |
& .AND. averageCycle(l).EQ.averageCycle(listId) ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
128 |
DIAGNOSTICS_SETDIAG |
mdiag(mId,listId) = ABS(idiag(k,l)) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
12 |
DIAGNOSTICS_SETDIAG |
I mId, listId, ndId, myThid ) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
136 |
DIAGNOSTICS_SETDIAG |
mdiag(mId,listId) = ndiagmx + 1 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
137 |
DIAGNOSTICS_SETDIAG |
ndiagmx = ndiagmx + kdiag(mate)*averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
145 |
DIAGNOSTICS_SETDIAG |
& kdiag(mate), ' x', averageCycle(listId), |
|
./pkg/diagnostics/diagnostics_setdiag.F |
42 |
DIAGNOSTICS_SETDIAG |
INTEGER mId, listId, ndId |
|
./pkg/diagnostics/diagnostics_setdiag.F |
66 |
DIAGNOSTICS_SETDIAG |
DO l=1,listId |
|
./pkg/diagnostics/diagnostics_setdiag.F |
67 |
DIAGNOSTICS_SETDIAG |
IF (flag .AND. freq(l) .EQ. freq(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
68 |
DIAGNOSTICS_SETDIAG |
& .AND. phase(l).EQ.phase(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
69 |
DIAGNOSTICS_SETDIAG |
& .AND. averageFreq(l) .EQ.averageFreq(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
70 |
DIAGNOSTICS_SETDIAG |
& .AND. averagePhase(l).EQ.averagePhase(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
71 |
DIAGNOSTICS_SETDIAG |
& .AND. averageCycle(l).EQ.averageCycle(listId) ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
77 |
DIAGNOSTICS_SETDIAG |
idiag(mId,listId) = -ABS(idiag(k,l)) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
78 |
DIAGNOSTICS_SETDIAG |
mdiag(mId,listId) = mdiag(k,l) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
88 |
DIAGNOSTICS_SETDIAG |
idiag(mId,listId) = ndiagmx + 1 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
89 |
DIAGNOSTICS_SETDIAG |
ndiagmx = ndiagmx + kdiag(ndId)*averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
96 |
DIAGNOSTICS_SETDIAG |
& kdiag(ndId), ' x', averageCycle(listId), |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
101 |
DIAGNOSTICS_SUM_LEVELS |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
102 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
125 |
DIAGNOSTICS_SUM_LEVELS |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
126 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
12 |
DIAGNOSTICS_SUM_LEVELS |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
141 |
DIAGNOSTICS_SUM_LEVELS |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
142 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
157 |
DIAGNOSTICS_SUM_LEVELS |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
158 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
173 |
DIAGNOSTICS_SUM_LEVELS |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
174 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
46 |
DIAGNOSTICS_SUM_LEVELS |
INTEGER listId, md, ndId, ip, im, lm |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
67 |
DIAGNOSTICS_SUM_LEVELS |
IF (fflags(listId)(2:2).EQ.'I') THEN |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
84 |
DIAGNOSTICS_SUM_LEVELS |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
85 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_utils.F |
199 |
DIAGNOSTICS_GET_POINTERS |
I diagName, listId, |
|
./pkg/diagnostics/diagnostics_utils.F |
235 |
DIAGNOSTICS_GET_POINTERS |
INTEGER listId |
|
./pkg/diagnostics/diagnostics_utils.F |
246 |
DIAGNOSTICS_GET_POINTERS |
IF ( listId.LE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
260 |
DIAGNOSTICS_GET_POINTERS |
ELSEIF ( listId.LE.nlists ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
266 |
DIAGNOSTICS_GET_POINTERS |
& .AND. freq(n) .EQ. freq(listId) |
|
./pkg/diagnostics/diagnostics_utils.F |
267 |
DIAGNOSTICS_GET_POINTERS |
& .AND. phase(n).EQ.phase(listId) |
|
./pkg/diagnostics/diagnostics_utils.F |
268 |
DIAGNOSTICS_GET_POINTERS |
& .AND. averageFreq(n) .EQ.averageFreq(listId) |
|
./pkg/diagnostics/diagnostics_utils.F |
269 |
DIAGNOSTICS_GET_POINTERS |
& .AND. averagePhase(n).EQ.averagePhase(listId) |
|
./pkg/diagnostics/diagnostics_utils.F |
270 |
DIAGNOSTICS_GET_POINTERS |
& .AND. averageCycle(n).EQ.averageCycle(listId) |
|
./pkg/diagnostics/diagstats_ascii_out.F |
13 |
DIAGSTATS_ASCII_OUT |
I mId, listId, myIter, myThid ) |
|
./pkg/diagnostics/diagstats_ascii_out.F |
36 |
DIAGSTATS_ASCII_OUT |
INTEGER ndId, mId, listId |
|
./pkg/diagnostics/diagstats_ascii_out.F |
55 |
DIAGSTATS_ASCII_OUT |
nUnit = diagSt_ioUnit(listId) |
|
./pkg/diagnostics/diagstats_ascii_out.F |
62 |
DIAGSTATS_ASCII_OUT |
IF ( diagSt_region(j,listId).GE.1 ) THEN |
|
./pkg/diagnostics/diagstats_clear.F |
11 |
DIAGSTATS_CLEAR |
SUBROUTINE DIAGSTATS_CLEAR( listId, myThid) |
|
./pkg/diagnostics/diagstats_clear.F |
26 |
DIAGSTATS_CLEAR |
INTEGER listId, myThid |
|
./pkg/diagnostics/diagstats_clear.F |
32 |
DIAGSTATS_CLEAR |
DO m=1,diagSt_nbActv(listId) |
|
./pkg/diagnostics/diagstats_clear.F |
33 |
DIAGSTATS_CLEAR |
IF ( iSdiag(m,listId).GT.0 ) THEN |
|
./pkg/diagnostics/diagstats_clear.F |
34 |
DIAGSTATS_CLEAR |
ndId = jSdiag(m,listId) |
|
./pkg/diagnostics/diagstats_clear.F |
35 |
DIAGSTATS_CLEAR |
iSp = iSdiag(m,listId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
101 |
DIAGSTATS_MNC_OUT |
ilen = ILNBLNK(diagSt_Fname(listId)) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
102 |
DIAGSTATS_MNC_OUT |
WRITE(diag_mnc_bn, '(a)') diagSt_Fname(listId)(1:ilen) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
136 |
DIAGSTATS_MNC_OUT |
& 'diag_levels', levs(1,listId), myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
13 |
DIAGSTATS_MNC_OUT |
I mId, listId, myTime, myIter, myThid ) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
145 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(3a,i6.6)') 'Z',ctmp(i:i),'d',nlevels(listId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
158 |
DIAGSTATS_MNC_OUT |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
159 |
DIAGSTATS_MNC_OUT |
ztmp(j) = rC(NINT(levs(j,listId))) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
165 |
DIAGSTATS_MNC_OUT |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
166 |
DIAGSTATS_MNC_OUT |
ztmp(j) = rF(NINT(levs(j,listId)) + 1) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
172 |
DIAGSTATS_MNC_OUT |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
173 |
DIAGSTATS_MNC_OUT |
ztmp(j) = rF(NINT(levs(j,listId))) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
47 |
DIAGSTATS_MNC_OUT |
INTEGER ndId, mId, listId |
|
./pkg/diagnostics/diagstats_output.F |
103 |
DIAGSTATS_OUTPUT |
& '- WARNING - diagSt.#',ndId, ' : ',diagSt_Flds(m,listId), |
|
./pkg/diagnostics/diagstats_output.F |
104 |
DIAGSTATS_OUTPUT |
& ' (#',m,' ) in outp.Stream: ',diagSt_Fname(listId) |
|
./pkg/diagnostics/diagstats_output.F |
12 |
DIAGSTATS_OUTPUT |
I listId, |
|
./pkg/diagnostics/diagstats_output.F |
136 |
DIAGSTATS_OUTPUT |
& m, listId, myIter, myThid ) |
|
./pkg/diagnostics/diagstats_output.F |
143 |
DIAGSTATS_OUTPUT |
& m, listId, myTime, myIter, myThid ) |
|
./pkg/diagnostics/diagstats_output.F |
41 |
DIAGSTATS_OUTPUT |
INTEGER listId, myIter, myThid |
|
./pkg/diagnostics/diagstats_output.F |
71 |
DIAGSTATS_OUTPUT |
DO m = 1,diagSt_nbFlds(listId) |
|
./pkg/diagnostics/diagstats_output.F |
72 |
DIAGSTATS_OUTPUT |
ndId = jSdiag(m,listId) |
|
./pkg/diagnostics/diagstats_output.F |
74 |
DIAGSTATS_OUTPUT |
IF ( iSdiag(m,listId).NE.0 .AND. gcode(5:5).NE.'D' ) THEN |
|
./pkg/diagnostics/diagstats_output.F |
86 |
DIAGSTATS_OUTPUT |
IF ( diagSt_region(j,listId).GT.0 ) THEN |
|
./pkg/diagnostics/diagstats_output.F |
87 |
DIAGSTATS_OUTPUT |
iSp = ABS(iSdiag(m,listId)) |
|
./pkg/diagnostics/diagstats_output.F |
88 |
DIAGSTATS_OUTPUT |
iSm = mSdiag(m,listId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
113 |
DIAGSTATS_SETDIAG |
DO l=1,listId |
|
./pkg/diagnostics/diagstats_setdiag.F |
114 |
DIAGSTATS_SETDIAG |
IF (flag .AND. diagSt_freq(l) .EQ. diagSt_freq(listId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
115 |
DIAGSTATS_SETDIAG |
& .AND. diagSt_phase(l).EQ.diagSt_phase(listId) ) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
121 |
DIAGSTATS_SETDIAG |
mSdiag(mId,listId) = ABS(iSdiag(k,l)) |
|
./pkg/diagnostics/diagstats_setdiag.F |
12 |
DIAGSTATS_SETDIAG |
I mId, listId, ndId, myThid ) |
|
./pkg/diagnostics/diagstats_setdiag.F |
139 |
DIAGSTATS_SETDIAG |
mSdiag(mId,listId) = ndiagmx + 1 |
|
./pkg/diagnostics/diagstats_setdiag.F |
42 |
DIAGSTATS_SETDIAG |
INTEGER mId, listId, ndId |
|
./pkg/diagnostics/diagstats_setdiag.F |
66 |
DIAGSTATS_SETDIAG |
DO l=1,listId |
|
./pkg/diagnostics/diagstats_setdiag.F |
67 |
DIAGSTATS_SETDIAG |
IF (flag .AND. diagSt_freq(l) .EQ. diagSt_freq(listId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
68 |
DIAGSTATS_SETDIAG |
& .AND. diagSt_phase(l).EQ.diagSt_phase(listId) ) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
74 |
DIAGSTATS_SETDIAG |
iSdiag(mId,listId) = -ABS(iSdiag(k,l)) |
|
./pkg/diagnostics/diagstats_setdiag.F |
75 |
DIAGSTATS_SETDIAG |
mSdiag(mId,listId) = mSdiag(k,l) |
|
./pkg/diagnostics/diagstats_setdiag.F |
94 |
DIAGSTATS_SETDIAG |
iSdiag(mId,listId) = ndiagmx + 1 |