| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_argo_salt.F |
63 |
COST_ARGO_SALT |
_RL wtmp (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_ctds.F |
170 |
COST_CTDS |
wtmp(i,j) = wsalt2(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctds.F |
173 |
COST_CTDS |
& (wtmp(i,j)*www(i,j))* |
|
./pkg/ecco/cost_ctds.F |
176 |
COST_CTDS |
if ( wtmp(i,j)*www(i,j) .ne. 0. ) |
|
./pkg/ecco/cost_ctds.F |
62 |
COST_CTDS |
_RL wtmp (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_ctdt.F |
173 |
COST_CTDT |
wtmp(i,j) = wtheta2(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdt.F |
177 |
COST_CTDT |
& (wtmp(i,j)*www(i,j))* |
|
./pkg/ecco/cost_ctdt.F |
180 |
COST_CTDT |
if ( wtmp(i,j)*www(i,j) .ne. 0. ) |
|
./pkg/ecco/cost_ctdt.F |
63 |
COST_CTDT |
_RL wtmp (1-olx:snx+olx,1-oly:sny+oly) |