| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_set_uv.F |
181 |
EXF_SET_UV |
x1=xG(i-offset,j-offset,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
185 |
EXF_SET_UV |
if ((x2-x1).gt.180) x2=x2-360 |
|
./pkg/exf/exf_set_uv.F |
186 |
EXF_SET_UV |
if ((x1-x2).gt.180) x2=x2+360 |
|
./pkg/exf/exf_set_uv.F |
187 |
EXF_SET_UV |
if ((x3-x1).gt.180) x3=x3-360 |
|
./pkg/exf/exf_set_uv.F |
188 |
EXF_SET_UV |
if ((x1-x3).gt.180) x3=x3+360 |
|
./pkg/exf/exf_set_uv.F |
189 |
EXF_SET_UV |
if ((x4-x1).gt.180) x4=x4-360 |
|
./pkg/exf/exf_set_uv.F |
190 |
EXF_SET_UV |
if ((x1-x4).gt.180) x4=x4+360 |
|
./pkg/exf/exf_set_uv.F |
195 |
EXF_SET_UV |
dx=0.5*(x3+x4-x1-x2) |
|
./pkg/exf/exf_set_uv.F |
203 |
EXF_SET_UV |
dx=0.5*(x2+x4-x1-x3) |
|
./pkg/exf/exf_set_uv.F |
285 |
EXF_SET_UV |
x1=xG(i-offset,j-offset,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
289 |
EXF_SET_UV |
if ((x2-x1).gt.180) x2=x2-360 |
|
./pkg/exf/exf_set_uv.F |
290 |
EXF_SET_UV |
if ((x1-x2).gt.180) x2=x2+360 |
|
./pkg/exf/exf_set_uv.F |
291 |
EXF_SET_UV |
if ((x3-x1).gt.180) x3=x3-360 |
|
./pkg/exf/exf_set_uv.F |
292 |
EXF_SET_UV |
if ((x1-x3).gt.180) x3=x3+360 |
|
./pkg/exf/exf_set_uv.F |
293 |
EXF_SET_UV |
if ((x4-x1).gt.180) x4=x4-360 |
|
./pkg/exf/exf_set_uv.F |
294 |
EXF_SET_UV |
if ((x1-x4).gt.180) x4=x4+360 |
|
./pkg/exf/exf_set_uv.F |
299 |
EXF_SET_UV |
dx=0.5*(x3+x4-x1-x2) |
|
./pkg/exf/exf_set_uv.F |
307 |
EXF_SET_UV |
dx=0.5*(x2+x4-x1-x3) |
|
./pkg/exf/exf_set_uv.F |
93 |
EXF_SET_UV |
_RL fac, x1, x2, x3, x4, y1, y2, y3, y4, dx, dy |
|
./pkg/dic/carbon_chem.F |
672 |
CARBON_COEFFS |
_RL x1 |
|
./pkg/dic/carbon_chem.F |
904 |
CARBON_COEFFS_PRESSURE_DEP |
_RL x1 |
|
./pkg/dic/carbon_chem.F |
97 |
CALC_PCO2 |
_RL x1 |
|
./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 |
2515 |
FLXCO2 |
_RL xx,clog1,wlog,dc,dw,x1,x2,y2 |
|
./pkg/fizhi/fizhi_swrad.F |
2542 |
FLXCO2 |
x1=cah(1,iw-1)+(cah(1,iw)-cah(1,iw-1))*xx*dw |
|
./pkg/fizhi/fizhi_swrad.F |
2545 |
FLXCO2 |
if (x1.lt.y2) x1=y2 |
|
./pkg/fizhi/fizhi_swrad.F |
2546 |
FLXCO2 |
df(i,j,k)=df(i,j,k)+0.0343*(x1-y2) |
|
./model/src/port_rand.F |
134 |
PORT_RANARR |
real*8 x1, x2, xs, t |
|
./model/src/port_rand.F |
148 |
PORT_RANARR |
x1=2.0*port_rand(seed)-1.0 |
|
./model/src/port_rand.F |
150 |
PORT_RANARR |
xs=x1**2+x2**2 |
|
./model/src/port_rand.F |
158 |
PORT_RANARR |
port_rand_norm = t*x1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2515 |
FLXCO2 |
_RL xx,clog1,wlog,dc,dw,x1,x2,y2 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2542 |
FLXCO2 |
x1=cah(1,iw-1)+(cah(1,iw)-cah(1,iw-1))*xx*dw |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2545 |
FLXCO2 |
if (x1.lt.y2) x1=y2 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2546 |
FLXCO2 |
df(i,j,k)=df(i,j,k)+0.0343*(x1-y2) |