| 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 |
2527 |
TABLUP |
x1=sabs(i,j,k2)-sabs(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2528 |
TABLUP |
x2=(spre(i,j,k2)-spre(i,j,k1))/x1 |
|
./pkg/fizhi/fizhi_lwrad.F |
2529 |
TABLUP |
x3=(stem(i,j,k2)-stem(i,j,k1))/x1 |
|
./pkg/fizhi/fizhi_lwrad.F |
2531 |
TABLUP |
we=(log10(x1)-w1)/dwe |
|
./pkg/fizhi/fizhi_swrad.F |
2523 |
FLXCO2 |
_RL xx,clog1,wlog,dc,dw,x1,x2,y2 |
|
./pkg/fizhi/fizhi_swrad.F |
2550 |
FLXCO2 |
x1=cah(1,iw-1)+(cah(1,iw)-cah(1,iw-1))*xx*dw |
|
./pkg/fizhi/fizhi_swrad.F |
2553 |
FLXCO2 |
if (x1.lt.y2) x1=y2 |
|
./pkg/fizhi/fizhi_swrad.F |
2554 |
FLXCO2 |
df(i,j,k)=df(i,j,k)+0.0343*(x1-y2) |
|
./model/src/port_rand.F |
153 |
PORT_RANARR |
real*8 x1, x2, xs, t |
|
./model/src/port_rand.F |
166 |
PORT_RANARR |
x1=2.0*port_rand(seed)-1.0 |
|
./model/src/port_rand.F |
168 |
PORT_RANARR |
xs=x1**2+x2**2 |
|
./model/src/port_rand.F |
176 |
PORT_RANARR |
port_rand_norm = t*x1 |
|
./pkg/ctrl/adctrl_bound.F |
117 |
ADCTRL_BOUND_2D |
_RL x0,x0p5,l0p5,x1,x2,x2p5,l2p5,x3 |
|
./pkg/ctrl/adctrl_bound.F |
129 |
ADCTRL_BOUND_2D |
x1=boundsVec(2) |
|
./pkg/ctrl/adctrl_bound.F |
130 |
ADCTRL_BOUND_2D |
x0p5=(x0+x1)/2.0 |
|
./pkg/ctrl/adctrl_bound.F |
131 |
ADCTRL_BOUND_2D |
l0p5=(x1-x0)/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 |
156 |
ADCTRL_BOUND_2D |
IF ( (xCur.lt.x1).AND.(adxCur.GT.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 |
43 |
ADCTRL_BOUND_3D |
x1=boundsVec(2) |
|
./pkg/ctrl/adctrl_bound.F |
44 |
ADCTRL_BOUND_3D |
x0p5=(x0+x1)/2.0 |
|
./pkg/ctrl/adctrl_bound.F |
45 |
ADCTRL_BOUND_3D |
l0p5=(x1-x0)/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 |
71 |
ADCTRL_BOUND_3D |
IF ( (xCur.lt.x1).AND.(adxCur.GT.0) ) then |
|
./pkg/exf/exf_set_uv.F |
150 |
EXF_SET_UV |
x1=xG(i,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 |
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 |
158 |
EXF_SET_UV |
if ((x4-x1).gt.180) x4=x4-360 |
|
./pkg/exf/exf_set_uv.F |
159 |
EXF_SET_UV |
if ((x1-x4).gt.180) x4=x4+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 |
230 |
EXF_SET_UV |
x1=xG(i,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 |
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 |
238 |
EXF_SET_UV |
if ((x4-x1).gt.180) x4=x4-360 |
|
./pkg/exf/exf_set_uv.F |
239 |
EXF_SET_UV |
if ((x1-x4).gt.180) x4=x4+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 |