| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_set_uv.F |
120 |
EXF_SET_UV |
_RL x1, x2, x3, x4, y1, y2, y3, y4, dx, dy |
|
./pkg/exf/exf_set_uv.F |
289 |
EXF_SET_UV |
x1=xG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
293 |
EXF_SET_UV |
IF ((x2-x1).GT.180) x2=x2-360 |
|
./pkg/exf/exf_set_uv.F |
294 |
EXF_SET_UV |
IF ((x1-x2).GT.180) x2=x2+360 |
|
./pkg/exf/exf_set_uv.F |
295 |
EXF_SET_UV |
IF ((x3-x1).GT.180) x3=x3-360 |
|
./pkg/exf/exf_set_uv.F |
296 |
EXF_SET_UV |
IF ((x1-x3).GT.180) x3=x3+360 |
|
./pkg/exf/exf_set_uv.F |
297 |
EXF_SET_UV |
IF ((x4-x1).GT.180) x4=x4-360 |
|
./pkg/exf/exf_set_uv.F |
298 |
EXF_SET_UV |
IF ((x1-x4).GT.180) x4=x4+360 |
|
./pkg/exf/exf_set_uv.F |
303 |
EXF_SET_UV |
dx=0.5*(x3+x4-x1-x2) |
|
./pkg/exf/exf_set_uv.F |
311 |
EXF_SET_UV |
dx=0.5*(x2+x4-x1-x3) |
|
./pkg/exf/exf_set_uv.F |
450 |
EXF_SET_UV |
x1=xG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
454 |
EXF_SET_UV |
IF ((x2-x1).GT.180) x2=x2-360 |
|
./pkg/exf/exf_set_uv.F |
455 |
EXF_SET_UV |
IF ((x1-x2).GT.180) x2=x2+360 |
|
./pkg/exf/exf_set_uv.F |
456 |
EXF_SET_UV |
IF ((x3-x1).GT.180) x3=x3-360 |
|
./pkg/exf/exf_set_uv.F |
457 |
EXF_SET_UV |
IF ((x1-x3).GT.180) x3=x3+360 |
|
./pkg/exf/exf_set_uv.F |
458 |
EXF_SET_UV |
IF ((x4-x1).GT.180) x4=x4-360 |
|
./pkg/exf/exf_set_uv.F |
459 |
EXF_SET_UV |
IF ((x1-x4).GT.180) x4=x4+360 |
|
./pkg/exf/exf_set_uv.F |
464 |
EXF_SET_UV |
dx=0.5*(x3+x4-x1-x2) |
|
./pkg/exf/exf_set_uv.F |
472 |
EXF_SET_UV |
dx=0.5*(x2+x4-x1-x3) |
|
./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 |
167 |
PORT_RANARR |
x1=2.0*port_rand(seed)-1.0 |
|
./model/src/port_rand.F |
169 |
PORT_RANARR |
xs=x1**2+x2**2 |
|
./model/src/port_rand.F |
173 |
PORT_RANARR |
port_rand_norm = t*x1 |
|
./pkg/ctrl/adctrl_bound.F |
133 |
ADCTRL_BOUND_2D |
_RL x0,x0p5,l0p5,x1,x2,x2p5,l2p5,x3 |
|
./pkg/ctrl/adctrl_bound.F |
138 |
ADCTRL_BOUND_2D |
x1=boundsVec(2) |
|
./pkg/ctrl/adctrl_bound.F |
139 |
ADCTRL_BOUND_2D |
x0p5=(x0+x1)/2.0 |
|
./pkg/ctrl/adctrl_bound.F |
140 |
ADCTRL_BOUND_2D |
l0p5=(x1-x0)/2.0 |
|
./pkg/ctrl/adctrl_bound.F |
151 |
ADCTRL_BOUND_2D |
IF ( (x0.LT.x1).AND.(x1.LT.x2).AND.(x2.LT.x3) ) THEN |
|
./pkg/ctrl/adctrl_bound.F |
166 |
ADCTRL_BOUND_2D |
IF ( (xCur.LT.x1).AND.(adxCur.GT.0.) ) THEN |
|
./pkg/ctrl/adctrl_bound.F |
43 |
ADCTRL_BOUND_3D |
_RL x0,x0p5,l0p5,x1,x2,x2p5,l2p5,x3 |
|
./pkg/ctrl/adctrl_bound.F |
48 |
ADCTRL_BOUND_3D |
x1=boundsVec(2) |
|
./pkg/ctrl/adctrl_bound.F |
49 |
ADCTRL_BOUND_3D |
x0p5=(x0+x1)/2.0 |
|
./pkg/ctrl/adctrl_bound.F |
50 |
ADCTRL_BOUND_3D |
l0p5=(x1-x0)/2.0 |
|
./pkg/ctrl/adctrl_bound.F |
61 |
ADCTRL_BOUND_3D |
IF ( (x0.LT.x1).AND.(x1.LT.x2).AND.(x2.LT.x3) ) THEN |
|
./pkg/ctrl/adctrl_bound.F |
77 |
ADCTRL_BOUND_3D |
IF ( (xCur.LT.x1).AND.(adxCur.GT.0.) ) THEN |