| File |
Line number |
Procedure |
Code |
|
./pkg/dic/carbon_chem.F |
116 |
CALC_PCO2 |
_RL xlo |
|
./pkg/dic/carbon_chem.F |
153 |
CALC_PCO2 |
xlo = 10.0**(-phhi) |
|
./pkg/dic/carbon_chem.F |
155 |
CALC_PCO2 |
xmid = (xlo + xhi)*0.5 |
|
./pkg/dic/carbon_chem.F |
244 |
CALC_PCO2 |
if(hstep .eq. 2)x = xlo |
|
./pkg/dic/carbon_chem.F |
282 |
CALC_PCO2 |
xlo = xmid |
|
./pkg/dic/carbon_chem.F |
284 |
CALC_PCO2 |
xmid = (xlo + xhi)*0.5 |
|
./pkg/flt/flt_init.F |
220 |
FLT_INIT |
xlo = xc(1, 1, bi,bj) - delX(iG)*0.5 |
|
./pkg/flt/flt_init.F |
225 |
FLT_INIT |
if (tmp(3) .ge. xlo .and. tmp(3) .le. xhi .and. |
|
./pkg/flt/flt_init.F |
48 |
FLT_INIT |
_RL xlo, xhi, ylo, yhi |
|
./pkg/flt/flt_exchg.F |
120 |
FLT_EXCHG |
if (xpart(ip,bi,bj) .le. xlo) then |
|
./pkg/flt/flt_exchg.F |
49 |
FLT_EXCHG |
_RL xlo, xhi, ylo, yhi |
|
./pkg/flt/flt_exchg.F |
85 |
FLT_EXCHG |
xlo = xc(1, 1, bi,bj) - delX(iG) |
|
./pkg/flt/flt_up.F |
47 |
FLT_UP |
_RL xx, yy, xlo, xhi, ylo, yhi |
|
./pkg/flt/flt_functions.F |
34 |
NO PROCEDURE |
_RL rG, fp, fm, dist, xlo, xhi |
|
./pkg/flt/flt_functions.F |
44 |
NO PROCEDURE |
xlo = xc(i, 1,bi,bj) |
|
./pkg/flt/flt_functions.F |
45 |
NO PROCEDURE |
if (i.eq.0) xlo = xc(i,1,bi,bj)-delX(iG) |
|
./pkg/flt/flt_functions.F |
49 |
NO PROCEDURE |
if (xlo .le. rG .and. xhi .gt. rG) then |
|
./pkg/flt/flt_functions.F |
50 |
NO PROCEDURE |
dist = xhi - xlo |
|
./pkg/flt/flt_functions.F |
52 |
NO PROCEDURE |
fm = (rG - xlo) / dist |
|
./pkg/flt/flt_traj.F |
45 |
FLT_TRAJ |
_RL xx, yy, xlo, xhi, ylo, yhi |