| File |
Line number |
Procedure |
Code |
|
./pkg/flt/FLT.h |
113 |
NO PROCEDURE |
_RL ipart(max_npart_tile,nSx,nSy) |
|
./pkg/flt/FLT.h |
122 |
NO PROCEDURE |
& ipart, jpart, kpart, |
|
./pkg/flt/flt_exch2.F |
104 |
FLT_EXCH2 |
& .AND. ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exch2.F |
107 |
FLT_EXCH2 |
ELSEIF ( ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exch2.F |
112 |
FLT_EXCH2 |
iNew = ipart(ip,bi,bj) - DFLOAT(sNx) |
|
./pkg/flt/flt_exch2.F |
116 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_EAST) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
137 |
FLT_EXCH2 |
& .AND. ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exch2.F |
140 |
FLT_EXCH2 |
ELSEIF ( ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exch2.F |
145 |
FLT_EXCH2 |
iNew = ipart(ip,bi,bj) + DFLOAT(sNx) |
|
./pkg/flt/flt_exch2.F |
149 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_WEST) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
198 |
FLT_EXCH2 |
ipart (ip,bi,bj) = ipart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
240 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_NORTH) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
278 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_SOUTH) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
335 |
FLT_EXCH2 |
ipart (ip,bi,bj) = ipart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
398 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
427 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
456 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
485 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exchg.F |
101 |
FLT_EXCHG |
& .AND. ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exchg.F |
104 |
FLT_EXCHG |
ELSEIF ( ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exchg.F |
106 |
FLT_EXCHG |
IF ( ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exchg.F |
112 |
FLT_EXCHG |
iNew = ipart(ip,bi,bj) - DFLOAT(sNx) |
|
./pkg/flt/flt_exchg.F |
134 |
FLT_EXCHG |
& .AND. ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exchg.F |
137 |
FLT_EXCHG |
ELSEIF ( ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exchg.F |
139 |
FLT_EXCHG |
IF ( ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exchg.F |
145 |
FLT_EXCHG |
iNew = ipart(ip,bi,bj) + DFLOAT(sNx) |
|
./pkg/flt/flt_exchg.F |
194 |
FLT_EXCHG |
ipart (ip,bi,bj) = ipart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
243 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvE(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
272 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvW(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
348 |
FLT_EXCHG |
fltbuf_sendE(ic+3,bi,bj) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
386 |
FLT_EXCHG |
fltbuf_sendW(ic+3,bi,bj) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
437 |
FLT_EXCHG |
ipart (ip,bi,bj) = ipart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
486 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvE(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
515 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvW(ic+3,bi,bj) |
|
./pkg/flt/flt_init_varia.F |
160 |
FLT_INIT_VARIA |
ipart( npart_tile(bi,bj),bi,bj) = ix |
|
./pkg/flt/flt_init_varia.F |
204 |
FLT_INIT_VARIA |
ipart(ip,bi,bj) = 1+5*(i-1) |
|
./pkg/flt/flt_init_varia.F |
246 |
FLT_INIT_VARIA |
ipart(ip,bi,bj) = ix |
|
./pkg/flt/flt_runga2.F |
190 |
FLT_RUNGA2 |
ipart(ip,bi,bj) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
202 |
FLT_RUNGA2 |
ic = MAX( 1-OLx, MIN( NINT(ipart(ip,bi,bj)), sNx+OLx ) ) |
|
./pkg/flt/flt_runga2.F |
93 |
FLT_RUNGA2 |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
297 |
FLT_RUNGA4 |
ipart(ip,bi,bj) = ipart(ip,bi,bj) + flt_deltaT/6 |
|
./pkg/flt/flt_runga4.F |
309 |
FLT_RUNGA4 |
ic = MAX( 1-OLx, MIN( NINT(ipart(ip,bi,bj)), sNx+OLx ) ) |
|
./pkg/flt/flt_runga4.F |
93 |
FLT_RUNGA4 |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
104 |
FLT_TRAJ |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
113 |
FLT_UP |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
83 |
FLT_WRITE_PICKUP |
tmp(3) = ipart(ip,bi,bj) |