| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_set_uv.F |
184 |
EXF_SET_UV |
dx=0.5*(x3+x4-x1-x2) |
|
./pkg/exf/exf_set_uv.F |
185 |
EXF_SET_UV |
dx=dx*cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
187 |
EXF_SET_UV |
vvec1(i,j,bi,bj)=(tmp_u(i,j,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
188 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/sqrt(dx*dx+dy*dy) |
|
./pkg/exf/exf_set_uv.F |
189 |
EXF_SET_UV |
dx=0.5*(x2+x4-x1-x3) |
|
./pkg/exf/exf_set_uv.F |
190 |
EXF_SET_UV |
dx=dx*cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
192 |
EXF_SET_UV |
uvec1(i,j,bi,bj)=(tmp_u(i,j,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
193 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/sqrt(dx*dx+dy*dy) |
|
./pkg/exf/exf_set_uv.F |
275 |
EXF_SET_UV |
dx=0.5*(x3+x4-x1-x2) |
|
./pkg/exf/exf_set_uv.F |
276 |
EXF_SET_UV |
dx=dx*cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
278 |
EXF_SET_UV |
vvec1(i,j,bi,bj)=(tmp_u(i,j,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
279 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/sqrt(dx*dx+dy*dy) |
|
./pkg/exf/exf_set_uv.F |
280 |
EXF_SET_UV |
dx=0.5*(x2+x4-x1-x3) |
|
./pkg/exf/exf_set_uv.F |
281 |
EXF_SET_UV |
dx=dx*cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
283 |
EXF_SET_UV |
uvec1(i,j,bi,bj)=(tmp_u(i,j,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
284 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/sqrt(dx*dx+dy*dy) |
|
./pkg/exf/exf_set_uv.F |
89 |
EXF_SET_UV |
_RL fac, x1, x2, x3, x4, y1, y2, y3, y4, dx, dy |