| File |
Line number |
Procedure |
Code |
|
./pkg/flt/FLT.h |
114 |
NO PROCEDURE |
_RL jpart(max_npart_tile,nSx,nSy) |
|
./pkg/flt/FLT.h |
122 |
NO PROCEDURE |
& ipart, jpart, kpart, |
|
./pkg/flt/flt_exch2.F |
120 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_EAST) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
153 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_WEST) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
199 |
FLT_EXCH2 |
jpart (ip,bi,bj) = jpart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
229 |
FLT_EXCH2 |
& .AND. jpart(ip,bi,bj).GE.jhi ) THEN |
|
./pkg/flt/flt_exch2.F |
232 |
FLT_EXCH2 |
ELSEIF ( jpart(ip,bi,bj).GE.jhi ) THEN |
|
./pkg/flt/flt_exch2.F |
237 |
FLT_EXCH2 |
jNew = jpart(ip,bi,bj) - DFLOAT(sNy) |
|
./pkg/flt/flt_exch2.F |
242 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_NORTH) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
267 |
FLT_EXCH2 |
& .AND. jpart(ip,bi,bj).LT.jlo ) THEN |
|
./pkg/flt/flt_exch2.F |
270 |
FLT_EXCH2 |
ELSEIF ( jpart(ip,bi,bj).LT.jlo ) THEN |
|
./pkg/flt/flt_exch2.F |
275 |
FLT_EXCH2 |
jNew = jpart(ip,bi,bj) + DFLOAT(sNy) |
|
./pkg/flt/flt_exch2.F |
280 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_SOUTH) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
336 |
FLT_EXCH2 |
jpart (ip,bi,bj) = jpart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
399 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
428 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
457 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
486 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exchg.F |
116 |
FLT_EXCHG |
fltbuf_sendE(ic+4,bi,bj) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
149 |
FLT_EXCHG |
fltbuf_sendW(ic+4,bi,bj) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
195 |
FLT_EXCHG |
jpart (ip,bi,bj) = jpart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
244 |
FLT_EXCHG |
jpart( jp,bi,bj) = fltbuf_recvE(ic+4,bi,bj) |
|
./pkg/flt/flt_exchg.F |
273 |
FLT_EXCHG |
jpart( jp,bi,bj) = fltbuf_recvW(ic+4,bi,bj) |
|
./pkg/flt/flt_exchg.F |
334 |
FLT_EXCHG |
& .AND. jpart(ip,bi,bj).GE.jhi ) THEN |
|
./pkg/flt/flt_exchg.F |
337 |
FLT_EXCHG |
ELSEIF ( jpart(ip,bi,bj).GE.jhi ) THEN |
|
./pkg/flt/flt_exchg.F |
339 |
FLT_EXCHG |
IF ( jpart(ip,bi,bj).GE.jhi ) THEN |
|
./pkg/flt/flt_exchg.F |
345 |
FLT_EXCHG |
jNew = jpart(ip,bi,bj) - DFLOAT(sNy) |
|
./pkg/flt/flt_exchg.F |
372 |
FLT_EXCHG |
& .AND. jpart(ip,bi,bj).LT.jlo ) THEN |
|
./pkg/flt/flt_exchg.F |
375 |
FLT_EXCHG |
ELSEIF ( jpart(ip,bi,bj).LT.jlo ) THEN |
|
./pkg/flt/flt_exchg.F |
377 |
FLT_EXCHG |
IF ( jpart(ip,bi,bj).LT.jlo ) THEN |
|
./pkg/flt/flt_exchg.F |
383 |
FLT_EXCHG |
jNew = jpart(ip,bi,bj) + DFLOAT(sNy) |
|
./pkg/flt/flt_exchg.F |
438 |
FLT_EXCHG |
jpart (ip,bi,bj) = jpart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
487 |
FLT_EXCHG |
jpart( jp,bi,bj) = fltbuf_recvE(ic+4,bi,bj) |
|
./pkg/flt/flt_exchg.F |
516 |
FLT_EXCHG |
jpart( jp,bi,bj) = fltbuf_recvW(ic+4,bi,bj) |
|
./pkg/flt/flt_init_varia.F |
161 |
FLT_INIT_VARIA |
jpart( npart_tile(bi,bj),bi,bj) = jy |
|
./pkg/flt/flt_init_varia.F |
205 |
FLT_INIT_VARIA |
jpart(ip,bi,bj) = 1+5*(j-1) |
|
./pkg/flt/flt_init_varia.F |
247 |
FLT_INIT_VARIA |
jpart(ip,bi,bj) = jy |
|
./pkg/flt/flt_runga2.F |
192 |
FLT_RUNGA2 |
jpart(ip,bi,bj) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
203 |
FLT_RUNGA2 |
jc = MAX( 1-OLy, MIN( NINT(jpart(ip,bi,bj)), sNy+OLy ) ) |
|
./pkg/flt/flt_runga2.F |
94 |
FLT_RUNGA2 |
jy = jpart(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
299 |
FLT_RUNGA4 |
jpart(ip,bi,bj) = jpart(ip,bi,bj) + flt_deltaT/6 |
|
./pkg/flt/flt_runga4.F |
310 |
FLT_RUNGA4 |
jc = MAX( 1-OLy, MIN( NINT(jpart(ip,bi,bj)), sNy+OLy ) ) |
|
./pkg/flt/flt_runga4.F |
94 |
FLT_RUNGA4 |
jy = jpart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
105 |
FLT_TRAJ |
jy = jpart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
114 |
FLT_UP |
jy = jpart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
84 |
FLT_WRITE_PICKUP |
tmp(4) = jpart(ip,bi,bj) |