| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_set_uv.F |
186 |
EXF_SET_UV |
dy=0.5*(y3+y4-y1-y2) |
|
./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 |
191 |
EXF_SET_UV |
dy=0.5*(y2+y4-y1-y3) |
|
./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 |
277 |
EXF_SET_UV |
dy=0.5*(y3+y4-y1-y2) |
|
./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 |
282 |
EXF_SET_UV |
dy=0.5*(y2+y4-y1-y3) |
|
./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 |
|
./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 ) |