| 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 |
189 |
FLT_EXCH2 |
npNew = npart_tile(bi,bj) - (icountE+icountW) |
|
./pkg/flt/flt_exch2.F |
191 |
FLT_EXCH2 |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
207 |
FLT_EXCH2 |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exch2.F |
223 |
FLT_EXCH2 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
326 |
FLT_EXCH2 |
npNew = npart_tile(bi,bj) - (icountN+icountS) |
|
./pkg/flt/flt_exch2.F |
328 |
FLT_EXCH2 |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
344 |
FLT_EXCH2 |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exch2.F |
393 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
394 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
395 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
409 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
412 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
422 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
423 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
424 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
438 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
441 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
451 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
452 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
453 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
467 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
470 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
480 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
481 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
482 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
496 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
499 |
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 |
155 |
FLT_INIT_VARIA |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_init_varia.F |
156 |
FLT_INIT_VARIA |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_init_varia.F |
158 |
FLT_INIT_VARIA |
npart( npart_tile(bi,bj),bi,bj) = tmp(1) |
|
./pkg/flt/flt_init_varia.F |
159 |
FLT_INIT_VARIA |
tstart(npart_tile(bi,bj),bi,bj) = tmp(2) |
|
./pkg/flt/flt_init_varia.F |
160 |
FLT_INIT_VARIA |
ipart( npart_tile(bi,bj),bi,bj) = ix |
|
./pkg/flt/flt_init_varia.F |
161 |
FLT_INIT_VARIA |
jpart( npart_tile(bi,bj),bi,bj) = jy |
|
./pkg/flt/flt_init_varia.F |
162 |
FLT_INIT_VARIA |
kpart( npart_tile(bi,bj),bi,bj) = kz |
|
./pkg/flt/flt_init_varia.F |
163 |
FLT_INIT_VARIA |
kfloat(npart_tile(bi,bj),bi,bj) = tmp(6) |
|
./pkg/flt/flt_init_varia.F |
164 |
FLT_INIT_VARIA |
iup( npart_tile(bi,bj),bi,bj) = tmp(7) |
|
./pkg/flt/flt_init_varia.F |
165 |
FLT_INIT_VARIA |
itop( npart_tile(bi,bj),bi,bj) = tmp(8) |
|
./pkg/flt/flt_init_varia.F |
166 |
FLT_INIT_VARIA |
tend( npart_tile(bi,bj),bi,bj) = tmp(9) |
|
./pkg/flt/flt_init_varia.F |
195 |
FLT_INIT_VARIA |
npart_tile(bi,bj) = 6*6 |
|
./pkg/flt/flt_init_varia.F |
224 |
FLT_INIT_VARIA |
npart_tile(bi,bj) = NINT(tmp(1)) |
|
./pkg/flt/flt_init_varia.F |
226 |
FLT_INIT_VARIA |
npart_read = MIN( npart_tile(bi,bj), max_npart_tile ) |
|
./pkg/flt/flt_init_varia.F |
265 |
FLT_INIT_VARIA |
npart_dist = npart_dist + DBLE(npart_tile(bi,bj)) |
|
./pkg/flt/flt_init_varia.F |
266 |
FLT_INIT_VARIA |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_init_varia.F |
269 |
FLT_INIT_VARIA |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_init_varia.F |
85 |
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 |