| 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 |
2528 |
TABLUP |
x2=(spre(i,j,k2)-spre(i,j,k1))/x1 |
|
./pkg/fizhi/fizhi_lwrad.F |
2532 |
TABLUP |
pe=(log10(x2)-p1)/dpe |
|
./pkg/fizhi/fizhi_swrad.F |
2523 |
FLXCO2 |
_RL xx,clog1,wlog,dc,dw,x1,x2,y2 |
|
./pkg/fizhi/fizhi_swrad.F |
2551 |
FLXCO2 |
x2=cah(ic-1,iw-1)+(cah(ic-1,iw)-cah(ic-1,iw-1))*xx*dw |
|
./pkg/fizhi/fizhi_swrad.F |
2552 |
FLXCO2 |
y2=x2+(cah(ic,iw-1)-cah(ic-1,iw-1))*xx*dc |
|
./pkg/fizhi/fizhi_utils.F |
31 |
NO PROCEDURE |
_RL aa1,aa2,aa3,aa4,aa5,pp,x2,x3,x4,x5 |
|
./model/src/port_rand.F |
153 |
PORT_RANARR |
real*8 x1, x2, xs, t |
|
./model/src/port_rand.F |
167 |
PORT_RANARR |
x2=2.0*port_rand(seed)-1.0 |
|
./model/src/port_rand.F |
168 |
PORT_RANARR |
xs=x1**2+x2**2 |
|
./pkg/ctrl/adctrl_bound.F |
117 |
ADCTRL_BOUND_2D |
_RL x0,x0p5,l0p5,x1,x2,x2p5,l2p5,x3 |
|
./pkg/ctrl/adctrl_bound.F |
132 |
ADCTRL_BOUND_2D |
x2=boundsVec(3) |
|
./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 |
142 |
ADCTRL_BOUND_2D |
if ( (x0.LT.x1).AND.(x1.LT.x2).AND.(x2.LT.x3) ) then |
|
./pkg/ctrl/adctrl_bound.F |
151 |
ADCTRL_BOUND_2D |
IF ( (xCur.gt.x2).AND.(adxCur.LT.0) ) then |
|
./pkg/ctrl/adctrl_bound.F |
33 |
ADCTRL_BOUND_3D |
_RL x0,x0p5,l0p5,x1,x2,x2p5,l2p5,x3 |
|
./pkg/ctrl/adctrl_bound.F |
46 |
ADCTRL_BOUND_3D |
x2=boundsVec(3) |
|
./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 |
56 |
ADCTRL_BOUND_3D |
if ( (x0.LT.x1).AND.(x1.LT.x2).AND.(x2.LT.x3) ) then |
|
./pkg/ctrl/adctrl_bound.F |
66 |
ADCTRL_BOUND_3D |
IF ( (xCur.gt.x2).AND.(adxCur.LT.0) ) then |
|
./pkg/dic/carbon_chem.F |
102 |
CALC_PCO2 |
_RL x2 |
|
./pkg/dic/carbon_chem.F |
173 |
CALC_PCO2 |
x2=x*x |
|
./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 |
181 |
CALC_PCO2 |
da = 3.0*x2 + 2.0*k1plocal*x + k12p |
|
./pkg/dic/carbon_chem.F |
182 |
CALC_PCO2 |
b = x2 + k1local*x + k12 |
|
./pkg/dic/carbon_chem.F |
209 |
CALC_PCO2 |
& kwlocal/x2 + |
|
./pkg/dic/carbon_chem.F |
214 |
CALC_PCO2 |
& stlocal*(1.0 + kslocal/x/c)**(-2.0)*(kslocal/c/x2) + |
|
./pkg/dic/carbon_chem.F |
215 |
CALC_PCO2 |
& ftlocal*(1.0 + kflocal/x)**(-2.)*kflocal/x2 - |
|
./pkg/dic/carbon_chem.F |
216 |
CALC_PCO2 |
& pt*x2*(3.0*a-x*da)/a2 |
|
./pkg/dic/carbon_chem.F |
245 |
CALC_PCO2 |
x2=x*x |
|
./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 |
253 |
CALC_PCO2 |
da = 3.0*x2 + 2.0*k1plocal*x + k12p |
|
./pkg/dic/carbon_chem.F |
254 |
CALC_PCO2 |
b = x2 + k1local*x + k12 |
|
./pkg/exf/exf_set_uv.F |
151 |
EXF_SET_UV |
x2=xG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
154 |
EXF_SET_UV |
if ((x2-x1).gt.180) x2=x2-360 |
|
./pkg/exf/exf_set_uv.F |
155 |
EXF_SET_UV |
if ((x1-x2).gt.180) x2=x2+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 |
231 |
EXF_SET_UV |
x2=xG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
234 |
EXF_SET_UV |
if ((x2-x1).gt.180) x2=x2-360 |
|
./pkg/exf/exf_set_uv.F |
235 |
EXF_SET_UV |
if ((x1-x2).gt.180) x2=x2+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 |