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 |
306 |
EXF_SET_UV |
dy=0.5*(y3+y4-y1-y2) |
./pkg/exf/exf_set_uv.F |
309 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/ |
./pkg/exf/exf_set_uv.F |
310 |
EXF_SET_UV |
& SQRT(dx*dx+dy*dy) |
./pkg/exf/exf_set_uv.F |
314 |
EXF_SET_UV |
dy=0.5*(y2+y4-y1-y3) |
./pkg/exf/exf_set_uv.F |
317 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/ |
./pkg/exf/exf_set_uv.F |
318 |
EXF_SET_UV |
& SQRT(dx*dx+dy*dy) |
./pkg/exf/exf_set_uv.F |
467 |
EXF_SET_UV |
dy=0.5*(y3+y4-y1-y2) |
./pkg/exf/exf_set_uv.F |
470 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/ |
./pkg/exf/exf_set_uv.F |
471 |
EXF_SET_UV |
& SQRT(dx*dx+dy*dy) |
./pkg/exf/exf_set_uv.F |
475 |
EXF_SET_UV |
dy=0.5*(y2+y4-y1-y3) |
./pkg/exf/exf_set_uv.F |
478 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/ |
./pkg/exf/exf_set_uv.F |
479 |
EXF_SET_UV |
& SQRT(dx*dx+dy*dy) |
./pkg/runclock/runclock_gettime.F |
25 |
RUNCLOCK_GETTIME |
INTEGER yr,mo,dy,hr,mi,sc |
./pkg/runclock/runclock_gettime.F |
54 |
RUNCLOCK_GETTIME |
dy=DAT_VALS(3) |
./pkg/runclock/runclock_gettime.F |
57 |
RUNCLOCK_GETTIME |
tins=(((((yr-05)*12+mo)*30.+dy)*24.+hr)*60.+mi)*60.+sc+0.001*ms |
./pkg/runclock/runclock_gettime.F |
67 |
RUNCLOCK_GETTIME |
dy=mod(tm,30) |
./pkg/runclock/runclock_gettime.F |
68 |
RUNCLOCK_GETTIME |
tm=(tm-dy)/30 |
./pkg/runclock/runclock_gettime.F |
9 |
RUNCLOCK_GETTIME |
SUBROUTINE RUNCLOCK_GETTIME( yr,mo,dy,hr,mi,sc,tins ) |
./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) |