| File |
Line number |
Procedure |
Code |
|
./pkg/flt/FLT.h |
70 |
NO PROCEDURE |
INTEGER npart_tile(nSx,nSy) |
|
./pkg/flt/FLT.h |
71 |
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 |
106 |
FLT_EXCH2 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
187 |
FLT_EXCH2 |
npNew = npart_tile(bi,bj) - (icountE+icountW) |
|
./pkg/flt/flt_exch2.F |
189 |
FLT_EXCH2 |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
205 |
FLT_EXCH2 |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exch2.F |
219 |
FLT_EXCH2 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
314 |
FLT_EXCH2 |
npNew = npart_tile(bi,bj) - (icountN+icountS) |
|
./pkg/flt/flt_exch2.F |
316 |
FLT_EXCH2 |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
332 |
FLT_EXCH2 |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exch2.F |
392 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
393 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
394 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
408 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
411 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
421 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
422 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
423 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
437 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
440 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
450 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
451 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
452 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
466 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
469 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
479 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
480 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
481 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
495 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
498 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
148 |
FLT_EXCHG |
npNew = npart_tile(bi,bj) - (icountE+icountW) |
|
./pkg/flt/flt_exchg.F |
150 |
FLT_EXCHG |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
166 |
FLT_EXCHG |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exchg.F |
201 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
202 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
203 |
FLT_EXCHG |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
217 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
220 |
FLT_EXCHG |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
230 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
231 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
232 |
FLT_EXCHG |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
246 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
249 |
FLT_EXCHG |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
288 |
FLT_EXCHG |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
369 |
FLT_EXCHG |
npNew = npart_tile(bi,bj) - (icountN+icountS) |
|
./pkg/flt/flt_exchg.F |
371 |
FLT_EXCHG |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
387 |
FLT_EXCHG |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exchg.F |
422 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
423 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
424 |
FLT_EXCHG |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
438 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
441 |
FLT_EXCHG |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
451 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
452 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
453 |
FLT_EXCHG |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
467 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
470 |
FLT_EXCHG |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
77 |
FLT_EXCHG |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_init_varia.F |
134 |
FLT_INIT_VARIA |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_init_varia.F |
135 |
FLT_INIT_VARIA |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_init_varia.F |
137 |
FLT_INIT_VARIA |
npart( npart_tile(bi,bj),bi,bj) = tmp(1) |
|
./pkg/flt/flt_init_varia.F |
138 |
FLT_INIT_VARIA |
tstart(npart_tile(bi,bj),bi,bj) = tmp(2) |
|
./pkg/flt/flt_init_varia.F |
139 |
FLT_INIT_VARIA |
ipart( npart_tile(bi,bj),bi,bj) = ix |
|
./pkg/flt/flt_init_varia.F |
140 |
FLT_INIT_VARIA |
jpart( npart_tile(bi,bj),bi,bj) = jy |
|
./pkg/flt/flt_init_varia.F |
141 |
FLT_INIT_VARIA |
kpart( npart_tile(bi,bj),bi,bj) = kz |
|
./pkg/flt/flt_init_varia.F |
142 |
FLT_INIT_VARIA |
kfloat(npart_tile(bi,bj),bi,bj) = tmp(6) |
|
./pkg/flt/flt_init_varia.F |
143 |
FLT_INIT_VARIA |
iup( npart_tile(bi,bj),bi,bj) = tmp(7) |
|
./pkg/flt/flt_init_varia.F |
144 |
FLT_INIT_VARIA |
itop( npart_tile(bi,bj),bi,bj) = tmp(8) |
|
./pkg/flt/flt_init_varia.F |
145 |
FLT_INIT_VARIA |
tend( npart_tile(bi,bj),bi,bj) = tmp(9) |
|
./pkg/flt/flt_init_varia.F |
177 |
FLT_INIT_VARIA |
npart_tile(bi,bj) = NINT(tmp(1)) |
|
./pkg/flt/flt_init_varia.F |
179 |
FLT_INIT_VARIA |
npart_read = MIN( npart_tile(bi,bj), max_npart_tile ) |
|
./pkg/flt/flt_init_varia.F |
217 |
FLT_INIT_VARIA |
npart_dist = npart_dist + DBLE(npart_tile(bi,bj)) |
|
./pkg/flt/flt_init_varia.F |
218 |
FLT_INIT_VARIA |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_init_varia.F |
221 |
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 |
75 |
FLT_RUNGA2 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_runga4.F |
75 |
FLT_RUNGA4 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_traj.F |
113 |
FLT_TRAJ |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_traj.F |
170 |
FLT_TRAJ |
IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord |
|
./pkg/flt/flt_traj.F |
85 |
FLT_TRAJ |
tmp(1) = DBLE(npart_tile(bi,bj))+npart_read |
|
./pkg/flt/flt_up.F |
161 |
FLT_UP |
IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord |
|
./pkg/flt/flt_up.F |
78 |
FLT_UP |
tmp(1) = DBLE(npart_tile(bi,bj))+npart_read |
|
./pkg/flt/flt_up.F |
99 |
FLT_UP |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
100 |
FLT_WRITE_PICKUP |
npart_dist = npart_dist + DBLE(npart_tile(bi,bj)) |
|
./pkg/flt/flt_write_pickup.F |
63 |
FLT_WRITE_PICKUP |
tmp(1) = npart_tile(bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
78 |
FLT_WRITE_PICKUP |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
92 |
FLT_WRITE_PICKUP |
IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord |