| File |
Line number |
Procedure |
Code |
|
./pkg/flt/FLT.h |
83 |
NO PROCEDURE |
INTEGER npart_tile(nSx,nSy) |
|
./pkg/flt/FLT.h |
84 |
NO PROCEDURE |
COMMON / FLT_STATE_I / npart_tile |
|
./pkg/flt/flt_down.F |
38 |
FLT_DOWN |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
100 |
FLT_EXCH2 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
181 |
FLT_EXCH2 |
npNew = npart_tile(bi,bj) - (icountE+icountW) |
|
./pkg/flt/flt_exch2.F |
183 |
FLT_EXCH2 |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
199 |
FLT_EXCH2 |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exch2.F |
215 |
FLT_EXCH2 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
310 |
FLT_EXCH2 |
npNew = npart_tile(bi,bj) - (icountN+icountS) |
|
./pkg/flt/flt_exch2.F |
312 |
FLT_EXCH2 |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
328 |
FLT_EXCH2 |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exch2.F |
377 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
378 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
379 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
393 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
396 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
406 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
407 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
408 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
422 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
425 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
435 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
436 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
437 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
451 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
454 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
464 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
465 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
466 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
480 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
483 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
185 |
FLT_EXCHG |
npNew = npart_tile(bi,bj) - (icountE+icountW) |
|
./pkg/flt/flt_exchg.F |
187 |
FLT_EXCHG |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
203 |
FLT_EXCHG |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exchg.F |
238 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
239 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
240 |
FLT_EXCHG |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
254 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
257 |
FLT_EXCHG |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
267 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
268 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
269 |
FLT_EXCHG |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
283 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
286 |
FLT_EXCHG |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
329 |
FLT_EXCHG |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
428 |
FLT_EXCHG |
npNew = npart_tile(bi,bj) - (icountN+icountS) |
|
./pkg/flt/flt_exchg.F |
430 |
FLT_EXCHG |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
446 |
FLT_EXCHG |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exchg.F |
481 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
482 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
483 |
FLT_EXCHG |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
497 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
500 |
FLT_EXCHG |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
510 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
511 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
512 |
FLT_EXCHG |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
526 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
529 |
FLT_EXCHG |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
96 |
FLT_EXCHG |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_init_varia.F |
142 |
FLT_INIT_VARIA |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_init_varia.F |
143 |
FLT_INIT_VARIA |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_init_varia.F |
145 |
FLT_INIT_VARIA |
npart( npart_tile(bi,bj),bi,bj) = tmp(1) |
|
./pkg/flt/flt_init_varia.F |
146 |
FLT_INIT_VARIA |
tstart(npart_tile(bi,bj),bi,bj) = tmp(2) |
|
./pkg/flt/flt_init_varia.F |
147 |
FLT_INIT_VARIA |
ipart( npart_tile(bi,bj),bi,bj) = ix |
|
./pkg/flt/flt_init_varia.F |
148 |
FLT_INIT_VARIA |
jpart( npart_tile(bi,bj),bi,bj) = jy |
|
./pkg/flt/flt_init_varia.F |
149 |
FLT_INIT_VARIA |
kpart( npart_tile(bi,bj),bi,bj) = kz |
|
./pkg/flt/flt_init_varia.F |
150 |
FLT_INIT_VARIA |
kfloat(npart_tile(bi,bj),bi,bj) = tmp(6) |
|
./pkg/flt/flt_init_varia.F |
151 |
FLT_INIT_VARIA |
iup( npart_tile(bi,bj),bi,bj) = tmp(7) |
|
./pkg/flt/flt_init_varia.F |
152 |
FLT_INIT_VARIA |
itop( npart_tile(bi,bj),bi,bj) = tmp(8) |
|
./pkg/flt/flt_init_varia.F |
153 |
FLT_INIT_VARIA |
tend( npart_tile(bi,bj),bi,bj) = tmp(9) |
|
./pkg/flt/flt_init_varia.F |
185 |
FLT_INIT_VARIA |
npart_tile(bi,bj) = NINT(tmp(1)) |
|
./pkg/flt/flt_init_varia.F |
187 |
FLT_INIT_VARIA |
npart_read = MIN( npart_tile(bi,bj), max_npart_tile ) |
|
./pkg/flt/flt_init_varia.F |
225 |
FLT_INIT_VARIA |
npart_dist = npart_dist + DBLE(npart_tile(bi,bj)) |
|
./pkg/flt/flt_init_varia.F |
226 |
FLT_INIT_VARIA |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_init_varia.F |
229 |
FLT_INIT_VARIA |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_init_varia.F |
81 |
FLT_INIT_VARIA |
npart_tile(bi,bj) = 0 |
|
./pkg/flt/flt_runga2.F |
80 |
FLT_RUNGA2 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_runga4.F |
80 |
FLT_RUNGA4 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_traj.F |
102 |
FLT_TRAJ |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_traj.F |
210 |
FLT_TRAJ |
tmp(1) = DBLE(npart_tile(bi,bj))+npart_read |
|
./pkg/flt/flt_traj.F |
231 |
FLT_TRAJ |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_traj.F |
234 |
FLT_TRAJ |
IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord |
|
./pkg/flt/flt_up.F |
208 |
FLT_UP |
tmp(1) = DBLE(npart_tile(bi,bj))+npart_read |
|
./pkg/flt/flt_up.F |
229 |
FLT_UP |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_up.F |
232 |
FLT_UP |
IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord |
|
./pkg/flt/flt_up.F |
90 |
FLT_UP |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
101 |
FLT_WRITE_PICKUP |
npart_dist = npart_dist + DBLE(npart_tile(bi,bj)) |
|
./pkg/flt/flt_write_pickup.F |
64 |
FLT_WRITE_PICKUP |
tmp(1) = npart_tile(bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
79 |
FLT_WRITE_PICKUP |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
93 |
FLT_WRITE_PICKUP |
IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord |