| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3148 |
PSI |
integer ibit,indx |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3183 |
PSI |
indx = 0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3186 |
PSI |
indx = indx + 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3187 |
PSI |
Z(indx) = VZZ(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3188 |
PSI |
Z0(indx) = ZZ0(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3226 |
PSI |
indx = 0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3229 |
PSI |
indx = indx + 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3230 |
PSI |
VPSIM(I) = PSI2(indx) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3231 |
PSI |
VX(I) = X1(indx) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3232 |
PSI |
VXS(I) = X0(indx) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3259 |
PSI |
indx = 0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3262 |
PSI |
indx = indx + 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3263 |
PSI |
VPSIH(I) = PSI2(indx) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3264 |
PSI |
VY(I) = Y1(indx) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3265 |
PSI |
VYS(I) = Y0(indx) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3288 |
PSI |
indx = 0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3294 |
PSI |
indx = indx + 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3295 |
PSI |
Z(indx) = VZZ(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3296 |
PSI |
Z0(indx) = ZZ0(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3297 |
PSI |
ARG1(indx) = VZH(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3354 |
PSI |
indx = 0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3357 |
PSI |
indx = indx + 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3358 |
PSI |
VPSIM(I) = PSI2(indx) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3359 |
PSI |
VX(I) = X1(indx) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3360 |
PSI |
VXS(I) = X0(indx) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3386 |
PSI |
indx = 0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3389 |
PSI |
indx = indx + 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3390 |
PSI |
VPSIH(I) = PSI2(indx) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3391 |
PSI |
VY(I) = Y1(indx) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3392 |
PSI |
VYS(I) = X0(indx) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
144 |
DIAG_VEGTILE_FILL |
jindx = 1 + int((indx(i+offset-1)-1)/sNx) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
145 |
DIAG_VEGTILE_FILL |
newindx = indx(i+offset-1)+(jindx-1)*2*Olx |
|
./pkg/diagnostics/diag_vegtile_fill.F |
156 |
DIAG_VEGTILE_FILL |
jindx = 1 + int((indx(i+offset-1)-1)/sNx) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
157 |
DIAG_VEGTILE_FILL |
newindx = indx(i+offset-1)+(jindx-1)*2*Olx |
|
./pkg/diagnostics/diag_vegtile_fill.F |
55 |
DIAG_VEGTILE_FILL |
integer indx(numpts) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
9 |
DIAG_VEGTILE_FILL |
SUBROUTINE DIAG_VEGTILE_FILL (field,indx,chfr,ib,numpts,npeice, |
|
./pkg/fizhi/fizhi_moist.F |
1335 |
RNDCLOUD |
integer i,mcheck,iseed,indx |
|
./pkg/fizhi/fizhi_moist.F |
1358 |
RNDCLOUD |
indx = (iras-1)*nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1370 |
RNDCLOUD |
indx = (iras-1)*nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1375 |
RNDCLOUD |
& ' indx: ', mod(indx,irm) |
|
./pkg/fizhi/fizhi_moist.F |
1380 |
RNDCLOUD |
indx = (iras-1)*nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1383 |
RNDCLOUD |
indx = mod(indx,irm) |
|
./pkg/fizhi/fizhi_moist.F |
1384 |
RNDCLOUD |
if( indx+nrnd.gt.irm ) then |
|
./pkg/fizhi/fizhi_moist.F |
1387 |
RNDCLOUD |
indx=irm-nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1391 |
RNDCLOUD |
rnd(n) = random(indx+n) |
|
./pkg/fizhi/fizhi_moist.F |
139 |
MOISTIO |
integer i,j,iloop,indx,indgath,l,nn,num,numdeps,nt |
|
./pkg/fizhi/fizhi_moist.F |
245 |
MOISTIO |
indx = 0 |
|
./pkg/fizhi/fizhi_moist.F |
250 |
MOISTIO |
indx = indx + 1 |
|
./pkg/fizhi/fizhi_moist.F |
251 |
MOISTIO |
pblindex(indx) = (j-1)*im + i |
|
./pkg/fizhi/fizhi_moist.F |
257 |
MOISTIO |
do indx = 1,im*jm |
|
./pkg/fizhi/fizhi_moist.F |
258 |
MOISTIO |
levgather(indx) = levpbl(pblindex(indx),1) |
|
./pkg/fizhi/fizhi_moist.F |
259 |
MOISTIO |
pigather(indx) = pz(pblindex(indx),1) |
|
./pkg/fizhi/fizhi_moist.F |
260 |
MOISTIO |
pkegather(indx,lm+1) = pkht(pblindex(indx),1,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
261 |
MOISTIO |
plegather(indx,lm+1) = plze(pblindex(indx),1,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
265 |
MOISTIO |
do indx = 1,im*jm |
|
./pkg/fizhi/fizhi_moist.F |
266 |
MOISTIO |
thgather(indx,L) = tz(pblindex(indx),1,L) |
|
./pkg/fizhi/fizhi_moist.F |
267 |
MOISTIO |
shgather(indx,L) = qz(pblindex(indx),1,L,1) |
|
./pkg/fizhi/fizhi_moist.F |
268 |
MOISTIO |
pkegather(indx,L) = pkht(pblindex(indx),1,L) |
|
./pkg/fizhi/fizhi_moist.F |
269 |
MOISTIO |
pkzgather(indx,L) = pkl(pblindex(indx),1,L) |
|
./pkg/fizhi/fizhi_moist.F |
270 |
MOISTIO |
plegather(indx,L) = plze(pblindex(indx),1,L) |
|
./pkg/fizhi/fizhi_moist.F |
271 |
MOISTIO |
plzgather(indx,L) = plz(pblindex(indx),1,L) |
|
./pkg/fizhi/fizhi_moist.F |
272 |
MOISTIO |
dpgather(indx,L) = dpres(pblindex(indx),1,L) |
|
./pkg/fizhi/fizhi_moist.F |
279 |
MOISTIO |
do indx = 1,im*jm |
|
./pkg/fizhi/fizhi_moist.F |
280 |
MOISTIO |
ugather(indx,L,nt) = qz(pblindex(indx),1,L,nt+ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
289 |
MOISTIO |
do indx = 1,im*jm |
|
./pkg/fizhi/fizhi_moist.F |
290 |
MOISTIO |
ugather(indx,L,ntracerin-ptracer+1) = uz(pblindex(indx),1,L) |
|
./pkg/fizhi/fizhi_moist.F |
291 |
MOISTIO |
ugather(indx,L,ntracerin-ptracer+2) = vz(pblindex(indx),1,L) |
|
./pkg/fizhi/fizhi_utils.F |
499 |
STRIP2TILE |
subroutine STRIP2TILE(a,indx,b,irun,ia,ib,levs,npeice) |
|
./pkg/fizhi/fizhi_utils.F |
521 |
STRIP2TILE |
integer indx(irun) |
|
./pkg/fizhi/fizhi_utils.F |
531 |
STRIP2TILE |
b(i,k) = a(indx(i+offset-1),k) |
|
./pkg/fizhi/fizhi_utils.F |
536 |
STRIP2TILE |
b(i,k) = a(indx(i+offset-1),k) |
|
./pkg/fizhi/fizhi_utils.F |
539 |
STRIP2TILE |
b(Lena+i,k) = a(indx(Lena+offset-1),k) |
|
./pkg/fizhi/fizhi_utils.F |
546 |
PASTE2GRD_OLD |
subroutine PASTE2GRD_OLD(b,indx,chfr,ib,numpts,a,ia,levs,npeice) |
|
./pkg/fizhi/fizhi_utils.F |
574 |
PASTE2GRD_OLD |
integer indx(numpts) |
|
./pkg/fizhi/fizhi_utils.F |
585 |
PASTE2GRD_OLD |
a(indx(i+offset-1),L) = a(indx(i+offset-1),L) + b(i,L)*chfr(i) |
|
./pkg/fizhi/fizhi_utils.F |
590 |
PASTE2GRD |
subroutine PASTE2GRD (b,indx,chfr,ib,numpts,a,ia,levs,npeice, |
|
./pkg/fizhi/fizhi_utils.F |
620 |
PASTE2GRD |
integer indx(numpts) |
|
./pkg/fizhi/fizhi_utils.F |
635 |
PASTE2GRD |
if( a(indx(i+offset-1),L).eq.undef .or. b(i,L).eq.undef ) then |
|
./pkg/fizhi/fizhi_utils.F |
636 |
PASTE2GRD |
a(indx(i+offset-1),L) = undef |
|
./pkg/fizhi/fizhi_utils.F |
638 |
PASTE2GRD |
a(indx(i+offset-1),L)=a(indx(i+offset-1),L) + b(i,L)*chfr(i) |
|
./pkg/fizhi/fizhi_utils.F |
645 |
PASTE2GRD |
a(indx(i+offset-1),L)=a(indx(i+offset-1),L) + b(i,L)*chfr(i) |
|
./pkg/fizhi/fizhi_turb.F |
3109 |
PSI |
integer ibit,indx |
|
./pkg/fizhi/fizhi_turb.F |
3144 |
PSI |
indx = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3147 |
PSI |
indx = indx + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3148 |
PSI |
Z(indx) = VZZ(I) |
|
./pkg/fizhi/fizhi_turb.F |
3149 |
PSI |
Z0(indx) = ZZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3187 |
PSI |
indx = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3190 |
PSI |
indx = indx + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3191 |
PSI |
VPSIM(I) = PSI2(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3192 |
PSI |
VX(I) = X1(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3193 |
PSI |
VXS(I) = X0(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3220 |
PSI |
indx = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3223 |
PSI |
indx = indx + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3224 |
PSI |
VPSIH(I) = PSI2(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3225 |
PSI |
VY(I) = Y1(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3226 |
PSI |
VYS(I) = Y0(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3249 |
PSI |
indx = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3255 |
PSI |
indx = indx + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3256 |
PSI |
Z(indx) = VZZ(I) |
|
./pkg/fizhi/fizhi_turb.F |
3257 |
PSI |
Z0(indx) = ZZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3258 |
PSI |
ARG1(indx) = VZH(I) |
|
./pkg/fizhi/fizhi_turb.F |
3315 |
PSI |
indx = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3318 |
PSI |
indx = indx + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3319 |
PSI |
VPSIM(I) = PSI2(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3320 |
PSI |
VX(I) = X1(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3321 |
PSI |
VXS(I) = X0(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3347 |
PSI |
indx = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3350 |
PSI |
indx = indx + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3351 |
PSI |
VPSIH(I) = PSI2(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3352 |
PSI |
VY(I) = Y1(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3353 |
PSI |
VYS(I) = X0(indx) |