| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1045 |
MOISTIO |
indx = (j-1)*im + i |
|
./pkg/fizhi/fizhi_moist.F |
1046 |
MOISTIO |
plev = pl(indx,L) |
|
./pkg/fizhi/fizhi_moist.F |
1395 |
RNDCLOUD |
integer i,mcheck,iseed,indx |
|
./pkg/fizhi/fizhi_moist.F |
139 |
MOISTIO |
integer i,j,iloop,indx,indgath,l,nn,num,numdeps,nt |
|
./pkg/fizhi/fizhi_moist.F |
1418 |
RNDCLOUD |
indx = (iras-1)*nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1430 |
RNDCLOUD |
indx = (iras-1)*nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1435 |
RNDCLOUD |
& ' indx: ', mod(indx,irm) |
|
./pkg/fizhi/fizhi_moist.F |
1440 |
RNDCLOUD |
indx = (iras-1)*nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1443 |
RNDCLOUD |
indx = mod(indx,irm) |
|
./pkg/fizhi/fizhi_moist.F |
1444 |
RNDCLOUD |
if( indx+nrnd.gt.irm ) then |
|
./pkg/fizhi/fizhi_moist.F |
1447 |
RNDCLOUD |
indx=irm-nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1451 |
RNDCLOUD |
rnd(n) = random(indx+n) |
|
./pkg/fizhi/fizhi_moist.F |
247 |
MOISTIO |
indx = 0 |
|
./pkg/fizhi/fizhi_moist.F |
252 |
MOISTIO |
indx = indx + 1 |
|
./pkg/fizhi/fizhi_moist.F |
253 |
MOISTIO |
pblindex(indx) = (j-1)*im + i |
|
./pkg/fizhi/fizhi_moist.F |
259 |
MOISTIO |
do indx = 1,im*jm |
|
./pkg/fizhi/fizhi_moist.F |
264 |
MOISTIO |
j = 1+INT((pblindex(indx)-1)/im) |
|
./pkg/fizhi/fizhi_moist.F |
265 |
MOISTIO |
i = 1+MOD((pblindex(indx)-1),im) |
|
./pkg/fizhi/fizhi_moist.F |
266 |
MOISTIO |
levgather(indx) = levpbl(i,j) |
|
./pkg/fizhi/fizhi_moist.F |
267 |
MOISTIO |
pigather(indx) = pz(i,j) |
|
./pkg/fizhi/fizhi_moist.F |
268 |
MOISTIO |
pkegather(indx,lm+1) = pkht(i,j,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
269 |
MOISTIO |
plegather(indx,lm+1) = plze(i,j,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
273 |
MOISTIO |
do indx = 1,im*jm |
|
./pkg/fizhi/fizhi_moist.F |
281 |
MOISTIO |
j = 1+INT((pblindex(indx)-1)/im) |
|
./pkg/fizhi/fizhi_moist.F |
282 |
MOISTIO |
i = 1+MOD((pblindex(indx)-1),im) |
|
./pkg/fizhi/fizhi_moist.F |
283 |
MOISTIO |
thgather(indx,L) = tz(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
284 |
MOISTIO |
shgather(indx,L) = qz(i,j,L,1) |
|
./pkg/fizhi/fizhi_moist.F |
285 |
MOISTIO |
pkegather(indx,L) = pkht(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
286 |
MOISTIO |
pkzgather(indx,L) = pkl(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
287 |
MOISTIO |
plegather(indx,L) = plze(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
288 |
MOISTIO |
plzgather(indx,L) = plz(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
289 |
MOISTIO |
dpgather(indx,L) = dpres(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
296 |
MOISTIO |
do indx = 1,im*jm |
|
./pkg/fizhi/fizhi_moist.F |
298 |
MOISTIO |
j = 1+INT((pblindex(indx)-1)/im) |
|
./pkg/fizhi/fizhi_moist.F |
299 |
MOISTIO |
i = 1+MOD((pblindex(indx)-1),im) |
|
./pkg/fizhi/fizhi_moist.F |
300 |
MOISTIO |
ugather(indx,L,nt) = qz(i,j,L,nt+ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
309 |
MOISTIO |
do indx = 1,im*jm |
|
./pkg/fizhi/fizhi_moist.F |
312 |
MOISTIO |
j = 1+INT((pblindex(indx)-1)/im) |
|
./pkg/fizhi/fizhi_moist.F |
313 |
MOISTIO |
i = 1+MOD((pblindex(indx)-1),im) |
|
./pkg/fizhi/fizhi_moist.F |
314 |
MOISTIO |
ugather(indx,L,ntracerin-ptracer+1) = uz(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
315 |
MOISTIO |
ugather(indx,L,ntracerin-ptracer+2) = vz(i,j,L) |
|
./pkg/fizhi/fizhi_turb.F |
3083 |
PSI |
integer ibit,indx |
|
./pkg/fizhi/fizhi_turb.F |
3118 |
PSI |
indx = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3121 |
PSI |
indx = indx + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3122 |
PSI |
Z(indx) = VZZ(I) |
|
./pkg/fizhi/fizhi_turb.F |
3123 |
PSI |
Z0(indx) = ZZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3161 |
PSI |
indx = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3164 |
PSI |
indx = indx + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3165 |
PSI |
VPSIM(I) = PSI2(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3166 |
PSI |
VX(I) = X1(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3167 |
PSI |
VXS(I) = X0(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3194 |
PSI |
indx = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3197 |
PSI |
indx = indx + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3198 |
PSI |
VPSIH(I) = PSI2(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3199 |
PSI |
VY(I) = Y1(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3200 |
PSI |
VYS(I) = Y0(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3223 |
PSI |
indx = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3229 |
PSI |
indx = indx + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3230 |
PSI |
Z(indx) = VZZ(I) |
|
./pkg/fizhi/fizhi_turb.F |
3231 |
PSI |
Z0(indx) = ZZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3232 |
PSI |
ARG1(indx) = VZH(I) |
|
./pkg/fizhi/fizhi_turb.F |
3289 |
PSI |
indx = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3292 |
PSI |
indx = indx + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3293 |
PSI |
VPSIM(I) = PSI2(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3294 |
PSI |
VX(I) = X1(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3295 |
PSI |
VXS(I) = X0(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3321 |
PSI |
indx = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3324 |
PSI |
indx = indx + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3325 |
PSI |
VPSIH(I) = PSI2(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3326 |
PSI |
VY(I) = Y1(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3327 |
PSI |
VYS(I) = X0(indx) |
|
./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/diagnostics/diag_vegtile_fill.F |
10 |
DIAG_VEGTILE_FILL |
& field,indx,chfr,ib,numpts,npeice, |
|
./pkg/diagnostics/diag_vegtile_fill.F |
155 |
DIAG_VEGTILE_FILL |
ij = indx(ivt+offset) - 1 |
|
./pkg/diagnostics/diag_vegtile_fill.F |
167 |
DIAG_VEGTILE_FILL |
ij = indx(ivt+offset) - 1 |
|
./pkg/diagnostics/diag_vegtile_fill.F |
229 |
DIAG_VEGTILE_FILL |
ij = indx(ivt+offset) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
239 |
DIAG_VEGTILE_FILL |
ij = indx(ivt+offset) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
249 |
DIAG_VEGTILE_FILL |
ij = indx(ivt+offset) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
51 |
DIAG_VEGTILE_FILL |
INTEGER indx(numpts) |