| File |
Line number |
Procedure |
Code |
|
./pkg/flt/FLT.h |
101 |
NO PROCEDURE |
_RL ipart(max_npart_tile,nSx,nSy) |
|
./pkg/flt/FLT.h |
110 |
NO PROCEDURE |
& ipart, jpart, kpart, |
|
./pkg/flt/flt_exch2.F |
110 |
FLT_EXCH2 |
& .AND. ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exch2.F |
113 |
FLT_EXCH2 |
ELSEIF ( ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exch2.F |
118 |
FLT_EXCH2 |
iNew = ipart(ip,bi,bj) - DFLOAT(sNx) |
|
./pkg/flt/flt_exch2.F |
139 |
FLT_EXCH2 |
& .AND. ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exch2.F |
142 |
FLT_EXCH2 |
ELSEIF ( ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exch2.F |
147 |
FLT_EXCH2 |
iNew = ipart(ip,bi,bj) + DFLOAT(sNx) |
|
./pkg/flt/flt_exch2.F |
196 |
FLT_EXCH2 |
ipart (ip,bi,bj) = ipart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
236 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_NORTH) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
270 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_SOUTH) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
323 |
FLT_EXCH2 |
ipart (ip,bi,bj) = ipart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
397 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
426 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
455 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
484 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exchg.F |
103 |
FLT_EXCHG |
IF ( ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exchg.F |
108 |
FLT_EXCHG |
iNew = ipart(ip,bi,bj) + DFLOAT(sNx) |
|
./pkg/flt/flt_exchg.F |
157 |
FLT_EXCHG |
ipart (ip,bi,bj) = ipart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
206 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvE(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
235 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvW(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
298 |
FLT_EXCHG |
fltbuf_sendE(ic+3,bi,bj) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
327 |
FLT_EXCHG |
fltbuf_sendW(ic+3,bi,bj) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
378 |
FLT_EXCHG |
ipart (ip,bi,bj) = ipart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
427 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvE(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
456 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvW(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
79 |
FLT_EXCHG |
IF ( ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exchg.F |
84 |
FLT_EXCHG |
iNew = ipart(ip,bi,bj) - DFLOAT(sNx) |
|
./pkg/flt/flt_init_varia.F |
139 |
FLT_INIT_VARIA |
ipart( npart_tile(bi,bj),bi,bj) = ix |
|
./pkg/flt/flt_init_varia.F |
199 |
FLT_INIT_VARIA |
ipart(ip,bi,bj) = ix |
|
./pkg/flt/flt_runga2.F |
185 |
FLT_RUNGA2 |
ipart(ip,bi,bj) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
197 |
FLT_RUNGA2 |
ic = MAX( 1-Olx, MIN( NINT(ipart(ip,bi,bj)), sNx+Olx ) ) |
|
./pkg/flt/flt_runga2.F |
88 |
FLT_RUNGA2 |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
292 |
FLT_RUNGA4 |
ipart(ip,bi,bj) = ipart(ip,bi,bj) + flt_deltaT/6 |
|
./pkg/flt/flt_runga4.F |
304 |
FLT_RUNGA4 |
ic = MAX( 1-Olx, MIN( NINT(ipart(ip,bi,bj)), sNx+Olx ) ) |
|
./pkg/flt/flt_runga4.F |
88 |
FLT_RUNGA4 |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
115 |
FLT_TRAJ |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
121 |
FLT_UP |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
82 |
FLT_WRITE_PICKUP |
tmp(3) = ipart(ip,bi,bj) |