| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_init_varia.F |
269 |
ECCO_COST_INIT_VARIA |
mdt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
144 |
COST_SSH |
& mdt, 1, mythid ) |
|
./pkg/ecco/cost_ssh.F |
151 |
COST_SSH |
if (mdt(i,j,bi,bj) .lt. -9990. _d 0) then |
|
./pkg/ecco/cost_ssh.F |
157 |
COST_SSH |
mdt(i,j,bi,bj) = mdt(i,j,bi,bj)* |
|
./pkg/ecco/cost_ssh.F |
199 |
COST_SSH |
& (mdt(i,j,bi,bj) - psmean(i,j,bi,bj)) |
|
./pkg/ecco/cost_ssh.F |
255 |
COST_SSH |
junk = psmean(i,j,bi,bj) - mdt(i,j,bi,bj) + offset |
|
./pkg/ecco/cost_ssh.F |
321 |
COST_SSH |
& (tpobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/cost_ssh.F |
348 |
COST_SSH |
& (ersobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/cost_ssh.F |
375 |
COST_SSH |
& (gfoobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/ecco_cost.h |
1199 |
NO PROCEDURE |
& mdt, |
|
./pkg/ecco/ecco_cost.h |
1235 |
NO PROCEDURE |
_RL mdt (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |