| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diag_vegtile_fill.F |
194 |
DIAG_VEGTILE_FILL |
ndId = jSdiag(m,n) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
265 |
DIAG_VEGTILE_FILL |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diag_vegtile_fill.F |
66 |
DIAG_VEGTILE_FILL |
INTEGER iSp, ndId, j,l |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
12 |
DIAGNOSTICS_CALC_PHIVEL |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
306 |
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_clear.F |
32 |
DIAGNOSTICS_CLEAR |
INTEGER m, ndId, ipt, nLev |
|
./pkg/diagnostics/diagnostics_clear.F |
36 |
DIAGNOSTICS_CLEAR |
ndId = ABS(jdiag(m,listId)) |
|
./pkg/diagnostics/diagnostics_clear.F |
38 |
DIAGNOSTICS_CLEAR |
nLev = kdiag(ndId)*averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_fill.F |
100 |
DIAGNOSTICS_FILL |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fill.F |
105 |
DIAGNOSTICS_FILL |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fill.F |
123 |
DIAGNOSTICS_FILL |
ndId = jSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill.F |
146 |
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 |
98 |
DIAGNOSTICS_FILL |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
126 |
DIAGNOSTICS_FILL_FIELD |
parms1 = gdiag(ndId)(1:8) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
19 |
DIAGNOSTICS_FILL_FIELD |
I ndId, ipointer, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
205 |
DIAGNOSTICS_FILL_FIELD |
IF ( kStore.GT.kdiag(ndId) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
208 |
DIAGNOSTICS_FILL_FIELD |
& 'exceed Nb of levels(=',kdiag(ndId),' ) reserved ' |
|
./pkg/diagnostics/diagnostics_fill_field.F |
211 |
DIAGNOSTICS_FILL_FIELD |
& 'for Diagnostics #', ndId, ' : ', cdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
86 |
DIAGNOSTICS_FILL_FIELD |
INTEGER ndId, ipointer |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
100 |
DIAGNOSTICS_FILL_RS |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
105 |
DIAGNOSTICS_FILL_RS |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
123 |
DIAGNOSTICS_FILL_RS |
ndId = jSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
148 |
DIAGNOSTICS_FILL_RS |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
66 |
DIAGNOSTICS_FILL_RS |
INTEGER ndId, ipt, iSp |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
98 |
DIAGNOSTICS_FILL_RS |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
112 |
DIAGNOSTICS_FRACT_FILL |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
113 |
DIAGNOSTICS_FRACT_FILL |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
116 |
DIAGNOSTICS_FRACT_FILL |
gcode = gdiag(ndId)(1:10) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
117 |
DIAGNOSTICS_FRACT_FILL |
IF ( gcode(5:5).EQ.'C' ) mate = hdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
123 |
DIAGNOSTICS_FRACT_FILL |
& 'for diag(#',ndId,' ) :', chardiag |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
133 |
DIAGNOSTICS_FRACT_FILL |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
151 |
DIAGNOSTICS_FRACT_FILL |
ndId = jSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
154 |
DIAGNOSTICS_FRACT_FILL |
gcode = gdiag(ndId)(1:10) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
156 |
DIAGNOSTICS_FRACT_FILL |
IF ( gcode(5:5).EQ.'C' ) mate = hdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
162 |
DIAGNOSTICS_FRACT_FILL |
& 'for diag(#',ndId,' ) :', chardiag |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
190 |
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_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 |
135 |
DIAGNOSTICS_INTERP_VERT |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
157 |
DIAGNOSTICS_INTERP_VERT |
IF ( useFIZHI.AND.gdiag(ndId)(10:10).EQ.'L') THEN |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
159 |
DIAGNOSTICS_INTERP_VERT |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
168 |
DIAGNOSTICS_INTERP_VERT |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
170 |
DIAGNOSTICS_INTERP_VERT |
kLev = kdiag(ndId)-k+1 |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
192 |
DIAGNOSTICS_INTERP_VERT |
I undefRL,pInc,sNx*sNy,kdiag(ndId),myThid ) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
50 |
DIAGNOSTICS_INTERP_VERT |
INTEGER listId, md, ndId, ip, im, lm |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
96 |
DIAGNOSTICS_INTERP_VERT |
& gdiag(ndId)(10:10) .EQ. 'L') THEN |
|
./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 |
295 |
DIAGNOSTICS_MNC_OUT |
WRITE(d_cw_name,'(a,i6.6)') 'd_cw_',ndId |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
302 |
DIAGNOSTICS_MNC_OUT |
IF (gdiag(ndId)(2:2) .EQ. 'M') THEN |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
307 |
DIAGNOSTICS_MNC_OUT |
ELSEIF (gdiag(ndId)(2:2) .EQ. 'U') THEN |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
312 |
DIAGNOSTICS_MNC_OUT |
ELSEIF (gdiag(ndId)(2:2) .EQ. 'V') THEN |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
317 |
DIAGNOSTICS_MNC_OUT |
ELSEIF (gdiag(ndId)(2:2) .EQ. 'Z') THEN |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
326 |
DIAGNOSTICS_MNC_OUT |
IF ( (gdiag(ndId)(10:10) .EQ. 'R') |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
327 |
DIAGNOSTICS_MNC_OUT |
& .AND. (gdiag(ndId)(9:9) .EQ. 'M') ) THEN |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
330 |
DIAGNOSTICS_MNC_OUT |
IF ( (gdiag(ndId)(10:10) .EQ. 'R') |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
331 |
DIAGNOSTICS_MNC_OUT |
& .AND. (gdiag(ndId)(9:9) .EQ. 'L') ) THEN |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
334 |
DIAGNOSTICS_MNC_OUT |
IF ( (gdiag(ndId)(10:10) .EQ. 'R') |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
335 |
DIAGNOSTICS_MNC_OUT |
& .AND. (gdiag(ndId)(9:9) .EQ. 'U') ) THEN |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
350 |
DIAGNOSTICS_MNC_OUT |
CALL MNC_CW_ADD_VNAME( cdiag(ndId), d_cw_name, |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
352 |
DIAGNOSTICS_MNC_OUT |
CALL MNC_CW_ADD_VATTR_TEXT( cdiag(ndId),'description', |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
353 |
DIAGNOSTICS_MNC_OUT |
& tdiag(ndId), myThid ) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
354 |
DIAGNOSTICS_MNC_OUT |
CALL MNC_CW_ADD_VATTR_TEXT( cdiag(ndId),'units', |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
355 |
DIAGNOSTICS_MNC_OUT |
& udiag(ndId), myThid ) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
360 |
DIAGNOSTICS_MNC_OUT |
IF ( useMissingValue.AND.gdiag(ndId)(1:2).EQ.'SM' ) THEN |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
380 |
DIAGNOSTICS_MNC_OUT |
CALL MNC_CW_VATTR_MISSING(cdiag(ndId), 2, |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
389 |
DIAGNOSTICS_MNC_OUT |
CALL MNC_CW_VATTR_MISSING( cdiag(ndId), 0, |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
397 |
DIAGNOSTICS_MNC_OUT |
& cdiag(ndId), qtmp, myThid) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
401 |
DIAGNOSTICS_MNC_OUT |
& cdiag(ndId), qtmp, myThid) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
404 |
DIAGNOSTICS_MNC_OUT |
CALL MNC_CW_DEL_VNAME(cdiag(ndId), myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
170 |
DIAGNOSTICS_OUT |
ndId = ABS(jdiag(md,listId)) |
|
./pkg/diagnostics/diagnostics_out.F |
171 |
DIAGNOSTICS_OUT |
gcode = gdiag(ndId)(1:10) |
|
./pkg/diagnostics/diagnostics_out.F |
178 |
DIAGNOSTICS_OUT |
mate = hdiag(ndId) |
|
./pkg/diagnostics/diagnostics_out.F |
181 |
DIAGNOSTICS_OUT |
IF ( gdiag(hdiag(ndId))(5:5).EQ.'P' ) ppFld = 2 |
|
./pkg/diagnostics/diagnostics_out.F |
183 |
DIAGNOSTICS_OUT |
nn = ndId |
|
./pkg/diagnostics/diagnostics_out.F |
191 |
DIAGNOSTICS_OUT |
mVec = hdiag(ndId) |
|
./pkg/diagnostics/diagnostics_out.F |
196 |
DIAGNOSTICS_OUT |
ip = ABS(idiag(md,listId)) + kdiag(ndId)*(lm-1) |
|
./pkg/diagnostics/diagnostics_out.F |
202 |
DIAGNOSTICS_OUT |
IF ( ppFld.EQ.2 .AND. isComputed.EQ.hdiag(ndId) ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
208 |
DIAGNOSTICS_OUT |
& ' get Post-Proc. Diag # ', ndId, ' ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
222 |
DIAGNOSTICS_OUT |
& '- WARNING - diag.#',ndId, ' : ',flds(md,listId), |
|
./pkg/diagnostics/diagnostics_out.F |
261 |
DIAGNOSTICS_OUT |
& ' Post-Processing Diag # ', ndId, ' ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
262 |
DIAGNOSTICS_OUT |
& ' Parms: ',gdiag(ndId) |
|
./pkg/diagnostics/diagnostics_out.F |
274 |
DIAGNOSTICS_OUT |
& ' Computing Diagnostic # ', ndId, ' ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
275 |
DIAGNOSTICS_OUT |
& ' Counter:',ndiag(ip,1,1),' Parms: ',gdiag(ndId) |
|
./pkg/diagnostics/diagnostics_out.F |
279 |
DIAGNOSTICS_OUT |
& ' use Counter Mate for ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
284 |
DIAGNOSTICS_OUT |
& ' Vector Mate for ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
289 |
DIAGNOSTICS_OUT |
& ' Vector Mate for ', cdiag(ndId), |
|
./pkg/diagnostics/diagnostics_out.F |
305 |
DIAGNOSTICS_OUT |
I ndId, mate, ip, im, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
329 |
DIAGNOSTICS_OUT |
I ndId, mate, ip, im, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
352 |
DIAGNOSTICS_OUT |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_out.F |
365 |
DIAGNOSTICS_OUT |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_out.F |
375 |
DIAGNOSTICS_OUT |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_out.F |
379 |
DIAGNOSTICS_OUT |
isComputed = ndId |
|
./pkg/diagnostics/diagnostics_out.F |
382 |
DIAGNOSTICS_OUT |
& 'unknown Processing method for diag="',cdiag(ndId),'"' |
|
./pkg/diagnostics/diagnostics_out.F |
420 |
DIAGNOSTICS_OUT |
I NrMax, nLevOutp, listId, ndId, mate, |
|
./pkg/diagnostics/diagnostics_out.F |
425 |
DIAGNOSTICS_OUT |
I NrMax, nLevOutp, listId, ndId, mate, |
|
./pkg/diagnostics/diagnostics_out.F |
67 |
DIAGNOSTICS_OUT |
INTEGER md, ndId, nn, ip, im |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
153 |
DIAGNOSTICS_READ_PICKUP |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
154 |
DIAGNOSTICS_READ_PICKUP |
READ(dUnit,'(I10)') ndiag(ndId,1,1) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
43 |
DIAGNOSTICS_READ_PICKUP |
INTEGER dUnit, ndId, n, m |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
100 |
DIAGNOSTICS_SCALE_FILL |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
102 |
DIAGNOSTICS_SCALE_FILL |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
107 |
DIAGNOSTICS_SCALE_FILL |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
125 |
DIAGNOSTICS_SCALE_FILL |
ndId = jSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
148 |
DIAGNOSTICS_SCALE_FILL |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
70 |
DIAGNOSTICS_SCALE_FILL |
INTEGER ndId, ipt, iSp |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
100 |
DIAGNOSTICS_SCALE_FILL_RS |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
102 |
DIAGNOSTICS_SCALE_FILL_RS |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
107 |
DIAGNOSTICS_SCALE_FILL_RS |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
125 |
DIAGNOSTICS_SCALE_FILL_RS |
ndId = jSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
150 |
DIAGNOSTICS_SCALE_FILL_RS |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
70 |
DIAGNOSTICS_SCALE_FILL_RS |
INTEGER ndId, ipt, iSp |
|
./pkg/diagnostics/diagnostics_setdiag.F |
106 |
DIAGNOSTICS_SETDIAG |
jdiag(mId,listId) = no_hFac*ndId |
|
./pkg/diagnostics/diagnostics_setdiag.F |
112 |
DIAGNOSTICS_SETDIAG |
& 'SETDIAG: Diag #', ndId, cdiag(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 |
64 |
DIAGNOSTICS_SETDIAG |
diagIsPP = gdiag(ndId)(5:5).EQ.'P' |
|
./pkg/diagnostics/diagnostics_setdiag.F |
69 |
DIAGNOSTICS_SETDIAG |
gcode = gdiag(ndId)(1:10) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
83 |
DIAGNOSTICS_SETDIAG |
nn = ndId |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
12 |
DIAGNOSTICS_SUM_LEVELS |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
46 |
DIAGNOSTICS_SUM_LEVELS |
INTEGER listId, md, ndId, ip, im, lm |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
70 |
DIAGNOSTICS_SUM_LEVELS |
gcode = gdiag(ndId)(1:10) |
|
./pkg/diagnostics/diagnostics_summary.F |
113 |
DIAGNOSTICS_SUMMARY |
ndId = ABS(jdiag(md,ld)) |
|
./pkg/diagnostics/diagnostics_summary.F |
116 |
DIAGNOSTICS_SUMMARY |
& mdiag(md,ld),' |', kdiag(ndId),' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
123 |
DIAGNOSTICS_SUMMARY |
ii = ipt+l*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_summary.F |
33 |
DIAGNOSTICS_SUMMARY |
INTEGER md, ld, ndId, ipt, im |
|
./pkg/diagnostics/diagnostics_utils.F |
104 |
DIAGNOSTICS_GET_DIAG |
I ndId, mate, ip, im, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
128 |
DIAGNOSTICS_GET_DIAG |
INTEGER ndId, mate, ip, im |
|
./pkg/diagnostics/diagnostics_utils.F |
141 |
DIAGNOSTICS_GET_DIAG |
IF (ndId.GE.1) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
142 |
DIAGNOSTICS_GET_DIAG |
kLev = kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_utils.F |
209 |
DIAGNOSTICS_GET_POINTERS |
O ndId, ip, |
|
./pkg/diagnostics/diagnostics_utils.F |
244 |
DIAGNOSTICS_GET_POINTERS |
INTEGER ndId, ip |
|
./pkg/diagnostics/diagnostics_utils.F |
252 |
DIAGNOSTICS_GET_POINTERS |
ndId = 0 |
|
./pkg/diagnostics/diagnostics_utils.F |
263 |
DIAGNOSTICS_GET_POINTERS |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_utils.F |
284 |
DIAGNOSTICS_GET_POINTERS |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_utils.F |
291 |
DIAGNOSTICS_GET_POINTERS |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_utils.F |
340 |
DIAGNOSTICS_SETKLEV |
INTEGER n, ndId |
|
./pkg/diagnostics/diagnostics_utils.F |
354 |
DIAGNOSTICS_SETKLEV |
ndId = 0 |
|
./pkg/diagnostics/diagnostics_utils.F |
357 |
DIAGNOSTICS_SETKLEV |
ndId = n |
|
./pkg/diagnostics/diagnostics_utils.F |
360 |
DIAGNOSTICS_SETKLEV |
IF ( ndId.EQ.0 ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
368 |
DIAGNOSTICS_SETKLEV |
IF ( kdiag(ndId).EQ.0 |
|
./pkg/diagnostics/diagnostics_utils.F |
369 |
DIAGNOSTICS_SETKLEV |
& .AND. gdiag(ndId)(10:10).EQ.'X' ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
370 |
DIAGNOSTICS_SETKLEV |
kdiag(ndId) = nLevDiag |
|
./pkg/diagnostics/diagnostics_utils.F |
371 |
DIAGNOSTICS_SETKLEV |
ELSEIF ( kdiag(ndId).EQ.nLevDiag |
|
./pkg/diagnostics/diagnostics_utils.F |
372 |
DIAGNOSTICS_SETKLEV |
& .AND. gdiag(ndId)(10:10).EQ.'X' ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
379 |
DIAGNOSTICS_SETKLEV |
& ' level Nb (=', kdiag(ndId), ') already set.' |
|
./pkg/diagnostics/diagnostics_utils.F |
382 |
DIAGNOSTICS_SETKLEV |
ELSEIF ( gdiag(ndId)(10:10).EQ.'X' ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
388 |
DIAGNOSTICS_SETKLEV |
& 'level Nb already set to', kdiag(ndId), ' => STOP' |
|
./pkg/diagnostics/diagnostics_utils.F |
397 |
DIAGNOSTICS_SETKLEV |
& ' from diagCode(ndId=', ndId, ')="', gdiag(ndId)(1:10), '"' |
|
./pkg/diagnostics/diagnostics_utils.F |
56 |
DIAGNOSTICS_COUNT |
INTEGER ipt, ndId |
|
./pkg/diagnostics/diagnostics_utils.F |
74 |
DIAGNOSTICS_COUNT |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_utils.F |
75 |
DIAGNOSTICS_COUNT |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
189 |
DIAGNOSTICS_WRITE_PICKUP |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
190 |
DIAGNOSTICS_WRITE_PICKUP |
WRITE(dUnit,'(I10)') ndiag(ndId,1,1) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
54 |
DIAGNOSTICS_WRITE_PICKUP |
INTEGER dUnit, ndId, n, m |
|
./pkg/diagnostics/diagstats_ascii_out.F |
12 |
DIAGSTATS_ASCII_OUT |
I statGlob, nLev, ndId, |
|
./pkg/diagnostics/diagstats_ascii_out.F |
35 |
DIAGSTATS_ASCII_OUT |
INTEGER ndId, mId, listId |
|
./pkg/diagnostics/diagstats_ascii_out.F |
51 |
DIAGSTATS_ASCII_OUT |
kLev = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_ascii_out.F |
59 |
DIAGSTATS_ASCII_OUT |
WRITE(nUnit,'(3A,I10,2(A,I4))') ' field : ', cdiag(ndId), |
|
./pkg/diagnostics/diagstats_ascii_out.F |
60 |
DIAGSTATS_ASCII_OUT |
& ' ; Iter =',myIter,' ; region #',j, ' ; nb.Lev =',kdiag(ndId) |
|
./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_fill.F |
122 |
DIAGSTATS_FILL |
parms1 = gdiag(ndId)(1:8) |
|
./pkg/diagnostics/diagstats_fill.F |
198 |
DIAGSTATS_FILL |
IF ( kStore.GT.kdiag(ndId) ) THEN |
|
./pkg/diagnostics/diagstats_fill.F |
201 |
DIAGSTATS_FILL |
& 'exceed Nb of levels(=',kdiag(ndId),' ) reserved ' |
|
./pkg/diagnostics/diagstats_fill.F |
204 |
DIAGSTATS_FILL |
& 'for Diagnostics #', ndId, ' : ', cdiag(ndId) |
|
./pkg/diagnostics/diagstats_fill.F |
22 |
DIAGSTATS_FILL |
I ndId, kInQSd, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagstats_fill.F |
232 |
DIAGSTATS_FILL |
I ndId, gdiag(ndId), myThid ) |
|
./pkg/diagnostics/diagstats_fill.F |
249 |
DIAGSTATS_FILL |
I ndId, gdiag(ndId), myThid ) |
|
./pkg/diagnostics/diagstats_fill.F |
274 |
DIAGSTATS_FILL |
I ndId, gdiag(ndId), myThid ) |
|
./pkg/diagnostics/diagstats_fill.F |
297 |
DIAGSTATS_FILL |
I ndId, gdiag(ndId), myThid ) |
|
./pkg/diagnostics/diagstats_fill.F |
93 |
DIAGSTATS_FILL |
INTEGER ndId, kInQSd |
|
./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 |
63 |
DIAGSTATS_GLOBAL |
klev = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_local.F |
16 |
DIAGSTATS_LOCAL |
I ndId, parsFld, myThid ) |
|
./pkg/diagnostics/diagstats_local.F |
73 |
DIAGSTATS_LOCAL |
INTEGER ndId |
|
./pkg/diagnostics/diagstats_mnc_out.F |
122 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zmd', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
123 |
DIAGSTATS_MNC_OUT |
dim(1) = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
125 |
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 |
191 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zd', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
192 |
DIAGSTATS_MNC_OUT |
IF ( (gdiag(ndId)(10:10) .EQ. 'R') |
|
./pkg/diagnostics/diagstats_mnc_out.F |
193 |
DIAGSTATS_MNC_OUT |
& .AND. (gdiag(ndId)(9:9) .EQ. 'M') ) THEN |
|
./pkg/diagnostics/diagstats_mnc_out.F |
194 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zmd', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
196 |
DIAGSTATS_MNC_OUT |
IF ( (gdiag(ndId)(10:10) .EQ. 'R') |
|
./pkg/diagnostics/diagstats_mnc_out.F |
197 |
DIAGSTATS_MNC_OUT |
& .AND. (gdiag(ndId)(9:9) .EQ. 'L') ) THEN |
|
./pkg/diagnostics/diagstats_mnc_out.F |
198 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zld', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
200 |
DIAGSTATS_MNC_OUT |
IF ( (gdiag(ndId)(10:10) .EQ. 'R') |
|
./pkg/diagnostics/diagstats_mnc_out.F |
201 |
DIAGSTATS_MNC_OUT |
& .AND. (gdiag(ndId)(9:9) .EQ. 'U') ) THEN |
|
./pkg/diagnostics/diagstats_mnc_out.F |
202 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zud', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
206 |
DIAGSTATS_MNC_OUT |
ie(1) = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
228 |
DIAGSTATS_MNC_OUT |
WRITE(d_cw_gname,'(a7,i6.6)') 'dst_cw_', ndId |
|
./pkg/diagnostics/diagstats_mnc_out.F |
234 |
DIAGSTATS_MNC_OUT |
WRITE(d_cw_gname0,'(a9,i6.6)') 'dst_cw_0_', ndId |
|
./pkg/diagnostics/diagstats_mnc_out.F |
246 |
DIAGSTATS_MNC_OUT |
ilen = ILNBLNK(cdiag(ndId)) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
248 |
DIAGSTATS_MNC_OUT |
& cdiag(ndId)(1:ilen),'_',stat_typ(ist+1) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
253 |
DIAGSTATS_MNC_OUT |
& tdiag(ndId),myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
255 |
DIAGSTATS_MNC_OUT |
& udiag(ndId),myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
286 |
DIAGSTATS_MNC_OUT |
IF ( kdiag(ndId) .GT. 1 ) THEN |
|
./pkg/diagnostics/diagstats_mnc_out.F |
288 |
DIAGSTATS_MNC_OUT |
ilen = ILNBLNK(cdiag(ndId)) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
290 |
DIAGSTATS_MNC_OUT |
& cdiag(ndId)(1:ilen),'_lv_',stat_typ(ist+1) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
295 |
DIAGSTATS_MNC_OUT |
& tdiag(ndId),myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
297 |
DIAGSTATS_MNC_OUT |
& udiag(ndId),myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
301 |
DIAGSTATS_MNC_OUT |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
47 |
DIAGSTATS_MNC_OUT |
INTEGER ndId, mId, listId |
|
./pkg/diagnostics/diagstats_output.F |
102 |
DIAGSTATS_OUTPUT |
IF ( kdiag(ndId).GT.nLev ) THEN |
|
./pkg/diagnostics/diagstats_output.F |
104 |
DIAGSTATS_OUTPUT |
& kdiag(ndId), ' exceeds local nLev=', nLev |
|
./pkg/diagnostics/diagstats_output.F |
121 |
DIAGSTATS_OUTPUT |
& ' Compute Stats, Diag. # ',ndId, ' ', cdiag(ndId), |
|
./pkg/diagnostics/diagstats_output.F |
122 |
DIAGSTATS_OUTPUT |
& ' vol(',j,' ):', statGlob(0,0,j),' Parms: ',gdiag(ndId) |
|
./pkg/diagnostics/diagstats_output.F |
135 |
DIAGSTATS_OUTPUT |
CALL DIAGSTATS_ASCII_OUT( statGlob, nLev, ndId, |
|
./pkg/diagnostics/diagstats_output.F |
142 |
DIAGSTATS_OUTPUT |
& statGlob, nLev, ndId, |
|
./pkg/diagnostics/diagstats_output.F |
48 |
DIAGSTATS_OUTPUT |
INTEGER j, m, ndId, iSp, iSm |
|
./pkg/diagnostics/diagstats_output.F |
67 |
DIAGSTATS_OUTPUT |
ndId = jSdiag(m,listId) |
|
./pkg/diagnostics/diagstats_output.F |
68 |
DIAGSTATS_OUTPUT |
gcode = gdiag(ndId)(1:10) |
|
./pkg/diagnostics/diagstats_output.F |
75 |
DIAGSTATS_OUTPUT |
mate = hdiag(ndId) |
|
./pkg/diagnostics/diagstats_output.F |
87 |
DIAGSTATS_OUTPUT |
I ndId, mate, iSp, iSm, myThid ) |
|
./pkg/diagnostics/diagstats_output.F |
98 |
DIAGSTATS_OUTPUT |
& '- WARNING - diagSt.#',ndId, ' : ',diagSt_Flds(m,listId), |
|
./pkg/diagnostics/diagstats_setdiag.F |
107 |
DIAGSTATS_SETDIAG |
mate = hdiag(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 |
60 |
DIAGSTATS_SETDIAG |
gcode = gdiag(ndId)(1:8) |
|
./pkg/diagnostics/diagstats_setdiag.F |
71 |
DIAGSTATS_SETDIAG |
IF (cdiag(ndId).EQ.cdiag(jSdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
85 |
DIAGSTATS_SETDIAG |
IF (ndiagmx+kdiag(ndId).GT.diagSt_size) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
87 |
DIAGSTATS_SETDIAG |
& 'SETDIAG: Not enough space for Stats-Diag #',ndId,cdiag(ndId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
91 |
DIAGSTATS_SETDIAG |
& kdiag(ndId), ' Levels for Stats-Diag #', ndId, cdiag(ndId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
95 |
DIAGSTATS_SETDIAG |
ndiagmx = ndiagmx + kdiag(ndId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
98 |
DIAGSTATS_SETDIAG |
& '- NOTE - SETDIAG: Stats-Diag #', ndId, cdiag(ndId), |