| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_argo_salt.F |
101 |
COST_ARGO_SALT |
spmax = 40. |
|
./pkg/ecco/cost_argo_salt.F |
166 |
COST_ARGO_SALT |
$ (argosobs(i,j,k,bi,bj) .lt. spmax) .and. |
|
./pkg/ecco/cost_argo_salt.F |
67 |
COST_ARGO_SALT |
_RL spmax |
|
./pkg/ecco/cost_argo_theta.F |
102 |
COST_ARGO_THETA |
spmax = 40. |
|
./pkg/ecco/cost_argo_theta.F |
170 |
COST_ARGO_THETA |
& (argotobs(i,j,k,bi,bj) .lt. spmax).and. |
|
./pkg/ecco/cost_argo_theta.F |
66 |
COST_ARGO_THETA |
_RL spmax |
|
./pkg/ecco/cost_ctds.F |
101 |
COST_CTDS |
spmax = 40. |
|
./pkg/ecco/cost_ctds.F |
160 |
COST_CTDS |
& ctdsobs(i,j,k,bi,bj) .gt. spmax .or. |
|
./pkg/ecco/cost_ctds.F |
67 |
COST_CTDS |
_RL spmax |
|
./pkg/ecco/cost_ctdt.F |
102 |
COST_CTDT |
spmax = 40. |
|
./pkg/ecco/cost_ctdt.F |
161 |
COST_CTDT |
& ctdtobs(i,j,k,bi,bj) .gt. spmax .or. |
|
./pkg/ecco/cost_ctdt.F |
68 |
COST_CTDT |
_RL spmax |
|
./pkg/ecco/cost_salt.F |
101 |
COST_SALT |
spmax = 40. |
|
./pkg/ecco/cost_salt.F |
185 |
COST_SALT |
else if (sdat(i,j,k,bi,bj) .gt. spmax) then |
|
./pkg/ecco/cost_salt.F |
74 |
COST_SALT |
_RL spmax |
|
./pkg/ecco/cost_sigmar.F |
103 |
COST_SIGMAR |
spmax = 1. |
|
./pkg/ecco/cost_sigmar.F |
178 |
COST_SIGMAR |
else if (sigmaRdat(i,j,k,bi,bj) .gt. spmax) then |
|
./pkg/ecco/cost_sigmar.F |
75 |
COST_SIGMAR |
_RL spmax |
|
./pkg/ecco/cost_theta.F |
101 |
COST_THETA |
spmax = 40. |
|
./pkg/ecco/cost_theta.F |
185 |
COST_THETA |
else if (tdat(i,j,k,bi,bj) .gt. spmax) then |
|
./pkg/ecco/cost_theta.F |
75 |
COST_THETA |
_RL spmax |
|
./pkg/ecco/cost_xbt.F |
103 |
COST_XBT |
spmax = 40. |
|
./pkg/ecco/cost_xbt.F |
166 |
COST_XBT |
& xbtobs(i,j,k,bi,bj) .gt. spmax .or. |
|
./pkg/ecco/cost_xbt.F |
66 |
COST_XBT |
_RL spmax |