| 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/exf/exf_set_uv.F |
170 |
EXF_SET_UV |
x1=xG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
174 |
EXF_SET_UV |
if ((x2-x1).gt.180) x2=x2-360 |
|
./pkg/exf/exf_set_uv.F |
175 |
EXF_SET_UV |
if ((x1-x2).gt.180) x2=x2+360 |
|
./pkg/exf/exf_set_uv.F |
176 |
EXF_SET_UV |
if ((x3-x1).gt.180) x3=x3-360 |
|
./pkg/exf/exf_set_uv.F |
177 |
EXF_SET_UV |
if ((x1-x3).gt.180) x3=x3+360 |
|
./pkg/exf/exf_set_uv.F |
178 |
EXF_SET_UV |
if ((x4-x1).gt.180) x4=x4-360 |
|
./pkg/exf/exf_set_uv.F |
179 |
EXF_SET_UV |
if ((x1-x4).gt.180) x4=x4+360 |
|
./pkg/exf/exf_set_uv.F |
184 |
EXF_SET_UV |
dx=0.5*(x3+x4-x1-x2) |
|
./pkg/exf/exf_set_uv.F |
189 |
EXF_SET_UV |
dx=0.5*(x2+x4-x1-x3) |
|
./pkg/exf/exf_set_uv.F |
261 |
EXF_SET_UV |
x1=xG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
265 |
EXF_SET_UV |
if ((x2-x1).gt.180) x2=x2-360 |
|
./pkg/exf/exf_set_uv.F |
266 |
EXF_SET_UV |
if ((x1-x2).gt.180) x2=x2+360 |
|
./pkg/exf/exf_set_uv.F |
267 |
EXF_SET_UV |
if ((x3-x1).gt.180) x3=x3-360 |
|
./pkg/exf/exf_set_uv.F |
268 |
EXF_SET_UV |
if ((x1-x3).gt.180) x3=x3+360 |
|
./pkg/exf/exf_set_uv.F |
269 |
EXF_SET_UV |
if ((x4-x1).gt.180) x4=x4-360 |
|
./pkg/exf/exf_set_uv.F |
270 |
EXF_SET_UV |
if ((x1-x4).gt.180) x4=x4+360 |
|
./pkg/exf/exf_set_uv.F |
275 |
EXF_SET_UV |
dx=0.5*(x3+x4-x1-x2) |
|
./pkg/exf/exf_set_uv.F |
280 |
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 |