| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagstats_global.F |
14 |
DIAGSTATS_GLOBAL |
I ndId, mate, iSp, iSm, myThid ) |
|
./pkg/diagnostics/diagstats_global.F |
36 |
DIAGSTATS_GLOBAL |
INTEGER nLev, jReg, ndId, mate, iSp, iSm |
|
./pkg/diagnostics/diagstats_global.F |
62 |
DIAGSTATS_GLOBAL |
klev = kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_out.F |
209 |
DIAGNOSTICS_OUT |
ndId = jdiag(md,listId) |
|
./pkg/diagnostics/diagnostics_out.F |
210 |
DIAGNOSTICS_OUT |
parms1 = gdiag(ndId)(1:8) |
|
./pkg/diagnostics/diagnostics_out.F |
225 |
DIAGNOSTICS_OUT |
& '- WARNING - diag.#',ndId, ' : ',flds(md,listId), |
|
./pkg/diagnostics/diagnostics_out.F |
255 |
DIAGNOSTICS_OUT |
& ' Computing Diagnostic # ', ndId, ' ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
256 |
DIAGNOSTICS_OUT |
& ' Counter:',ndiag(ip,1,1),' Parms: ',gdiag(ndId) |
|
./pkg/diagnostics/diagnostics_out.F |
264 |
DIAGNOSTICS_OUT |
& ' use Counter Mate for ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
277 |
DIAGNOSTICS_OUT |
& ' Vector Mate for ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
282 |
DIAGNOSTICS_OUT |
& ' Vector Mate for ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
295 |
DIAGNOSTICS_OUT |
I ndId,mate,ip,im,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
322 |
DIAGNOSTICS_OUT |
if(gdiag(ndId)(10:10) .EQ. 'L')then |
|
./pkg/diagnostics/diagnostics_out.F |
381 |
DIAGNOSTICS_OUT |
if(gdiag(ndId)(10:10).eq.'R') then |
|
./pkg/diagnostics/diagnostics_out.F |
388 |
DIAGNOSTICS_OUT |
elseif(gdiag(ndId)(10:10).eq.'L') then |
|
./pkg/diagnostics/diagnostics_out.F |
455 |
DIAGNOSTICS_OUT |
WRITE(d_cw_name,'(a,i6.6)') 'd_cw_',ndId |
|
./pkg/diagnostics/diagnostics_out.F |
462 |
DIAGNOSTICS_OUT |
IF (gdiag(ndId)(2:2) .EQ. 'M') THEN |
|
./pkg/diagnostics/diagnostics_out.F |
467 |
DIAGNOSTICS_OUT |
ELSEIF (gdiag(ndId)(2:2) .EQ. 'U') THEN |
|
./pkg/diagnostics/diagnostics_out.F |
472 |
DIAGNOSTICS_OUT |
ELSEIF (gdiag(ndId)(2:2) .EQ. 'V') THEN |
|
./pkg/diagnostics/diagnostics_out.F |
477 |
DIAGNOSTICS_OUT |
ELSEIF (gdiag(ndId)(2:2) .EQ. 'Z') THEN |
|
./pkg/diagnostics/diagnostics_out.F |
486 |
DIAGNOSTICS_OUT |
IF ( (gdiag(ndId)(10:10) .EQ. 'R') |
|
./pkg/diagnostics/diagnostics_out.F |
487 |
DIAGNOSTICS_OUT |
& .AND. (gdiag(ndId)(9:9) .EQ. 'M') ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
490 |
DIAGNOSTICS_OUT |
IF ( (gdiag(ndId)(10:10) .EQ. 'R') |
|
./pkg/diagnostics/diagnostics_out.F |
491 |
DIAGNOSTICS_OUT |
& .AND. (gdiag(ndId)(9:9) .EQ. 'L') ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
494 |
DIAGNOSTICS_OUT |
IF ( (gdiag(ndId)(10:10) .EQ. 'R') |
|
./pkg/diagnostics/diagnostics_out.F |
495 |
DIAGNOSTICS_OUT |
& .AND. (gdiag(ndId)(9:9) .EQ. 'U') ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
510 |
DIAGNOSTICS_OUT |
CALL MNC_CW_ADD_VNAME(cdiag(ndId), d_cw_name, |
|
./pkg/diagnostics/diagnostics_out.F |
512 |
DIAGNOSTICS_OUT |
CALL MNC_CW_ADD_VATTR_TEXT(cdiag(ndId),'description', |
|
./pkg/diagnostics/diagnostics_out.F |
513 |
DIAGNOSTICS_OUT |
& tdiag(ndId),myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
514 |
DIAGNOSTICS_OUT |
CALL MNC_CW_ADD_VATTR_TEXT(cdiag(ndId),'units', |
|
./pkg/diagnostics/diagnostics_out.F |
515 |
DIAGNOSTICS_OUT |
& udiag(ndId),myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
520 |
DIAGNOSTICS_OUT |
& cdiag(ndId), qtmp1, myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
523 |
DIAGNOSTICS_OUT |
& cdiag(ndId), qtmp1, myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
526 |
DIAGNOSTICS_OUT |
CALL MNC_CW_DEL_VNAME(cdiag(ndId), myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
55 |
DIAGNOSTICS_OUT |
INTEGER md, ndId, ip, im |
|
./pkg/diagnostics/diagnostics_fill.F |
108 |
DIAGNOSTICS_FILL |
ndId = jSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill.F |
127 |
DIAGNOSTICS_FILL |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fill.F |
66 |
DIAGNOSTICS_FILL |
INTEGER ndId, ipt, iSp |
|
./pkg/diagnostics/diagnostics_fill.F |
86 |
DIAGNOSTICS_FILL |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill.F |
90 |
DIAGNOSTICS_FILL |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagstats_mnc_out.F |
120 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zmd', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
121 |
DIAGSTATS_MNC_OUT |
dim(1) = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
123 |
DIAGSTATS_MNC_OUT |
ie(1) = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
12 |
DIAGSTATS_MNC_OUT |
I statGlob, nLev, ndId, |
|
./pkg/diagnostics/diagstats_mnc_out.F |
189 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zd', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
190 |
DIAGSTATS_MNC_OUT |
IF ( (gdiag(ndId)(10:10) .EQ. 'R') |
|
./pkg/diagnostics/diagstats_mnc_out.F |
191 |
DIAGSTATS_MNC_OUT |
& .AND. (gdiag(ndId)(9:9) .EQ. 'M') ) THEN |
|
./pkg/diagnostics/diagstats_mnc_out.F |
192 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zmd', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
194 |
DIAGSTATS_MNC_OUT |
IF ( (gdiag(ndId)(10:10) .EQ. 'R') |
|
./pkg/diagnostics/diagstats_mnc_out.F |
195 |
DIAGSTATS_MNC_OUT |
& .AND. (gdiag(ndId)(9:9) .EQ. 'L') ) THEN |
|
./pkg/diagnostics/diagstats_mnc_out.F |
196 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zld', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
198 |
DIAGSTATS_MNC_OUT |
IF ( (gdiag(ndId)(10:10) .EQ. 'R') |
|
./pkg/diagnostics/diagstats_mnc_out.F |
199 |
DIAGSTATS_MNC_OUT |
& .AND. (gdiag(ndId)(9:9) .EQ. 'U') ) THEN |
|
./pkg/diagnostics/diagstats_mnc_out.F |
200 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zud', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
204 |
DIAGSTATS_MNC_OUT |
ie(1) = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
226 |
DIAGSTATS_MNC_OUT |
WRITE(d_cw_gname,'(a7,i6.6)') 'dst_cw_', ndId |
|
./pkg/diagnostics/diagstats_mnc_out.F |
232 |
DIAGSTATS_MNC_OUT |
WRITE(d_cw_gname0,'(a9,i6.6)') 'dst_cw_0_', ndId |
|
./pkg/diagnostics/diagstats_mnc_out.F |
244 |
DIAGSTATS_MNC_OUT |
ilen = ILNBLNK(cdiag(ndId)) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
246 |
DIAGSTATS_MNC_OUT |
& cdiag(ndId)(1:ilen),'_',stat_typ(ist+1) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
251 |
DIAGSTATS_MNC_OUT |
& tdiag(ndId),myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
253 |
DIAGSTATS_MNC_OUT |
& udiag(ndId),myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
277 |
DIAGSTATS_MNC_OUT |
IF ( kdiag(ndId) .GT. 1 ) THEN |
|
./pkg/diagnostics/diagstats_mnc_out.F |
279 |
DIAGSTATS_MNC_OUT |
ilen = ILNBLNK(cdiag(ndId)) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
281 |
DIAGSTATS_MNC_OUT |
& cdiag(ndId)(1:ilen),'_lv_',stat_typ(ist+1) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
286 |
DIAGSTATS_MNC_OUT |
& tdiag(ndId),myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
288 |
DIAGSTATS_MNC_OUT |
& udiag(ndId),myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
292 |
DIAGSTATS_MNC_OUT |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
47 |
DIAGSTATS_MNC_OUT |
INTEGER ndId, mId, listId |
|
./pkg/diagnostics/diagnostics_clear.F |
32 |
DIAGNOSTICS_CLEAR |
INTEGER m, ndId, ipt |
|
./pkg/diagnostics/diagnostics_clear.F |
36 |
DIAGNOSTICS_CLEAR |
ndId = jdiag(m,listId) |
|
./pkg/diagnostics/diagnostics_clear.F |
38 |
DIAGNOSTICS_CLEAR |
CALL DIAGNOSTICS_CLRDIAG ( ndId, ipt, myThid ) |
|
./pkg/diagnostics/diagnostics_clear.F |
50 |
DIAGNOSTICS_CLRDIAG |
SUBROUTINE DIAGNOSTICS_CLRDIAG ( ndId, ipt, myThid ) |
|
./pkg/diagnostics/diagnostics_clear.F |
70 |
DIAGNOSTICS_CLRDIAG |
INTEGER ndId, ipt |
|
./pkg/diagnostics/diagnostics_clear.F |
84 |
DIAGNOSTICS_CLRDIAG |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagstats_fill.F |
11 |
DIAGSTATS_FILL |
I ndId, kInQSd, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagstats_fill.F |
174 |
DIAGSTATS_FILL |
IF ( kStore.GT.kdiag(ndId) ) THEN |
|
./pkg/diagnostics/diagstats_fill.F |
177 |
DIAGSTATS_FILL |
& 'exceed Nb of levels(=',kdiag(ndId),' ) reserved ' |
|
./pkg/diagnostics/diagstats_fill.F |
180 |
DIAGSTATS_FILL |
& 'for Diagnostics #', ndId, ' : ', cdiag(ndId) |
|
./pkg/diagnostics/diagstats_fill.F |
206 |
DIAGSTATS_FILL |
I ndId, gdiag(ndId), myThid ) |
|
./pkg/diagnostics/diagstats_fill.F |
223 |
DIAGSTATS_FILL |
I ndId, gdiag(ndId), myThid ) |
|
./pkg/diagnostics/diagstats_fill.F |
73 |
DIAGSTATS_FILL |
INTEGER ndId, kInQSd |
|
./pkg/diagnostics/diagstats_fill.F |
98 |
DIAGSTATS_FILL |
parms1 = gdiag(ndId)(1:8) |
|
./pkg/diagnostics/diagstats_clear.F |
30 |
DIAGSTATS_CLEAR |
INTEGER m, ndId, iSp |
|
./pkg/diagnostics/diagstats_clear.F |
34 |
DIAGSTATS_CLEAR |
ndId = jSdiag(m,listId) |
|
./pkg/diagnostics/diagstats_clear.F |
36 |
DIAGSTATS_CLEAR |
CALL DIAGSTATS_CLRDIAG( ndId, iSp, myThid ) |
|
./pkg/diagnostics/diagstats_clear.F |
49 |
DIAGSTATS_CLRDIAG |
SUBROUTINE DIAGSTATS_CLRDIAG( ndId, iSp, myThid ) |
|
./pkg/diagnostics/diagstats_clear.F |
65 |
DIAGSTATS_CLRDIAG |
INTEGER ndId, iSp, myThid |
|
./pkg/diagnostics/diagstats_clear.F |
78 |
DIAGSTATS_CLRDIAG |
DO k = iSp,iSp+kdiag(ndId)-1 |
|
./pkg/diagnostics/diagstats_local.F |
15 |
DIAGSTATS_LOCAL |
I k,bi,bj, region2fill, ndId, parsFld, |
|
./pkg/diagnostics/diagstats_local.F |
69 |
DIAGSTATS_LOCAL |
INTEGER k, bi, bj, ndId |
|
./pkg/diagnostics/diagstats_setdiag.F |
12 |
DIAGSTATS_SETDIAG |
I mId, listId, ndId, myThid ) |
|
./pkg/diagnostics/diagstats_setdiag.F |
42 |
DIAGSTATS_SETDIAG |
INTEGER mId, listId, ndId |
|
./pkg/diagnostics/diagstats_setdiag.F |
61 |
DIAGSTATS_SETDIAG |
parms1 = gdiag(ndId)(1:8) |
|
./pkg/diagnostics/diagstats_setdiag.F |
72 |
DIAGSTATS_SETDIAG |
IF (cdiag(ndId).EQ.cdiag(jSdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
86 |
DIAGSTATS_SETDIAG |
IF (ndiagmx+kdiag(ndId).GT.diagSt_size) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
88 |
DIAGSTATS_SETDIAG |
& 'SETDIAG: Not enough space for Stats-Diag #',ndId,cdiag(ndId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
92 |
DIAGSTATS_SETDIAG |
& kdiag(ndId), ' Levels for Stats-Diag #', ndId, cdiag(ndId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
96 |
DIAGSTATS_SETDIAG |
ndiagmx = ndiagmx + kdiag(ndId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
99 |
DIAGSTATS_SETDIAG |
& '- WARNING - SETDIAG: Stats-Diag #', ndId, cdiag(ndId), |
|
./pkg/diagnostics/diagstats_ascii_out.F |
12 |
DIAGSTATS_ASCII_OUT |
I statGlob, nLev, ndId, |
|
./pkg/diagnostics/diagstats_ascii_out.F |
36 |
DIAGSTATS_ASCII_OUT |
INTEGER ndId, mId, listId |
|
./pkg/diagnostics/diagstats_ascii_out.F |
57 |
DIAGSTATS_ASCII_OUT |
klev = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_ascii_out.F |
64 |
DIAGSTATS_ASCII_OUT |
WRITE(nUnit,'(3A,I10,2(A,I4))') ' field : ', cdiag(ndId), |
|
./pkg/diagnostics/diagstats_ascii_out.F |
65 |
DIAGSTATS_ASCII_OUT |
& ' ; Iter =',myIter,' ; region #',j, ' ; nb.Lev =',kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
111 |
DIAGNOSTICS_SCALE_FILL |
ndId = jSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
130 |
DIAGNOSTICS_SCALE_FILL |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
71 |
DIAGNOSTICS_SCALE_FILL |
INTEGER ndId, ipt, iSp |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
89 |
DIAGNOSTICS_SCALE_FILL |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
93 |
DIAGNOSTICS_SCALE_FILL |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
101 |
DIAGNOSTICS_FRACT_FILL |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
104 |
DIAGNOSTICS_FRACT_FILL |
parms1 = gdiag(ndId)(1:8) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
112 |
DIAGNOSTICS_FRACT_FILL |
& 'for diag(#',ndId,' ) :', chardiag |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
121 |
DIAGNOSTICS_FRACT_FILL |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
139 |
DIAGNOSTICS_FRACT_FILL |
ndId = jSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
142 |
DIAGNOSTICS_FRACT_FILL |
parms1 = gdiag(ndId)(1:8) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
150 |
DIAGNOSTICS_FRACT_FILL |
& 'for diag(#',ndId,' ) :', chardiag |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
174 |
DIAGNOSTICS_FRACT_FILL |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
80 |
DIAGNOSTICS_FRACT_FILL |
INTEGER ndId, ipt, iSp |
|
./pkg/diagnostics/diagnostics_utils.F |
14 |
GETDIAG |
I ndId, mate, ip, im, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
38 |
GETDIAG |
INTEGER ndId, mate, ip, im |
|
./pkg/diagnostics/diagnostics_utils.F |
51 |
GETDIAG |
IF (ndId.GE.1) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
53 |
GETDIAG |
klev = kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
12 |
DIAGNOSTICS_SETDIAG |
I mId, listId, ndId, myThid ) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
42 |
DIAGNOSTICS_SETDIAG |
INTEGER mId, listId, ndId |
|
./pkg/diagnostics/diagnostics_setdiag.F |
61 |
DIAGNOSTICS_SETDIAG |
parms1 = gdiag(ndId)(1:8) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
72 |
DIAGNOSTICS_SETDIAG |
IF ( cdiag(ndId).EQ.cdiag(jdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
86 |
DIAGNOSTICS_SETDIAG |
IF (ndiagmx+kdiag(ndId).GT.numdiags) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
88 |
DIAGNOSTICS_SETDIAG |
& 'SETDIAG: Not enough space for Diagnostic #',ndId,cdiag(ndId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
92 |
DIAGNOSTICS_SETDIAG |
& kdiag(ndId), ' Levels for Diagnostic #', ndId, cdiag(ndId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
96 |
DIAGNOSTICS_SETDIAG |
ndiagmx = ndiagmx + kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
99 |
DIAGNOSTICS_SETDIAG |
& '- WARNING - SETDIAG: Diagnostic #', ndId, cdiag(ndId), |
|
./pkg/diagnostics/diagstats_output.F |
115 |
DIAGSTATS_OUTPUT |
& ' Compute Stats, Diag. # ',ndId, ' ', cdiag(ndId), |
|
./pkg/diagnostics/diagstats_output.F |
116 |
DIAGSTATS_OUTPUT |
& ' vol(',j,' ):', statGlob(0,0,j),' Parms: ',gdiag(ndId) |
|
./pkg/diagnostics/diagstats_output.F |
129 |
DIAGSTATS_OUTPUT |
CALL DIAGSTATS_ASCII_OUT( statGlob, nLev, ndId, |
|
./pkg/diagnostics/diagstats_output.F |
136 |
DIAGSTATS_OUTPUT |
& statGlob, nLev, ndId, |
|
./pkg/diagnostics/diagstats_output.F |
45 |
DIAGSTATS_OUTPUT |
INTEGER j, m, ndId, iSp, iSm |
|
./pkg/diagnostics/diagstats_output.F |
65 |
DIAGSTATS_OUTPUT |
ndId = jSdiag(m,listId) |
|
./pkg/diagnostics/diagstats_output.F |
66 |
DIAGSTATS_OUTPUT |
parms1 = gdiag(ndId)(1:8) |
|
./pkg/diagnostics/diagstats_output.F |
86 |
DIAGSTATS_OUTPUT |
I ndId, mate, iSp, iSm, myThid ) |
|
./pkg/diagnostics/diagstats_output.F |
97 |
DIAGSTATS_OUTPUT |
& '- WARNING - diagSt.#',ndId, ' : ',diagSt_Flds(m,listId), |