| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_argo_salt.F |
61 |
COST_ARGO_SALT |
_RL www (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_argo_theta.F |
61 |
COST_ARGO_THETA |
_RL www (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_ctds.F |
166 |
COST_CTDS |
www(i,j) = cosphi(i,j,bi,bj)*cmask(i,j) |
|
./pkg/ecco/cost_ctds.F |
172 |
COST_CTDS |
& (wtmp(i,j)*www(i,j))* |
|
./pkg/ecco/cost_ctds.F |
175 |
COST_CTDS |
if ( wtmp(i,j)*www(i,j) .ne. 0. ) |
|
./pkg/ecco/cost_ctds.F |
60 |
COST_CTDS |
_RL www (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_ctdt.F |
169 |
COST_CTDT |
www(i,j) = cosphi(i,j,bi,bj)*cmask(i,j) |
|
./pkg/ecco/cost_ctdt.F |
176 |
COST_CTDT |
& (wtmp(i,j)*www(i,j))* |
|
./pkg/ecco/cost_ctdt.F |
179 |
COST_CTDT |
if ( wtmp(i,j)*www(i,j) .ne. 0. ) |
|
./pkg/ecco/cost_ctdt.F |
61 |
COST_CTDT |
_RL www (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_drifter.F |
76 |
COST_DRIFTER |
_RL www (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/ecco/cost_xbt.F |
61 |
COST_XBT |
_RL www (1-olx:snx+olx,1-oly:sny+oly) |