File |
Line number |
Procedure |
Code |
./pkg/diagnostics/diagnostics_calc_phivel.F |
128 |
DIAGNOSTICS_CALC_PHIVEL |
& *qtmp1(i,j,ks,bi,bj)*maskInW(i,j,bi,bj) |
./pkg/diagnostics/diagnostics_calc_phivel.F |
14 |
DIAGNOSTICS_CALC_PHIVEL |
U qtmp1, qtmp2, |
./pkg/diagnostics/diagnostics_calc_phivel.F |
322 |
DIAGNOSTICS_CALC_PHIVEL |
qtmp1(i,j,ks,bi,bj) = x2d(i,j,bi,bj) |
./pkg/diagnostics/diagnostics_calc_phivel.F |
45 |
DIAGNOSTICS_CALC_PHIVEL |
_RL qtmp1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,NrMax,nSx,nSy) |
./pkg/diagnostics/diagnostics_interp_vert.F |
13 |
DIAGNOSTICS_INTERP_VERT |
U qtmp1, |
./pkg/diagnostics/diagnostics_interp_vert.F |
162 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k) = qtmp1(i,j,k,bi,bj) |
./pkg/diagnostics/diagnostics_interp_vert.F |
176 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k)= qtmp1(i,j,kLev,bi,bj) |
./pkg/diagnostics/diagnostics_interp_vert.F |
197 |
DIAGNOSTICS_INTERP_VERT |
qtmp1(i,j,k,bi,bj) = 0. |
./pkg/diagnostics/diagnostics_interp_vert.F |
199 |
DIAGNOSTICS_INTERP_VERT |
qtmp1(i,j,k,bi,bj) = qprs(i,j) |
./pkg/diagnostics/diagnostics_interp_vert.F |
51 |
DIAGNOSTICS_INTERP_VERT |
_RL qtmp1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,NrMax,nSx,nSy) |
./pkg/diagnostics/diagnostics_out.F |
247 |
DIAGNOSTICS_OUT |
qtmp1(i,j,k,bi,bj) = 0. _d 0 |
./pkg/diagnostics/diagnostics_out.F |
304 |
DIAGNOSTICS_OUT |
O qtmp1(1-OLx,1-OLy,k,bi,bj), |
./pkg/diagnostics/diagnostics_out.F |
328 |
DIAGNOSTICS_OUT |
O qtmp1(1-OLx,1-OLy,1,bi,bj), |
./pkg/diagnostics/diagnostics_out.F |
353 |
DIAGNOSTICS_OUT |
U qtmp1, qtmp2, |
./pkg/diagnostics/diagnostics_out.F |
366 |
DIAGNOSTICS_OUT |
U qtmp1, |
./pkg/diagnostics/diagnostics_out.F |
377 |
DIAGNOSTICS_OUT |
U qtmp1, qtmp2, |
./pkg/diagnostics/diagnostics_out.F |
407 |
DIAGNOSTICS_OUT |
I qtmp1, -nRec, myIter, myThid ) |
./pkg/diagnostics/diagnostics_out.F |
421 |
DIAGNOSTICS_OUT |
I diag_mnc_bn, qtmp1, |
./pkg/diagnostics/diagnostics_out.F |
62 |
DIAGNOSTICS_OUT |
_RL qtmp1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,NrMax,nSx,nSy) |
./pkg/diagnostics/diagstats_global.F |
112 |
DIAGSTATS_GLOBAL |
tmpVol = qtmp1(0,k) |
./pkg/diagnostics/diagstats_global.F |
114 |
DIAGSTATS_GLOBAL |
_GLOBAL_SUM_RL(qtmp1(i,k),myThid) |
./pkg/diagnostics/diagstats_global.F |
116 |
DIAGSTATS_GLOBAL |
IF ( qtmp1(0,k).GT.0. .AND. tmpVol.LE.0. ) THEN |
./pkg/diagnostics/diagstats_global.F |
118 |
DIAGSTATS_GLOBAL |
tmpMax = qtmp1(1,k)/qtmp1(0,k) |
./pkg/diagnostics/diagstats_global.F |
121 |
DIAGSTATS_GLOBAL |
tmpMin = -qtmp1(im,k) |
./pkg/diagnostics/diagstats_global.F |
122 |
DIAGSTATS_GLOBAL |
tmpMax = qtmp1(ix,k) |
./pkg/diagnostics/diagstats_global.F |
126 |
DIAGSTATS_GLOBAL |
qtmp1(im,k) = -tmpMin |
./pkg/diagnostics/diagstats_global.F |
127 |
DIAGSTATS_GLOBAL |
qtmp1(ix,k) = tmpMax |
./pkg/diagnostics/diagstats_global.F |
12 |
DIAGSTATS_GLOBAL |
O qtmp1, qtmp2, |
./pkg/diagnostics/diagstats_global.F |
139 |
DIAGSTATS_GLOBAL |
IF ( qtmp1(0,k).GT.0. ) THEN |
./pkg/diagnostics/diagstats_global.F |
140 |
DIAGSTATS_GLOBAL |
IF ( qtmp1(0,0).LE.0. ) THEN |
./pkg/diagnostics/diagstats_global.F |
142 |
DIAGSTATS_GLOBAL |
qtmp1(i,0) = qtmp1(i,k) |
./pkg/diagnostics/diagstats_global.F |
146 |
DIAGSTATS_GLOBAL |
qtmp1(i,0) = qtmp1(i,0) + qtmp1(i,k) |
./pkg/diagnostics/diagstats_global.F |
148 |
DIAGSTATS_GLOBAL |
qtmp1(im,0) = MIN(qtmp1(im,0),qtmp1(im,k)) |
./pkg/diagnostics/diagstats_global.F |
149 |
DIAGSTATS_GLOBAL |
qtmp1(ix,0) = MAX(qtmp1(ix,0),qtmp1(ix,k)) |
./pkg/diagnostics/diagstats_global.F |
173 |
DIAGSTATS_GLOBAL |
IF ( qtmp1(0,k).LE.0. ) THEN |
./pkg/diagnostics/diagstats_global.F |
175 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = undef |
./pkg/diagnostics/diagstats_global.F |
179 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qtmp1(i,k) / qtmp1(0,k) |
./pkg/diagnostics/diagstats_global.F |
182 |
DIAGSTATS_GLOBAL |
qtmp1(iv,k) = qtmp1(iv,k) - qtmp1(1,k)*qtmp1(1,k) |
./pkg/diagnostics/diagstats_global.F |
184 |
DIAGSTATS_GLOBAL |
IF (qtmp1(iv,k).GT.0.) qtmp1(iv,k) = SQRT(qtmp1(iv,k)) |
./pkg/diagnostics/diagstats_global.F |
188 |
DIAGSTATS_GLOBAL |
qtmp2(0,0) = qtmp1(0,0) |
./pkg/diagnostics/diagstats_global.F |
195 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = undef |
./pkg/diagnostics/diagstats_global.F |
199 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = undef |
./pkg/diagnostics/diagstats_global.F |
203 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qtmp1(i,k) / qtmp2(1,kCnt) |
./pkg/diagnostics/diagstats_global.F |
207 |
DIAGSTATS_GLOBAL |
qtmp1(iv,k) = qtmp1(iv,k) - qtmp1(1,k)*qtmp1(1,k) |
./pkg/diagnostics/diagstats_global.F |
209 |
DIAGSTATS_GLOBAL |
IF (qtmp1(iv,k).GT.0.) qtmp1(iv,k) = SQRT(qtmp1(iv,k)) |
./pkg/diagnostics/diagstats_global.F |
42 |
DIAGSTATS_GLOBAL |
_RL qtmp1(0:nStats,0:nLev) |
./pkg/diagnostics/diagstats_global.F |
58 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = 0. |
./pkg/diagnostics/diagstats_global.F |
76 |
DIAGSTATS_GLOBAL |
IF ( qtmp1(0,k).LE.0. ) THEN |
./pkg/diagnostics/diagstats_global.F |
78 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qSdiag(i,jReg,kd,bi,bj) |
./pkg/diagnostics/diagstats_global.F |
82 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qtmp1(i,k) + qSdiag(i,jReg,kd,bi,bj) |
./pkg/diagnostics/diagstats_global.F |
84 |
DIAGSTATS_GLOBAL |
qtmp1(im,k) = MIN( qtmp1(im,k),qSdiag(im,jReg,kd,bi,bj) ) |
./pkg/diagnostics/diagstats_global.F |
85 |
DIAGSTATS_GLOBAL |
qtmp1(ix,k) = MAX( qtmp1(ix,k),qSdiag(ix,jReg,kd,bi,bj) ) |