| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_out.F |
116 |
DIAGNOSTICS_OUT |
ilen = ILNBLNK(fnames(listId)) |
|
./pkg/diagnostics/diagnostics_out.F |
117 |
DIAGNOSTICS_OUT |
WRITE( fn, '(A,A,A)' ) fnames(listId)(1:ilen),'.',suff(1:10) |
|
./pkg/diagnostics/diagnostics_out.F |
127 |
DIAGNOSTICS_OUT |
WRITE( diag_mnc_bn, '(A)' ) fnames(listId)(1:ilen) |
|
./pkg/diagnostics/diagnostics_out.F |
12 |
DIAGNOSTICS_OUT |
I listId, |
|
./pkg/diagnostics/diagnostics_out.F |
135 |
DIAGNOSTICS_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zmd', nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
136 |
DIAGNOSTICS_OUT |
dim(1) = nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
138 |
DIAGNOSTICS_OUT |
ie(1) = nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
149 |
DIAGNOSTICS_OUT |
& 'diag_levels', levs(1,listId), myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
165 |
DIAGNOSTICS_OUT |
WRITE(dn(1),'(3a,i6.6)') 'Z',ctmp(i:i),'d',nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
178 |
DIAGNOSTICS_OUT |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
179 |
DIAGNOSTICS_OUT |
ztmp(j) = rC(NINT(levs(j,listId))) |
|
./pkg/diagnostics/diagnostics_out.F |
185 |
DIAGNOSTICS_OUT |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
186 |
DIAGNOSTICS_OUT |
ztmp(j) = rF(NINT(levs(j,listId)) + 1) |
|
./pkg/diagnostics/diagnostics_out.F |
192 |
DIAGNOSTICS_OUT |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
193 |
DIAGNOSTICS_OUT |
ztmp(j) = rF(NINT(levs(j,listId))) |
|
./pkg/diagnostics/diagnostics_out.F |
208 |
DIAGNOSTICS_OUT |
DO md = 1,nfields(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
209 |
DIAGNOSTICS_OUT |
ndId = jdiag(md,listId) |
|
./pkg/diagnostics/diagnostics_out.F |
211 |
DIAGNOSTICS_OUT |
IF ( idiag(md,listId).NE.0 .AND. parms1(5:5).NE.'D' ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
214 |
DIAGNOSTICS_OUT |
ip = ABS(idiag(md,listId)) |
|
./pkg/diagnostics/diagnostics_out.F |
215 |
DIAGNOSTICS_OUT |
im = mdiag(md,listId) |
|
./pkg/diagnostics/diagnostics_out.F |
225 |
DIAGNOSTICS_OUT |
& '- WARNING - diag.#',ndId, ' : ',flds(md,listId), |
|
./pkg/diagnostics/diagnostics_out.F |
226 |
DIAGNOSTICS_OUT |
& ' (#',md,' ) in outp.Stream: ',fnames(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
241 |
DIAGNOSTICS_OUT |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
291 |
DIAGNOSTICS_OUT |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
293 |
DIAGNOSTICS_OUT |
I levs(k,listId),undef, |
|
./pkg/diagnostics/diagnostics_out.F |
303 |
DIAGNOSTICS_OUT |
nlevsout = nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
311 |
DIAGNOSTICS_OUT |
if(fflags(listId)(2:2).eq.'P') then |
|
./pkg/diagnostics/diagnostics_out.F |
346 |
DIAGNOSTICS_OUT |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
347 |
DIAGNOSTICS_OUT |
call GETDIAG(levs(k,listId),undef, |
|
./pkg/diagnostics/diagnostics_out.F |
365 |
DIAGNOSTICS_OUT |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
380 |
DIAGNOSTICS_OUT |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
382 |
DIAGNOSTICS_OUT |
if(hFacC(i,j,nlevels(listId)-k+1,bi,bj).ne.0.) then |
|
./pkg/diagnostics/diagnostics_out.F |
383 |
DIAGNOSTICS_OUT |
qinp(i,j,k) = qtmp1(i,j,nlevels(listId)-k+1,bi,bj) |
|
./pkg/diagnostics/diagnostics_out.F |
387 |
DIAGNOSTICS_OUT |
pkz(i,j,k) = qtmp2(i,j,nlevels(listId)-k+1,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_out.F |
397 |
DIAGNOSTICS_OUT |
if(fflags(listId)(3:3).eq.'1') then |
|
./pkg/diagnostics/diagnostics_out.F |
399 |
DIAGNOSTICS_OUT |
elseif(fflags(listId)(3:3).eq.'2')then |
|
./pkg/diagnostics/diagnostics_out.F |
403 |
DIAGNOSTICS_OUT |
. nlevels(listId) ) |
|
./pkg/diagnostics/diagnostics_out.F |
422 |
DIAGNOSTICS_OUT |
IF (fflags(listId)(1:1) .EQ. ' ') THEN |
|
./pkg/diagnostics/diagnostics_out.F |
426 |
DIAGNOSTICS_OUT |
ELSEIF (fflags(listId)(1:1) .EQ. 'R') THEN |
|
./pkg/diagnostics/diagnostics_out.F |
430 |
DIAGNOSTICS_OUT |
ELSEIF (fflags(listId)(1:1) .EQ. 'D') THEN |
|
./pkg/diagnostics/diagnostics_out.F |
43 |
DIAGNOSTICS_OUT |
INTEGER listId, myIter, myThid |
|
./pkg/diagnostics/diagnostics_out.F |
485 |
DIAGNOSTICS_OUT |
WRITE(dn(3),'(a,i6.6)') 'Zd', nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
488 |
DIAGNOSTICS_OUT |
WRITE(dn(3),'(a,i6.6)') 'Zmd', nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
492 |
DIAGNOSTICS_OUT |
WRITE(dn(3),'(a,i6.6)') 'Zld', nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
496 |
DIAGNOSTICS_OUT |
WRITE(dn(3),'(a,i6.6)') 'Zud', nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
500 |
DIAGNOSTICS_OUT |
ie(3) = nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
517 |
DIAGNOSTICS_OUT |
IF ((fflags(listId)(1:1) .EQ. ' ') |
|
./pkg/diagnostics/diagnostics_out.F |
518 |
DIAGNOSTICS_OUT |
& .OR. (fflags(listId)(1:1) .EQ. 'R')) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
521 |
DIAGNOSTICS_OUT |
ELSEIF (fflags(listId)(1:1) .EQ. 'D') THEN |
|
./pkg/diagnostics/diagstats_mnc_out.F |
100 |
DIAGSTATS_MNC_OUT |
WRITE(diag_mnc_bn, '(a)') diagSt_Fname(listId)(1:ilen) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
134 |
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 |
143 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(3a,i6.6)') 'Z',ctmp(i:i),'d',nlevels(listId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
156 |
DIAGSTATS_MNC_OUT |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
157 |
DIAGSTATS_MNC_OUT |
ztmp(j) = rC(NINT(levs(j,listId))) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
163 |
DIAGSTATS_MNC_OUT |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
164 |
DIAGSTATS_MNC_OUT |
ztmp(j) = rF(NINT(levs(j,listId)) + 1) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
170 |
DIAGSTATS_MNC_OUT |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
171 |
DIAGSTATS_MNC_OUT |
ztmp(j) = rF(NINT(levs(j,listId))) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
260 |
DIAGSTATS_MNC_OUT |
IF ((fflags(listId)(1:1) .EQ. ' ') |
|
./pkg/diagnostics/diagstats_mnc_out.F |
261 |
DIAGSTATS_MNC_OUT |
& .OR. (fflags(listId)(1:1) .EQ. 'R')) THEN |
|
./pkg/diagnostics/diagstats_mnc_out.F |
266 |
DIAGSTATS_MNC_OUT |
ELSEIF (fflags(listId)(1:1) .EQ. 'D') THEN |
|
./pkg/diagnostics/diagstats_mnc_out.F |
297 |
DIAGSTATS_MNC_OUT |
IF ((fflags(listId)(1:1) .EQ. ' ') |
|
./pkg/diagnostics/diagstats_mnc_out.F |
298 |
DIAGSTATS_MNC_OUT |
& .OR. (fflags(listId)(1:1) .EQ. 'R')) THEN |
|
./pkg/diagnostics/diagstats_mnc_out.F |
303 |
DIAGSTATS_MNC_OUT |
ELSEIF (fflags(listId)(1:1) .EQ. 'D') THEN |
|
./pkg/diagnostics/diagstats_mnc_out.F |
47 |
DIAGSTATS_MNC_OUT |
INTEGER ndId, mId, listId |
|
./pkg/diagnostics/diagstats_mnc_out.F |
99 |
DIAGSTATS_MNC_OUT |
ilen = ILNBLNK(diagSt_Fname(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 |
9 |
DIAGNOSTICS_CLEAR |
SUBROUTINE DIAGNOSTICS_CLEAR (listId, myThid) |
|
./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_setdiag.F |
115 |
DIAGSTATS_SETDIAG |
DO l=1,listId |
|
./pkg/diagnostics/diagstats_setdiag.F |
116 |
DIAGSTATS_SETDIAG |
IF (flag .AND. diagSt_freq(l) .EQ. diagSt_freq(listId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
117 |
DIAGSTATS_SETDIAG |
& .AND. diagSt_phase(l).EQ.diagSt_phase(listId) ) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
123 |
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 |
141 |
DIAGSTATS_SETDIAG |
mSdiag(mId,listId) = ndiagmx + 1 |
|
./pkg/diagnostics/diagstats_setdiag.F |
42 |
DIAGSTATS_SETDIAG |
INTEGER mId, listId, ndId |
|
./pkg/diagnostics/diagstats_setdiag.F |
67 |
DIAGSTATS_SETDIAG |
DO l=1,listId |
|
./pkg/diagnostics/diagstats_setdiag.F |
68 |
DIAGSTATS_SETDIAG |
IF (flag .AND. diagSt_freq(l) .EQ. diagSt_freq(listId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
69 |
DIAGSTATS_SETDIAG |
& .AND. diagSt_phase(l).EQ.diagSt_phase(listId) ) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
75 |
DIAGSTATS_SETDIAG |
iSdiag(mId,listId) = -ABS(iSdiag(k,l)) |
|
./pkg/diagnostics/diagstats_setdiag.F |
76 |
DIAGSTATS_SETDIAG |
mSdiag(mId,listId) = mSdiag(k,l) |
|
./pkg/diagnostics/diagstats_setdiag.F |
95 |
DIAGSTATS_SETDIAG |
iSdiag(mId,listId) = ndiagmx + 1 |
|
./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 |
56 |
DIAGSTATS_ASCII_OUT |
nUnit = diagSt_ioUnit(listId) |
|
./pkg/diagnostics/diagstats_ascii_out.F |
63 |
DIAGSTATS_ASCII_OUT |
IF ( diagSt_region(j,listId).GE.1 ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
115 |
DIAGNOSTICS_SETDIAG |
DO l=1,listId |
|
./pkg/diagnostics/diagnostics_setdiag.F |
116 |
DIAGNOSTICS_SETDIAG |
IF (flag .AND. freq(l).EQ.freq(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
117 |
DIAGNOSTICS_SETDIAG |
& .AND. phase(l).EQ.phase(listId) ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
123 |
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 |
141 |
DIAGNOSTICS_SETDIAG |
mdiag(mId,listId) = ndiagmx + 1 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
42 |
DIAGNOSTICS_SETDIAG |
INTEGER mId, listId, ndId |
|
./pkg/diagnostics/diagnostics_setdiag.F |
67 |
DIAGNOSTICS_SETDIAG |
DO l=1,listId |
|
./pkg/diagnostics/diagnostics_setdiag.F |
68 |
DIAGNOSTICS_SETDIAG |
IF (flag .AND. freq(l) .EQ. freq(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
69 |
DIAGNOSTICS_SETDIAG |
& .AND. phase(l).EQ.phase(listId) ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
75 |
DIAGNOSTICS_SETDIAG |
idiag(mId,listId) = -ABS(idiag(k,l)) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
76 |
DIAGNOSTICS_SETDIAG |
mdiag(mId,listId) = mdiag(k,l) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
95 |
DIAGNOSTICS_SETDIAG |
idiag(mId,listId) = ndiagmx + 1 |
|
./pkg/diagnostics/diagstats_output.F |
12 |
DIAGSTATS_OUTPUT |
I listId, |
|
./pkg/diagnostics/diagstats_output.F |
130 |
DIAGSTATS_OUTPUT |
& m, listId, myIter, myThid ) |
|
./pkg/diagnostics/diagstats_output.F |
137 |
DIAGSTATS_OUTPUT |
& m, listId, myTime, myIter, myThid ) |
|
./pkg/diagnostics/diagstats_output.F |
41 |
DIAGSTATS_OUTPUT |
INTEGER listId, myIter, myThid |
|
./pkg/diagnostics/diagstats_output.F |
64 |
DIAGSTATS_OUTPUT |
DO m = 1,diagSt_nbFlds(listId) |
|
./pkg/diagnostics/diagstats_output.F |
65 |
DIAGSTATS_OUTPUT |
ndId = jSdiag(m,listId) |
|
./pkg/diagnostics/diagstats_output.F |
67 |
DIAGSTATS_OUTPUT |
IF ( iSdiag(m,listId).NE.0 .AND. parms1(5:5).NE.'D' ) THEN |
|
./pkg/diagnostics/diagstats_output.F |
80 |
DIAGSTATS_OUTPUT |
IF ( diagSt_region(j,listId).GT.0 ) THEN |
|
./pkg/diagnostics/diagstats_output.F |
81 |
DIAGSTATS_OUTPUT |
iSp = ABS(iSdiag(m,listId)) |
|
./pkg/diagnostics/diagstats_output.F |
82 |
DIAGSTATS_OUTPUT |
iSm = mSdiag(m,listId) |
|
./pkg/diagnostics/diagstats_output.F |
97 |
DIAGSTATS_OUTPUT |
& '- WARNING - diagSt.#',ndId, ' : ',diagSt_Flds(m,listId), |
|
./pkg/diagnostics/diagstats_output.F |
98 |
DIAGSTATS_OUTPUT |
& ' (#',m,' ) in outp.Stream: ',diagSt_Fname(listId) |