| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_init.F |
222 |
FLT_INIT |
ylo = yc(1, 1, bi,bj) - delY(jG)*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 |
256 |
FLT_EXCHG |
ylo = yc(1, 1, bi,bj) - delY(jG) |
|
./pkg/flt/flt_exchg.F |
290 |
FLT_EXCHG |
if (ypart(ip,bi,bj) .le. ylo) 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 |
107 |
NO PROCEDURE |
ylo = yc(1,j, bi,bj) |
|
./pkg/flt/flt_functions.F |
108 |
NO PROCEDURE |
if (j.eq.0) ylo = yc(1,j,bi,bj)-delY(jG) |
|
./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 |
115 |
NO PROCEDURE |
fm = (rG - ylo) / 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 |