| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
12 |
DIAGNOSTICS_CALC_PHIVEL |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
280 |
DIAGNOSTICS_CALC_PHIVEL |
& ' :',listId, md, ndId, ' ', cdiag(ndId) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
43 |
DIAGNOSTICS_CALC_PHIVEL |
INTEGER listId, md, ndId, ip, im, lm |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
93 |
DIAGNOSTICS_CALC_PHIVEL |
DO ks = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
94 |
DIAGNOSTICS_CALC_PHIVEL |
k = NINT(levs(ks,listId)) |
|
./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 |
100 |
DIAGNOSTICS_INTERP_VERT |
CALL DIAGNOSTICS_GET_POINTERS('RCENTER ', listId, |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
105 |
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 |
187 |
DIAGNOSTICS_INTERP_VERT |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
188 |
DIAGNOSTICS_INTERP_VERT |
pk = levs(k,listId)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
50 |
DIAGNOSTICS_INTERP_VERT |
INTEGER listId, md, ndId, ip, im, lm |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
83 |
DIAGNOSTICS_INTERP_VERT |
IF (fflags(listId)(2:2).EQ.'P') THEN |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
92 |
DIAGNOSTICS_INTERP_VERT |
CALL DIAGNOSTICS_GET_POINTERS( 'RSURF ', listId, |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
97 |
DIAGNOSTICS_INTERP_VERT |
CALL DIAGNOSTICS_GET_POINTERS('FIZPRES ', listId, |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
101 |
DIAGNOSTICS_MNC_SET |
klev = myIter + lm - averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
102 |
DIAGNOSTICS_MNC_SET |
tmpLev = myTime + deltaTClock*( lm - averageCycle(listId) ) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
130 |
DIAGNOSTICS_MNC_SET |
& 'diag_levels', levs(1,listId), myThid) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
152 |
DIAGNOSTICS_MNC_SET |
WRITE(dn(1),'(3a,i6.6)') 'Z',ctmp(i:i),'d',nlevels(listId) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
165 |
DIAGNOSTICS_MNC_SET |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
166 |
DIAGNOSTICS_MNC_SET |
ztmp(j) = rC(NINT(levs(j,listId))) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
172 |
DIAGNOSTICS_MNC_SET |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
173 |
DIAGNOSTICS_MNC_SET |
ztmp(j) = rF(NINT(levs(j,listId)) + 1) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
179 |
DIAGNOSTICS_MNC_SET |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
180 |
DIAGNOSTICS_MNC_SET |
ztmp(j) = rF(NINT(levs(j,listId))) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
18 |
DIAGNOSTICS_MNC_SET |
I nLevOutp, listId, lm, |
|
./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 |
366 |
DIAGNOSTICS_MNC_OUT |
klev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
367 |
DIAGNOSTICS_MNC_OUT |
IF ( fflags(listId)(2:2).EQ.'I' ) kLev = 1 |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
394 |
DIAGNOSTICS_MNC_OUT |
& (fflags(listId)(1:1) .NE. 'D')) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
395 |
DIAGNOSTICS_MNC_OUT |
& .OR. (fflags(listId)(1:1) .EQ. 'R') ) THEN |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
399 |
DIAGNOSTICS_MNC_OUT |
& .OR. (fflags(listId)(1:1) .EQ. 'D') ) THEN |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
45 |
DIAGNOSTICS_MNC_SET |
INTEGER listId, lm |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
97 |
DIAGNOSTICS_MNC_SET |
iLen = ILNBLNK(fnames(listId)) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
98 |
DIAGNOSTICS_MNC_SET |
WRITE( diag_mnc_bn, '(A)' ) fnames(listId)(1:iLen) |
|
./pkg/diagnostics/diagnostics_out.F |
100 |
DIAGNOSTICS_OUT |
WRITE( fn, '(A,A,A)' ) fnames(listId)(1:iLen),'.',suff(1:10) |
|
./pkg/diagnostics/diagnostics_out.F |
102 |
DIAGNOSTICS_OUT |
nLevOutp = nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
103 |
DIAGNOSTICS_OUT |
IF ( fflags(listId)(2:2).EQ.'I' ) nLevOutp = 1 |
|
./pkg/diagnostics/diagnostics_out.F |
106 |
DIAGNOSTICS_OUT |
IF ( freq(listId).LT.0. ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
123 |
DIAGNOSTICS_OUT |
timeRec(1) = (timeRec(1)-phase(listId))/freq(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
129 |
DIAGNOSTICS_OUT |
timeRec(1) = phase(listId) + freq(listId)*FLOAT(i) |
|
./pkg/diagnostics/diagnostics_out.F |
12 |
DIAGNOSTICS_OUT |
I listId, |
|
./pkg/diagnostics/diagnostics_out.F |
148 |
DIAGNOSTICS_OUT |
DO lm=1,averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
153 |
DIAGNOSTICS_OUT |
I nLevOutp, listId, lm, |
|
./pkg/diagnostics/diagnostics_out.F |
162 |
DIAGNOSTICS_OUT |
DO md = 1,nfields(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
163 |
DIAGNOSTICS_OUT |
ndId = jdiag(md,listId) |
|
./pkg/diagnostics/diagnostics_out.F |
180 |
DIAGNOSTICS_OUT |
IF ( mdiag(md,listId).NE.0 ) mDbl = hdiag(nn) |
|
./pkg/diagnostics/diagnostics_out.F |
186 |
DIAGNOSTICS_OUT |
IF ( idiag(md,listId).NE.0 .AND. gcode(5:5).NE.'D' ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
189 |
DIAGNOSTICS_OUT |
ip = ABS(idiag(md,listId)) + kdiag(ndId)*(lm-1) |
|
./pkg/diagnostics/diagnostics_out.F |
190 |
DIAGNOSTICS_OUT |
im = mdiag(md,listId) |
|
./pkg/diagnostics/diagnostics_out.F |
215 |
DIAGNOSTICS_OUT |
& '- WARNING - diag.#',ndId, ' : ',flds(md,listId), |
|
./pkg/diagnostics/diagnostics_out.F |
216 |
DIAGNOSTICS_OUT |
& ' (#',md,' ) in outp.Stream: ',fnames(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
219 |
DIAGNOSTICS_OUT |
IF ( averageCycle(listId).GT.1 ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
289 |
DIAGNOSTICS_OUT |
IF ( fflags(listId)(2:2).EQ.' ' ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
293 |
DIAGNOSTICS_OUT |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
294 |
DIAGNOSTICS_OUT |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_out.F |
305 |
DIAGNOSTICS_OUT |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
306 |
DIAGNOSTICS_OUT |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_out.F |
340 |
DIAGNOSTICS_OUT |
IF ( fflags(listId)(2:2).EQ.'P' ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
345 |
DIAGNOSTICS_OUT |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_out.F |
355 |
DIAGNOSTICS_OUT |
IF ( fflags(listId)(2:2).EQ.'I' ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
358 |
DIAGNOSTICS_OUT |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_out.F |
364 |
DIAGNOSTICS_OUT |
IF ( flds(md,listId).EQ.'PhiVEL ' |
|
./pkg/diagnostics/diagnostics_out.F |
365 |
DIAGNOSTICS_OUT |
& .OR. flds(md,listId).EQ.'PsiVEL ' |
|
./pkg/diagnostics/diagnostics_out.F |
368 |
DIAGNOSTICS_OUT |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_out.F |
389 |
DIAGNOSTICS_OUT |
nRec = md + (lm-1)*nfields(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
38 |
DIAGNOSTICS_OUT |
INTEGER listId, myIter, myThid |
|
./pkg/diagnostics/diagnostics_out.F |
393 |
DIAGNOSTICS_OUT |
IF ( fflags(listId)(1:1).EQ.'R' ) prec = precFloat32 |
|
./pkg/diagnostics/diagnostics_out.F |
394 |
DIAGNOSTICS_OUT |
IF ( fflags(listId)(1:1).EQ.'D' ) prec = precFloat64 |
|
./pkg/diagnostics/diagnostics_out.F |
413 |
DIAGNOSTICS_OUT |
I NrMax, nLevOutp, listId, ndId, mate, |
|
./pkg/diagnostics/diagnostics_out.F |
418 |
DIAGNOSTICS_OUT |
I NrMax, nLevOutp, listId, ndId, mate, |
|
./pkg/diagnostics/diagnostics_out.F |
438 |
DIAGNOSTICS_OUT |
nRec = averageCycle(listId)*nfields(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
441 |
DIAGNOSTICS_OUT |
& nfields(listId), flds(1,listId), |
|
./pkg/diagnostics/diagnostics_out.F |
96 |
DIAGNOSTICS_OUT |
undefRL = misValFlt(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
99 |
DIAGNOSTICS_OUT |
iLen = ILNBLNK(fnames(listId)) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
108 |
DIAGNOSTICS_SETDIAG |
idiag(mId,listId) = -(ndiagmx+1) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
110 |
DIAGNOSTICS_SETDIAG |
k = nActive(listId) + 1 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
112 |
DIAGNOSTICS_SETDIAG |
jdiag(k,listId) = nn |
|
./pkg/diagnostics/diagnostics_setdiag.F |
113 |
DIAGNOSTICS_SETDIAG |
idiag(k,listId) = ndiagmx + 1 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
114 |
DIAGNOSTICS_SETDIAG |
flds (k,listId) = cdiag(nn) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
116 |
DIAGNOSTICS_SETDIAG |
nActive(listId) = k |
|
./pkg/diagnostics/diagnostics_setdiag.F |
118 |
DIAGNOSTICS_SETDIAG |
idiag(mId,listId) = ndiagmx + 1 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
120 |
DIAGNOSTICS_SETDIAG |
ndiagmx = ndiagmx + kdiag(nn)*averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
127 |
DIAGNOSTICS_SETDIAG |
& kdiag(nn), ' x', averageCycle(listId), |
|
./pkg/diagnostics/diagnostics_setdiag.F |
12 |
DIAGNOSTICS_SETDIAG |
I mId, listId, ndId, myThid ) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
156 |
DIAGNOSTICS_SETDIAG |
DO l=1,listId |
|
./pkg/diagnostics/diagnostics_setdiag.F |
157 |
DIAGNOSTICS_SETDIAG |
IF (flagM .AND. freq(l) .EQ.freq(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
158 |
DIAGNOSTICS_SETDIAG |
& .AND. phase(l).EQ.phase(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
159 |
DIAGNOSTICS_SETDIAG |
& .AND. averageFreq(l) .EQ.averageFreq(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
160 |
DIAGNOSTICS_SETDIAG |
& .AND. averagePhase(l).EQ.averagePhase(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
161 |
DIAGNOSTICS_SETDIAG |
& .AND. averageCycle(l).EQ.averageCycle(listId) ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
167 |
DIAGNOSTICS_SETDIAG |
mdiag(mId,listId) = ABS(idiag(k,l)) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
176 |
DIAGNOSTICS_SETDIAG |
mdiag(mId,listId) = ndiagmx + 1 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
177 |
DIAGNOSTICS_SETDIAG |
k = nActive(listId) + 1 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
180 |
DIAGNOSTICS_SETDIAG |
jdiag(k,listId) = mate |
|
./pkg/diagnostics/diagnostics_setdiag.F |
181 |
DIAGNOSTICS_SETDIAG |
idiag(k,listId) = ndiagmx + 1 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
182 |
DIAGNOSTICS_SETDIAG |
flds (k,listId) = cdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
184 |
DIAGNOSTICS_SETDIAG |
nActive(listId) = k |
|
./pkg/diagnostics/diagnostics_setdiag.F |
185 |
DIAGNOSTICS_SETDIAG |
ndiagmx = ndiagmx + kdiag(mate)*averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
193 |
DIAGNOSTICS_SETDIAG |
& kdiag(mate), ' x', averageCycle(listId), |
|
./pkg/diagnostics/diagnostics_setdiag.F |
42 |
DIAGNOSTICS_SETDIAG |
INTEGER mId, listId, ndId |
|
./pkg/diagnostics/diagnostics_setdiag.F |
73 |
DIAGNOSTICS_SETDIAG |
DO l=1,listId |
|
./pkg/diagnostics/diagnostics_setdiag.F |
74 |
DIAGNOSTICS_SETDIAG |
IF (flagD .AND. freq(l) .EQ. freq(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
75 |
DIAGNOSTICS_SETDIAG |
& .AND. phase(l).EQ.phase(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
76 |
DIAGNOSTICS_SETDIAG |
& .AND. averageFreq(l) .EQ.averageFreq(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
77 |
DIAGNOSTICS_SETDIAG |
& .AND. averagePhase(l).EQ.averagePhase(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
78 |
DIAGNOSTICS_SETDIAG |
& .AND. averageCycle(l).EQ.averageCycle(listId) ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
84 |
DIAGNOSTICS_SETDIAG |
idiag(mId,listId) = -ABS(idiag(k,l)) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
85 |
DIAGNOSTICS_SETDIAG |
mdiag(mId,listId) = mdiag(k,l) |
|
./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 |
207 |
DIAGNOSTICS_GET_POINTERS |
I diagName, listId, |
|
./pkg/diagnostics/diagnostics_utils.F |
242 |
DIAGNOSTICS_GET_POINTERS |
INTEGER listId |
|
./pkg/diagnostics/diagnostics_utils.F |
253 |
DIAGNOSTICS_GET_POINTERS |
IF ( listId.LE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
267 |
DIAGNOSTICS_GET_POINTERS |
ELSEIF ( listId.LE.nLists ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
273 |
DIAGNOSTICS_GET_POINTERS |
& .AND. freq(n) .EQ. freq(listId) |
|
./pkg/diagnostics/diagnostics_utils.F |
274 |
DIAGNOSTICS_GET_POINTERS |
& .AND. phase(n).EQ.phase(listId) |
|
./pkg/diagnostics/diagnostics_utils.F |
275 |
DIAGNOSTICS_GET_POINTERS |
& .AND. averageFreq(n) .EQ.averageFreq(listId) |
|
./pkg/diagnostics/diagnostics_utils.F |
276 |
DIAGNOSTICS_GET_POINTERS |
& .AND. averagePhase(n).EQ.averagePhase(listId) |
|
./pkg/diagnostics/diagnostics_utils.F |
277 |
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 |
111 |
DIAGSTATS_SETDIAG |
DO l=1,listId |
|
./pkg/diagnostics/diagstats_setdiag.F |
112 |
DIAGSTATS_SETDIAG |
IF (flag .AND. diagSt_freq(l) .EQ. diagSt_freq(listId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
113 |
DIAGSTATS_SETDIAG |
& .AND. diagSt_phase(l).EQ.diagSt_phase(listId) ) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
119 |
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 |
137 |
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 |