| File |
Line number |
Procedure |
Code |
|
./pkg/dic/carbon_chem.F |
117 |
CALC_PCO2 |
_RL xhi |
|
./pkg/dic/carbon_chem.F |
154 |
CALC_PCO2 |
xhi = 10.0**(-phlo) |
|
./pkg/dic/carbon_chem.F |
155 |
CALC_PCO2 |
xmid = (xlo + xhi)*0.5 |
|
./pkg/dic/carbon_chem.F |
243 |
CALC_PCO2 |
if(hstep .eq. 1)x = xhi |
|
./pkg/dic/carbon_chem.F |
280 |
CALC_PCO2 |
xhi = xmid |
|
./pkg/dic/carbon_chem.F |
284 |
CALC_PCO2 |
xmid = (xlo + xhi)*0.5 |
|
./pkg/flt/flt_init.F |
221 |
FLT_INIT |
xhi = xc(sNx,1,bi,bj) + delX(iG+sNx-1)*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 |
49 |
FLT_EXCHG |
_RL xlo, xhi, ylo, yhi |
|
./pkg/flt/flt_exchg.F |
86 |
FLT_EXCHG |
xhi = xc(sNx,1,bi,bj) + delX(iG+sNx-1) |
|
./pkg/flt/flt_exchg.F |
90 |
FLT_EXCHG |
if (xpart(ip,bi,bj) .ge. xhi) then |
|
./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 |
46 |
NO PROCEDURE |
xhi = xc(i+1,1,bi,bj) |
|
./pkg/flt/flt_functions.F |
47 |
NO PROCEDURE |
if (i.eq.sNx) xhi = xc(i,1,bi,bj)+delX(iG+i-1) |
|
./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 |
51 |
NO PROCEDURE |
fp = (xhi - rG) / dist |
|
./pkg/flt/flt_traj.F |
45 |
FLT_TRAJ |
_RL xx, yy, xlo, xhi, ylo, yhi |