| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_runga2.F |
114 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,vv,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
121 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,vv,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
128 |
FLT_RUNGA2 |
vv = vv + vv*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga2.F |
143 |
FLT_RUNGA2 |
jty=jy+0.5*flt_deltaT*vv*scaley |
|
./pkg/flt/flt_runga2.F |
55 |
FLT_RUNGA2 |
_RL uu, vv, u1, v1 |
|
./pkg/flt/flt_traj.F |
138 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,vv,vVel, kp,2,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
144 |
FLT_TRAJ |
tmp(11) = vv |
|
./pkg/flt/flt_traj.F |
50 |
FLT_TRAJ |
_RL uu, vv, tt, ss, pp |
|
./pkg/flt/flt_up.F |
137 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,vv,vVel, k,2,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
141 |
FLT_UP |
tmp(9+k+1*Nr) = vv |
|
./pkg/flt/flt_up.F |
51 |
FLT_UP |
_RL uu,vv,tt,ss, pp |
|
./pkg/seaice/seaice_fgmres.F |
202 |
SEAICE_FGMRES |
U sol,i,its,vv,w,wk1,wk2, |
|
./pkg/seaice/seaice_fgmres.F |
240 |
SEAICE_FGMRES |
_RL vv(n,im+1,nSx,nSy), w(n,im,nSx,nSy) |
|
./pkg/seaice/seaice_fgmres.F |
378 |
SEAICE_FGMRES |
vv(j,1,bi,bj) = rhs(j,bi,bj) - wk2(j,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
383 |
SEAICE_FGMRES |
call SEAICE_SCALPROD(n, im+1, 1, 1, vv, vv, ro, myThid) |
|
./pkg/seaice/seaice_fgmres.F |
390 |
SEAICE_FGMRES |
vv(j,1,bi,bj) = vv(j,1,bi,bj)*t |
|
./pkg/seaice/seaice_fgmres.F |
417 |
SEAICE_FGMRES |
wk1(k,bi,bj) = vv(k,i,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
458 |
SEAICE_FGMRES |
vv(k,i1,bi,bj)=wk2(k,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
466 |
SEAICE_FGMRES |
call SEAICE_SCALPROD(n, im+1, j, i1, vv, vv, t, myThid) |
|
./pkg/seaice/seaice_fgmres.F |
471 |
SEAICE_FGMRES |
vv(k,i1,bi,bj) = vv(k,i1,bi,bj) - t*vv(k,j,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
476 |
SEAICE_FGMRES |
call SEAICE_SCALPROD(n, im+1, i1, i1, vv, vv, t, myThid) |
|
./pkg/seaice/seaice_fgmres.F |
484 |
SEAICE_FGMRES |
vv(k,i1,bi,bj) = vv(k,i1,bi,bj)*t |
|
./pkg/seaice/seaice_fgmres.F |
592 |
SEAICE_FGMRES |
vv(k,1,bi,bj) = vv(k,1,bi,bj) + t*vv(k,j,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
114 |
SEAICE_JFNK |
_RL vv(nVec,im+1,nSx,nSy), w(nVec,im,nSx,nSy) |
|
./pkg/seaice/seaice_jfnk.F |
263 |
SEAICE_JFNK |
U vv,w,wk1,wk2, |
|
./pkg/seaice/seaice_krylov.F |
106 |
SEAICE_KRYLOV |
_RL vv(nVec,im+1,nSx,nSy), w(nVec,im,nSx,nSy) |
|
./pkg/seaice/seaice_krylov.F |
324 |
SEAICE_KRYLOV |
U vv,w,wk1,wk2, |
|
./optim/optim_numbmod.F |
100 |
OPTIM_NUMBMOD |
_RL vv |
|
./optim/optim_numbmod.F |
101 |
OPTIM_NUMBMOD |
pointer (pvv,vv(1)) |
|
./optim/optim_numbmod.F |
105 |
OPTIM_NUMBMOD |
_RL vv(nmax) |
|
./optim/optim_numbmod.F |
261 |
OPTIM_NUMBMOD |
call OPTIM_READDATA ( nn, ctrlname, lheaderonly, ff, vv) |
|
./optim/optim_numbmod.F |
98 |
OPTIM_NUMBMOD |
_RL vv(nn) |
|
./optim/optim_readdata.F |
15 |
OPTIM_READDATA |
O vv |
|
./optim/optim_readdata.F |
359 |
OPTIM_READDATA |
vv(icvoffset+icvcomp) = cbuff(icvcomp) |
|
./optim/optim_readdata.F |
54 |
OPTIM_READDATA |
_RL vv(nn) |
|
./optim/optim_readdata.F |
56 |
OPTIM_READDATA |
_RL vv |
|
./optim/optim_readdata.F |
57 |
OPTIM_READDATA |
pointer (pvv,vv(1)) |
|
./optim/optim_readdata.F |
61 |
OPTIM_READDATA |
_RL vv(nmax) |
|
./optim/optim_writedata.F |
15 |
OPTIM_WRITEDATA |
I vv |
|
./optim/optim_writedata.F |
240 |
OPTIM_WRITEDATA |
cbuff(icvcomp) = vv(icvoffset + icvcomp) |
|
./optim/optim_writedata.F |
49 |
OPTIM_WRITEDATA |
_RL vv(nn) |