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 |
303 |
EXF_SET_UV |
dx=0.5*(x3+x4-x1-x2) |
./pkg/exf/exf_set_uv.F |
304 |
EXF_SET_UV |
dx=dx* |
./pkg/exf/exf_set_uv.F |
308 |
EXF_SET_UV |
& (tmp_u(i,j,bi,bj)*dx+ |
./pkg/exf/exf_set_uv.F |
310 |
EXF_SET_UV |
& SQRT(dx*dx+dy*dy) |
./pkg/exf/exf_set_uv.F |
311 |
EXF_SET_UV |
dx=0.5*(x2+x4-x1-x3) |
./pkg/exf/exf_set_uv.F |
312 |
EXF_SET_UV |
dx=dx* |
./pkg/exf/exf_set_uv.F |
316 |
EXF_SET_UV |
& (tmp_u(i,j,bi,bj)*dx+ |
./pkg/exf/exf_set_uv.F |
318 |
EXF_SET_UV |
& SQRT(dx*dx+dy*dy) |
./pkg/exf/exf_set_uv.F |
464 |
EXF_SET_UV |
dx=0.5*(x3+x4-x1-x2) |
./pkg/exf/exf_set_uv.F |
465 |
EXF_SET_UV |
dx=dx* |
./pkg/exf/exf_set_uv.F |
469 |
EXF_SET_UV |
& (tmp_u(i,j,bi,bj)*dx+ |
./pkg/exf/exf_set_uv.F |
471 |
EXF_SET_UV |
& SQRT(dx*dx+dy*dy) |
./pkg/exf/exf_set_uv.F |
472 |
EXF_SET_UV |
dx=0.5*(x2+x4-x1-x3) |
./pkg/exf/exf_set_uv.F |
473 |
EXF_SET_UV |
dx=dx* |
./pkg/exf/exf_set_uv.F |
477 |
EXF_SET_UV |
& (tmp_u(i,j,bi,bj)*dx+ |
./pkg/exf/exf_set_uv.F |
479 |
EXF_SET_UV |
& SQRT(dx*dx+dy*dy) |
./pkg/seaice/seaice_fgmres.F |
616 |
SEAICE_SCALPROD |
subroutine SEAICE_SCALPROD(n,im,i1,i2,dx,dy,t,myThid) |
./pkg/seaice/seaice_fgmres.F |
630 |
SEAICE_SCALPROD |
_RL dx(n,im,nSx,nSy),dy(n,im,nSx,nSy) |
./pkg/seaice/seaice_fgmres.F |
648 |
SEAICE_SCALPROD |
dtemp(bi,bj) = dtemp(bi,bj) + dx(i,i1,bi,bj)*dy(i,i2,bi,bj) |
./pkg/seaice/seaice_fgmres.F |
657 |
SEAICE_SCALPROD |
& dx(i, i1,bi,bj)*dy(i, i2,bi,bj) |
./pkg/seaice/seaice_fgmres.F |
659 |
SEAICE_SCALPROD |
& dx(i + 1,i1,bi,bj)*dy(i + 1,i2,bi,bj) |
./pkg/seaice/seaice_fgmres.F |
661 |
SEAICE_SCALPROD |
& dx(i + 2,i1,bi,bj)*dy(i + 2,i2,bi,bj) |
./pkg/seaice/seaice_fgmres.F |
663 |
SEAICE_SCALPROD |
& dx(i + 3,i1,bi,bj)*dy(i + 3,i2,bi,bj) |
./pkg/seaice/seaice_fgmres.F |
665 |
SEAICE_SCALPROD |
& dx(i + 4,i1,bi,bj)*dy(i + 4,i2,bi,bj) |