| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_xbt.F |
101 |
COST_XBT |
spmax = 40. |
|
./pkg/ecco/cost_xbt.F |
164 |
COST_XBT |
& xbtobs(i,j,k,bi,bj) .gt. spmax .or. |
|
./pkg/ecco/cost_xbt.F |
64 |
COST_XBT |
_RL spmax |
|
./pkg/ecco/cost_salt.F |
101 |
COST_SALT |
spmax = 40. |
|
./pkg/ecco/cost_salt.F |
182 |
COST_SALT |
else if (sdat(i,j,k,bi,bj) .gt. spmax) then |
|
./pkg/ecco/cost_salt.F |
72 |
COST_SALT |
_RL spmax |
|
./pkg/ecco/cost_tmi.F |
132 |
COST_TMI |
else if (tmidat(i,j,bi,bj) .gt. spmax) then |
|
./pkg/ecco/cost_tmi.F |
63 |
COST_TMI |
_RL spmax |
|
./pkg/ecco/cost_tmi.F |
89 |
COST_TMI |
spmax = 40. |
|
./pkg/ecco/cost_argo_theta.F |
100 |
COST_ARGO_THETA |
spmax = 40. |
|
./pkg/ecco/cost_argo_theta.F |
168 |
COST_ARGO_THETA |
& (argotobs(i,j,k,bi,bj) .lt. spmax).and. |
|
./pkg/ecco/cost_argo_theta.F |
64 |
COST_ARGO_THETA |
_RL spmax |
|
./pkg/ecco/cost_sss.F |
128 |
COST_SSS |
& sssdat(i,j,bi,bj) .gt. spmax .or. |
|
./pkg/ecco/cost_sss.F |
63 |
COST_SSS |
_RL spmax |
|
./pkg/ecco/cost_sss.F |
89 |
COST_SSS |
spmax = 40.0 |
|
./pkg/ecco/cost_argo_salt.F |
164 |
COST_ARGO_SALT |
$ (argosobs(i,j,k,bi,bj) .lt. spmax) .and. |
|
./pkg/ecco/cost_argo_salt.F |
65 |
COST_ARGO_SALT |
_RL spmax |
|
./pkg/ecco/cost_argo_salt.F |
99 |
COST_ARGO_SALT |
spmax = 40. |
|
./pkg/ecco/cost_ctdt.F |
100 |
COST_CTDT |
spmax = 40. |
|
./pkg/ecco/cost_ctdt.F |
159 |
COST_CTDT |
& ctdtobs(i,j,k,bi,bj) .gt. spmax .or. |
|
./pkg/ecco/cost_ctdt.F |
66 |
COST_CTDT |
_RL spmax |
|
./pkg/ecco/cost_theta.F |
100 |
COST_THETA |
spmax = 40. |
|
./pkg/ecco/cost_theta.F |
181 |
COST_THETA |
else if (tdat(i,j,k,bi,bj) .gt. spmax) then |
|
./pkg/ecco/cost_theta.F |
72 |
COST_THETA |
_RL spmax |
|
./pkg/ecco/cost_sst.F |
128 |
COST_SST |
& sstdat(i,j,bi,bj) .gt. spmax .or. |
|
./pkg/ecco/cost_sst.F |
63 |
COST_SST |
_RL spmax |
|
./pkg/ecco/cost_sst.F |
89 |
COST_SST |
spmax = 40. |
|
./pkg/ecco/cost_ctds.F |
158 |
COST_CTDS |
& ctdsobs(i,j,k,bi,bj) .gt. spmax .or. |
|
./pkg/ecco/cost_ctds.F |
65 |
COST_CTDS |
_RL spmax |
|
./pkg/ecco/cost_ctds.F |
99 |
COST_CTDS |
spmax = 40. |