| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_init.F |
223 |
FLT_INIT |
yhi = yc(1,sNy,bi,bj) + delY(jG+sNy-1)*0.5 |
|
./pkg/flt/flt_init.F |
226 |
FLT_INIT |
& tmp(4) .ge. ylo .and. tmp(4) .le. yhi) then |
|
./pkg/flt/flt_init.F |
48 |
FLT_INIT |
_RL xlo, xhi, ylo, yhi |
|
./pkg/flt/flt_exchg.F |
257 |
FLT_EXCHG |
yhi = yc(1,sNy,bi,bj) + delY(jG+sNy-1) |
|
./pkg/flt/flt_exchg.F |
261 |
FLT_EXCHG |
if (ypart(ip,bi,bj) .ge. yhi) then |
|
./pkg/flt/flt_exchg.F |
49 |
FLT_EXCHG |
_RL xlo, xhi, ylo, yhi |
|
./pkg/flt/flt_up.F |
47 |
FLT_UP |
_RL xx, yy, xlo, xhi, ylo, yhi |
|
./pkg/flt/flt_functions.F |
109 |
NO PROCEDURE |
yhi = yc(1,j+1,bi,bj) |
|
./pkg/flt/flt_functions.F |
110 |
NO PROCEDURE |
if (j.eq.sNy) yhi = yc(1,j,bi,bj)+delY(jG+j-1) |
|
./pkg/flt/flt_functions.F |
112 |
NO PROCEDURE |
if (ylo .le. rG .and. yhi .gt. rG) then |
|
./pkg/flt/flt_functions.F |
113 |
NO PROCEDURE |
dist = yhi - ylo |
|
./pkg/flt/flt_functions.F |
114 |
NO PROCEDURE |
fp = (yhi - rG) / dist |
|
./pkg/flt/flt_functions.F |
96 |
NO PROCEDURE |
_RL rG, fp, fm, dist, ylo, yhi |
|
./pkg/flt/flt_traj.F |
45 |
FLT_TRAJ |
_RL xx, yy, xlo, xhi, ylo, yhi |