| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_xbt.F |
60 |
COST_XBT |
_RL www (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_drifter.F |
73 |
COST_DRIFTER |
_RL www (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/ecco/cost_argo_theta.F |
60 |
COST_ARGO_THETA |
_RL www (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_argo_salt.F |
60 |
COST_ARGO_SALT |
_RL www (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_ctdt.F |
177 |
COST_CTDT |
www(i,j) = cosphi(i,j,bi,bj)*cmask(i,j) |
|
./pkg/ecco/cost_ctdt.F |
184 |
COST_CTDT |
& (wtmp(i,j)*www(i,j))* |
|
./pkg/ecco/cost_ctdt.F |
187 |
COST_CTDT |
if ( wtmp(i,j)*www(i,j) .ne. 0. ) |
|
./pkg/ecco/cost_ctdt.F |
60 |
COST_CTDT |
_RL www (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_ctds.F |
174 |
COST_CTDS |
www(i,j) = cosphi(i,j,bi,bj)*cmask(i,j) |
|
./pkg/ecco/cost_ctds.F |
180 |
COST_CTDS |
& (wtmp(i,j)*www(i,j))* |
|
./pkg/ecco/cost_ctds.F |
183 |
COST_CTDS |
if ( wtmp(i,j)*www(i,j) .ne. 0. ) |
|
./pkg/ecco/cost_ctds.F |
59 |
COST_CTDS |
_RL www (1-olx:snx+olx,1-oly:sny+oly) |