| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
2517 |
TABLUP |
_RL x1,x2,x3,we,pe,fw,fp,pa,pb,pc,ax,ba,bb,t1,ca,cb,t2 |
|
./pkg/fizhi/fizhi_lwrad.F |
2529 |
TABLUP |
x3=(stem(i,j,k2)-stem(i,j,k1))/x1 |
|
./pkg/fizhi/fizhi_lwrad.F |
2571 |
TABLUP |
tran(i,j)= (ax + (t1+t2*x3) * x3)*tran(i,j) |
|
./pkg/fizhi/fizhi_utils.F |
31 |
NO PROCEDURE |
_RL aa1,aa2,aa3,aa4,aa5,pp,x2,x3,x4,x5 |
|
./pkg/ctrl/adctrl_bound.F |
117 |
ADCTRL_BOUND_2D |
_RL x0,x0p5,l0p5,x1,x2,x2p5,l2p5,x3 |
|
./pkg/ctrl/adctrl_bound.F |
133 |
ADCTRL_BOUND_2D |
x3=boundsVec(4) |
|
./pkg/ctrl/adctrl_bound.F |
134 |
ADCTRL_BOUND_2D |
x2p5=(x2+x3)/2.0 |
|
./pkg/ctrl/adctrl_bound.F |
135 |
ADCTRL_BOUND_2D |
l2p5=(x3-x2)/2.0 |
|
./pkg/ctrl/adctrl_bound.F |
141 |
ADCTRL_BOUND_2D |
if ( x0.LT.x3 ) then |
|
./pkg/ctrl/adctrl_bound.F |
142 |
ADCTRL_BOUND_2D |
if ( (x0.LT.x1).AND.(x1.LT.x2).AND.(x2.LT.x3) ) then |
|
./pkg/ctrl/adctrl_bound.F |
33 |
ADCTRL_BOUND_3D |
_RL x0,x0p5,l0p5,x1,x2,x2p5,l2p5,x3 |
|
./pkg/ctrl/adctrl_bound.F |
47 |
ADCTRL_BOUND_3D |
x3=boundsVec(4) |
|
./pkg/ctrl/adctrl_bound.F |
48 |
ADCTRL_BOUND_3D |
x2p5=(x2+x3)/2.0 |
|
./pkg/ctrl/adctrl_bound.F |
49 |
ADCTRL_BOUND_3D |
l2p5=(x3-x2)/2.0 |
|
./pkg/ctrl/adctrl_bound.F |
55 |
ADCTRL_BOUND_3D |
if ( x0.LT.x3 ) then |
|
./pkg/ctrl/adctrl_bound.F |
56 |
ADCTRL_BOUND_3D |
if ( (x0.LT.x1).AND.(x1.LT.x2).AND.(x2.LT.x3) ) then |
|
./pkg/dic/carbon_chem.F |
103 |
CALC_PCO2 |
_RL x3 |
|
./pkg/dic/carbon_chem.F |
174 |
CALC_PCO2 |
x3=x2*x |
|
./pkg/dic/carbon_chem.F |
179 |
CALC_PCO2 |
a = x3 + k1plocal*x2 + k12p*x + k123p |
|
./pkg/dic/carbon_chem.F |
199 |
CALC_PCO2 |
& pt*x3/a - |
|
./pkg/dic/carbon_chem.F |
246 |
CALC_PCO2 |
x3=x2*x |
|
./pkg/dic/carbon_chem.F |
251 |
CALC_PCO2 |
a = x3 + k1plocal*x2 + k12p*x + k123p |
|
./pkg/dic/carbon_chem.F |
268 |
CALC_PCO2 |
& pt*x3/a - |
|
./pkg/exf/exf_set_uv.F |
152 |
EXF_SET_UV |
x3=xG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
156 |
EXF_SET_UV |
if ((x3-x1).gt.180) x3=x3-360 |
|
./pkg/exf/exf_set_uv.F |
157 |
EXF_SET_UV |
if ((x1-x3).gt.180) x3=x3+360 |
|
./pkg/exf/exf_set_uv.F |
164 |
EXF_SET_UV |
dx=0.5*(x3+x4-x1-x2) |
|
./pkg/exf/exf_set_uv.F |
172 |
EXF_SET_UV |
dx=0.5*(x2+x4-x1-x3) |
|
./pkg/exf/exf_set_uv.F |
232 |
EXF_SET_UV |
x3=xG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
236 |
EXF_SET_UV |
if ((x3-x1).gt.180) x3=x3-360 |
|
./pkg/exf/exf_set_uv.F |
237 |
EXF_SET_UV |
if ((x1-x3).gt.180) x3=x3+360 |
|
./pkg/exf/exf_set_uv.F |
244 |
EXF_SET_UV |
dx=0.5*(x3+x4-x1-x2) |
|
./pkg/exf/exf_set_uv.F |
252 |
EXF_SET_UV |
dx=0.5*(x2+x4-x1-x3) |
|
./pkg/exf/exf_set_uv.F |
89 |
EXF_SET_UV |
_RL fac, x1, x2, x3, x4, y1, y2, y3, y4, dx, dy |