| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_xbt.F |
100 |
COST_XBT |
spval = -1.8 |
|
./pkg/ecco/cost_xbt.F |
163 |
COST_XBT |
if ( xbtobs(i,j,k,bi,bj) .lt. spval .or. |
|
./pkg/ecco/cost_xbt.F |
63 |
COST_XBT |
_RL spval |
|
./pkg/ecco/cost_salt.F |
100 |
COST_SALT |
spval = 25. |
|
./pkg/ecco/cost_salt.F |
180 |
COST_SALT |
else if (sdat(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_salt.F |
71 |
COST_SALT |
_RL spval |
|
./pkg/ecco/cost_readtopex.F |
140 |
COST_READTOPEX |
if (tpobs(i,j,bi,bj) .le. spval) then |
|
./pkg/ecco/cost_readtopex.F |
186 |
COST_READTOPEX |
vartile = spval |
|
./pkg/ecco/cost_readtopex.F |
60 |
COST_READTOPEX |
_RL spval |
|
./pkg/ecco/cost_readtopex.F |
92 |
COST_READTOPEX |
spval = -9990. |
|
./pkg/ecco/cost_readers.F |
142 |
COST_READERS |
if (ersobs(i,j,bi,bj) .le. spval) then |
|
./pkg/ecco/cost_readers.F |
188 |
COST_READERS |
vartile = spval |
|
./pkg/ecco/cost_readers.F |
60 |
COST_READERS |
_RL spval |
|
./pkg/ecco/cost_readers.F |
92 |
COST_READERS |
spval = -9990. |
|
./pkg/ecco/cost_ctdtclim.F |
101 |
COST_CTDTCLIM |
spval = -1.8 |
|
./pkg/ecco/cost_ctdtclim.F |
182 |
COST_CTDTCLIM |
if (tdat(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_ctdtclim.F |
74 |
COST_CTDTCLIM |
_RL spval |
|
./pkg/ecco/cost_tmi.F |
130 |
COST_TMI |
else if (tmidat(i,j,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_tmi.F |
62 |
COST_TMI |
_RL spval |
|
./pkg/ecco/cost_tmi.F |
88 |
COST_TMI |
spval = -1.8 |
|
./pkg/ecco/cost_readargos.F |
55 |
COST_READARGOS |
_RL spval |
|
./pkg/ecco/cost_readargos.F |
60 |
COST_READARGOS |
parameter (spval = -9999. ) |
|
./pkg/ecco/cost_readargos.F |
91 |
COST_READARGOS |
argosobs(i,j,k,bi,bj)=spval |
|
./pkg/ecco/cost_argo_theta.F |
167 |
COST_ARGO_THETA |
& (argotobs(i,j,k,bi,bj) .gt. spval).and. |
|
./pkg/ecco/cost_argo_theta.F |
62 |
COST_ARGO_THETA |
_RL spval |
|
./pkg/ecco/cost_argo_theta.F |
99 |
COST_ARGO_THETA |
spval = -1.8 |
|
./pkg/ecco/cost_readscatyfields.F |
131 |
COST_READSCATYFIELDS |
if (scatydat(i,j,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_readscatyfields.F |
162 |
COST_READSCATYFIELDS |
vartile = spval |
|
./pkg/ecco/cost_readscatyfields.F |
58 |
COST_READSCATYFIELDS |
_RL spval |
|
./pkg/ecco/cost_readscatyfields.F |
76 |
COST_READSCATYFIELDS |
parameter (spval = -1.8 ) |
|
./pkg/ecco/cost_ctdsclim.F |
102 |
COST_CTDSCLIM |
spval = -9990. |
|
./pkg/ecco/cost_ctdsclim.F |
182 |
COST_CTDSCLIM |
if (sdat(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_ctdsclim.F |
74 |
COST_CTDSCLIM |
_RL spval |
|
./pkg/ecco/cost_readsstfields.F |
58 |
COST_READSSTFIELDS |
_RL spval |
|
./pkg/ecco/cost_readsstfields.F |
76 |
COST_READSSTFIELDS |
parameter (spval = -1.8 ) |
|
./pkg/ecco/cost_sss.F |
127 |
COST_SSS |
if (sssdat(i,j,bi,bj) .lt. spval .or. |
|
./pkg/ecco/cost_sss.F |
62 |
COST_SSS |
_RL spval |
|
./pkg/ecco/cost_sss.F |
88 |
COST_SSS |
spval = 25.0 |
|
./pkg/ecco/cost_argo_salt.F |
163 |
COST_ARGO_SALT |
if ( (argosobs(i,j,k,bi,bj) .ge. spval) .and. |
|
./pkg/ecco/cost_argo_salt.F |
64 |
COST_ARGO_SALT |
_RL spval |
|
./pkg/ecco/cost_argo_salt.F |
98 |
COST_ARGO_SALT |
spval = 25. |
|
./pkg/ecco/cost_readargot.F |
55 |
COST_READARGOT |
_RL spval |
|
./pkg/ecco/cost_readargot.F |
60 |
COST_READARGOT |
parameter (spval = -9999. ) |
|
./pkg/ecco/cost_readargot.F |
91 |
COST_READARGOT |
argotobs(i,j,k,bi,bj)=spval |
|
./pkg/ecco/cost_ctdt.F |
158 |
COST_CTDT |
if (ctdtobs(i,j,k,bi,bj) .lt. spval .or. |
|
./pkg/ecco/cost_ctdt.F |
65 |
COST_CTDT |
_RL spval |
|
./pkg/ecco/cost_ctdt.F |
99 |
COST_CTDT |
spval = -1.8 |
|
./pkg/ecco/cost_readtopexmean.F |
51 |
COST_READTOPEXMEAN |
_RL spval |
|
./pkg/ecco/cost_readtopexmean.F |
67 |
COST_READTOPEXMEAN |
spval = -9990. |
|
./pkg/ecco/cost_readtopexmean.F |
82 |
COST_READTOPEXMEAN |
if (tpmean(i,j,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_theta.F |
179 |
COST_THETA |
else if (tdat(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_theta.F |
71 |
COST_THETA |
_RL spval |
|
./pkg/ecco/cost_theta.F |
99 |
COST_THETA |
spval = -1.8 |
|
./pkg/ecco/cost_readsssfields.F |
58 |
COST_READSSSFIELDS |
_RL spval |
|
./pkg/ecco/cost_readsssfields.F |
76 |
COST_READSSSFIELDS |
parameter (spval = 25.0 ) |
|
./pkg/ecco/cost_readtmifields.F |
124 |
COST_READTMIFIELDS |
tmidat(i,j,bi,bj)=spval |
|
./pkg/ecco/cost_readtmifields.F |
58 |
COST_READTMIFIELDS |
_RL spval |
|
./pkg/ecco/cost_readtmifields.F |
76 |
COST_READTMIFIELDS |
parameter (spval = -9999. ) |
|
./pkg/ecco/cost_sst.F |
127 |
COST_SST |
if (sstdat(i,j,bi,bj) .lt. spval .or. |
|
./pkg/ecco/cost_sst.F |
62 |
COST_SST |
_RL spval |
|
./pkg/ecco/cost_sst.F |
88 |
COST_SST |
spval = -1.8 |
|
./pkg/ecco/cost_ctds.F |
157 |
COST_CTDS |
if (ctdsobs(i,j,k,bi,bj) .lt. spval .or. |
|
./pkg/ecco/cost_ctds.F |
64 |
COST_CTDS |
_RL spval |
|
./pkg/ecco/cost_ctds.F |
98 |
COST_CTDS |
spval = 25. |
|
./pkg/ecco/cost_readscatxfields.F |
133 |
COST_READSCATXFIELDS |
if (scatxdat(i,j,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_readscatxfields.F |
164 |
COST_READSCATXFIELDS |
vartile = spval |
|
./pkg/ecco/cost_readscatxfields.F |
58 |
COST_READSCATXFIELDS |
_RL spval |
|
./pkg/ecco/cost_readscatxfields.F |
76 |
COST_READSCATXFIELDS |
parameter (spval = -1.8 ) |
|
./pkg/ecco/cost_curmtr.F |
176 |
COST_CURMTR |
if (curmtruobs(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_curmtr.F |
180 |
COST_CURMTR |
if (curmtrvobs(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_curmtr.F |
70 |
COST_CURMTR |
_RL spval |
|
./pkg/ecco/cost_curmtr.F |
96 |
COST_CURMTR |
spval = -9990. |
|
./verification/flt_example/extra/cvprofiles.F |
197 |
NO PROCEDURE |
xpart(m,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
198 |
NO PROCEDURE |
ypart(m,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
199 |
NO PROCEDURE |
kpart(m,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
201 |
NO PROCEDURE |
if (.not. preflag) uvel(m,k,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
202 |
NO PROCEDURE |
if (.not. preflag) vvel(m,k,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
203 |
NO PROCEDURE |
temp(m,k,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
204 |
NO PROCEDURE |
if (.not. preflag) salt(m,k,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
206 |
NO PROCEDURE |
zeta(m,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
294 |
NO PROCEDURE |
if (.not. preflag) uvel(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
295 |
NO PROCEDURE |
if (.not. preflag) vvel(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
296 |
NO PROCEDURE |
temp(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
297 |
NO PROCEDURE |
if (.not. preflag) salt(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
31 |
NO PROCEDURE |
parameter(spval=-999.) |
|
./verification/flt_example/extra/cvprofiles.F |
409 |
NO PROCEDURE |
floatval(1) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
561 |
NO PROCEDURE |
temp(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
591 |
NO PROCEDURE |
temp(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
621 |
NO PROCEDURE |
temp(ip,k,np) = spval |
|
./verification/flt_example/extra/cvfloat.F |
186 |
NO PROCEDURE |
xpart(m,n) = spval |
|
./verification/flt_example/extra/cvfloat.F |
187 |
NO PROCEDURE |
ypart(m,n) = spval |
|
./verification/flt_example/extra/cvfloat.F |
188 |
NO PROCEDURE |
kpart(m,n) = spval |
|
./verification/flt_example/extra/cvfloat.F |
189 |
NO PROCEDURE |
uvel(m,n) = spval |
|
./verification/flt_example/extra/cvfloat.F |
190 |
NO PROCEDURE |
vvel(m,n) = spval |
|
./verification/flt_example/extra/cvfloat.F |
191 |
NO PROCEDURE |
temp(m,n) = spval |
|
./verification/flt_example/extra/cvfloat.F |
192 |
NO PROCEDURE |
salt(m,n) = spval |
|
./verification/flt_example/extra/cvfloat.F |
193 |
NO PROCEDURE |
zeta(m,n) = spval |
|
./verification/flt_example/extra/cvfloat.F |
30 |
NO PROCEDURE |
parameter(spval=-999.) |
|
./verification/flt_example/extra/cvfloat.F |
332 |
NO PROCEDURE |
floatval(1) = spval |