| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_runga2.F |
121 |
FLT_RUNGA2 |
call FLT_TRILINEAR(xx,yy,zz,vv,vVel,3,bi,bj) |
|
./pkg/flt/flt_runga2.F |
127 |
FLT_RUNGA2 |
call FLT_BILINEAR(xx,yy,vv,kp,vVel,3,bi,bj) |
|
./pkg/flt/flt_runga2.F |
137 |
FLT_RUNGA2 |
vv = vv + vv*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga2.F |
152 |
FLT_RUNGA2 |
yt=yy+0.5*deltaTmom*vv*scaley |
|
./pkg/flt/flt_runga2.F |
50 |
FLT_RUNGA2 |
_RL phi, uu, vv, u1, v1 |
|
./pkg/flt/flt_up.F |
176 |
FLT_UP |
call FLT_BILINEAR (xx,yy,vv,k,vVel, 3,bi,bj) |
|
./pkg/flt/flt_up.F |
180 |
FLT_UP |
tmp(6+1*Nr+k) = vv |
|
./pkg/flt/flt_up.F |
48 |
FLT_UP |
_RL uu,vv,tt,ss, pp |
|
./pkg/flt/flt_traj.F |
138 |
FLT_TRAJ |
call FLT_BILINEAR (xx,yy,vv,kp,vVel, 3,bi,bj) |
|
./pkg/flt/flt_traj.F |
144 |
FLT_TRAJ |
tmp(7) = vv |
|
./pkg/flt/flt_traj.F |
46 |
FLT_TRAJ |
_RL uu,vv,ww,tt,ss, pp |
|
./optim/optim_readdata.F |
306 |
OPTIM_READDATA |
vv(icvoffset+icvcomp) = cbuff(icvcomp) |
|
./optim/optim_readdata.F |
51 |
OPTIM_READDATA |
_RL vv(nn) |
|
./optim/optim_readdata.F |
53 |
OPTIM_READDATA |
_RL vv |
|
./optim/optim_readdata.F |
54 |
OPTIM_READDATA |
pointer (pvv,vv(1)) |
|
./optim/optim_readdata.F |
58 |
OPTIM_READDATA |
_RL vv(nmax) |
|
./optim/optim_readdata.F |
7 |
OPTIM_READDATA |
O vv |
|
./optim/optim_numbmod.F |
100 |
OPTIM_NUMBMOD |
_RL vv(nmax) |
|
./optim/optim_numbmod.F |
241 |
OPTIM_NUMBMOD |
call OPTIM_READDATA ( nn, ctrlname, lheaderonly, ff, vv) |
|
./optim/optim_numbmod.F |
93 |
OPTIM_NUMBMOD |
_RL vv(nn) |
|
./optim/optim_numbmod.F |
95 |
OPTIM_NUMBMOD |
_RL vv |
|
./optim/optim_numbmod.F |
96 |
OPTIM_NUMBMOD |
pointer (pvv,vv(1)) |
|
./optim/optim_writedata.F |
230 |
OPTIM_WRITEDATA |
cbuff(icvcomp) = vv(icvoffset + icvcomp) |
|
./optim/optim_writedata.F |
46 |
OPTIM_WRITEDATA |
_RL vv(nn) |
|
./optim/optim_writedata.F |
7 |
OPTIM_WRITEDATA |
I vv |