| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_argo_salt.F |
100 |
COST_ARGO_SALT |
spmax = 40. |
|
./pkg/ecco/cost_argo_salt.F |
165 |
COST_ARGO_SALT |
$ (argosobs(i,j,k,bi,bj) .lt. spmax) .and. |
|
./pkg/ecco/cost_argo_salt.F |
66 |
COST_ARGO_SALT |
_RL spmax |
|
./pkg/ecco/cost_argo_theta.F |
101 |
COST_ARGO_THETA |
spmax = 40. |
|
./pkg/ecco/cost_argo_theta.F |
169 |
COST_ARGO_THETA |
& (argotobs(i,j,k,bi,bj) .lt. spmax).and. |
|
./pkg/ecco/cost_argo_theta.F |
65 |
COST_ARGO_THETA |
_RL spmax |
|
./pkg/ecco/cost_ctds.F |
100 |
COST_CTDS |
spmax = 40. |
|
./pkg/ecco/cost_ctds.F |
159 |
COST_CTDS |
& ctdsobs(i,j,k,bi,bj) .gt. spmax .or. |
|
./pkg/ecco/cost_ctds.F |
66 |
COST_CTDS |
_RL spmax |
|
./pkg/ecco/cost_ctdt.F |
101 |
COST_CTDT |
spmax = 40. |
|
./pkg/ecco/cost_ctdt.F |
160 |
COST_CTDT |
& ctdtobs(i,j,k,bi,bj) .gt. spmax .or. |
|
./pkg/ecco/cost_ctdt.F |
67 |
COST_CTDT |
_RL spmax |
|
./pkg/ecco/cost_salt.F |
102 |
COST_SALT |
spmax = 40. |
|
./pkg/ecco/cost_salt.F |
184 |
COST_SALT |
else if (sdat(i,j,k,bi,bj) .gt. spmax) then |
|
./pkg/ecco/cost_salt.F |
70 |
COST_SALT |
_RL spmax |
|
./pkg/ecco/cost_theta.F |
101 |
COST_THETA |
spmax = 40. |
|
./pkg/ecco/cost_theta.F |
183 |
COST_THETA |
else if (tdat(i,j,k,bi,bj) .gt. spmax) then |
|
./pkg/ecco/cost_theta.F |
70 |
COST_THETA |
_RL spmax |
|
./pkg/ecco/cost_xbt.F |
102 |
COST_XBT |
spmax = 40. |
|
./pkg/ecco/cost_xbt.F |
165 |
COST_XBT |
& xbtobs(i,j,k,bi,bj) .gt. spmax .or. |
|
./pkg/ecco/cost_xbt.F |
65 |
COST_XBT |
_RL spmax |