| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_cost_concentration.F |
244 |
SEAICE_COST_CONCENTRATION |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_concentration.F |
86 |
SEAICE_COST_CONCENTRATION |
_RL spval |
|
./pkg/seaice/seaice_cost_concentration.F |
87 |
SEAICE_COST_CONCENTRATION |
parameter (spval = -9999. _d 0 ) |
|
./pkg/seaice/seaice_cost_sss.F |
262 |
SEAICE_COST_SSS |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_sss.F |
87 |
SEAICE_COST_SSS |
_RL spval |
|
./pkg/seaice/seaice_cost_sss.F |
88 |
SEAICE_COST_SSS |
parameter (spval = -9999. ) |
|
./pkg/seaice/seaice_cost_sst.F |
257 |
SEAICE_COST_SST |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_sst.F |
85 |
SEAICE_COST_SST |
_RL spval |
|
./pkg/seaice/seaice_cost_sst.F |
86 |
SEAICE_COST_SST |
parameter (spval = -9999. ) |
|
./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 |
|
./pkg/ecco/cost_argo_salt.F |
164 |
COST_ARGO_SALT |
if ( (argosobs(i,j,k,bi,bj) .ge. spval) .and. |
|
./pkg/ecco/cost_argo_salt.F |
65 |
COST_ARGO_SALT |
_RL spval |
|
./pkg/ecco/cost_argo_salt.F |
99 |
COST_ARGO_SALT |
spval = 25. |
|
./pkg/ecco/cost_argo_theta.F |
100 |
COST_ARGO_THETA |
spval = -1.8 |
|
./pkg/ecco/cost_argo_theta.F |
168 |
COST_ARGO_THETA |
& (argotobs(i,j,k,bi,bj) .gt. spval).and. |
|
./pkg/ecco/cost_argo_theta.F |
63 |
COST_ARGO_THETA |
_RL spval |
|
./pkg/ecco/cost_bp_read.F |
115 |
COST_BP_READ |
if (bpdat(i,j,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_bp_read.F |
56 |
COST_BP_READ |
_RL spval |
|
./pkg/ecco/cost_bp_read.F |
74 |
COST_BP_READ |
parameter (spval = -998. ) |
|
./pkg/ecco/cost_ctds.F |
158 |
COST_CTDS |
if (ctdsobs(i,j,k,bi,bj) .lt. spval .or. |
|
./pkg/ecco/cost_ctds.F |
65 |
COST_CTDS |
_RL spval |
|
./pkg/ecco/cost_ctds.F |
99 |
COST_CTDS |
spval = 25. |
|
./pkg/ecco/cost_ctdsclim.F |
103 |
COST_CTDSCLIM |
spval = -9990. |
|
./pkg/ecco/cost_ctdsclim.F |
183 |
COST_CTDSCLIM |
if (sdat(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_ctdsclim.F |
75 |
COST_CTDSCLIM |
_RL spval |
|
./pkg/ecco/cost_ctdt.F |
100 |
COST_CTDT |
spval = -1.8 |
|
./pkg/ecco/cost_ctdt.F |
159 |
COST_CTDT |
if (ctdtobs(i,j,k,bi,bj) .lt. spval .or. |
|
./pkg/ecco/cost_ctdt.F |
66 |
COST_CTDT |
_RL spval |
|
./pkg/ecco/cost_ctdtclim.F |
102 |
COST_CTDTCLIM |
spval = -1.8 |
|
./pkg/ecco/cost_ctdtclim.F |
183 |
COST_CTDTCLIM |
if (tdat(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_ctdtclim.F |
75 |
COST_CTDTCLIM |
_RL spval |
|
./pkg/ecco/cost_curmtr.F |
177 |
COST_CURMTR |
if (curmtruobs(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_curmtr.F |
181 |
COST_CURMTR |
if (curmtrvobs(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_curmtr.F |
71 |
COST_CURMTR |
_RL spval |
|
./pkg/ecco/cost_curmtr.F |
97 |
COST_CURMTR |
spval = -9990. |
|
./pkg/ecco/cost_gencost_sstv4.F |
131 |
COST_GENCOST_SSTV4 |
spval = -9990. |
|
./pkg/ecco/cost_gencost_sstv4.F |
198 |
COST_GENCOST_SSTV4 |
tmp_sst(i,j,bi,bj) = spval |
|
./pkg/ecco/cost_gencost_sstv4.F |
210 |
COST_GENCOST_SSTV4 |
if ( (tmp_sst(i,j,bi,bj).GT.spval).AND. |
|
./pkg/ecco/cost_gencost_sstv4.F |
336 |
COST_GENCOST_SSTV4 |
tmp_sst(i,j,bi,bj) = spval |
|
./pkg/ecco/cost_gencost_sstv4.F |
348 |
COST_GENCOST_SSTV4 |
if ( (tmp_sst(i,j,bi,bj).GT.spval).AND. |
|
./pkg/ecco/cost_gencost_sstv4.F |
72 |
COST_GENCOST_SSTV4 |
_RL spval |
|
./pkg/ecco/cost_generic.F |
248 |
COST_GENERIC |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/ecco/cost_generic.F |
88 |
COST_GENERIC |
_RL spval |
|
./pkg/ecco/cost_generic.F |
89 |
COST_GENERIC |
parameter (spval = -9999. ) |
|
./pkg/ecco/cost_readargos.F |
56 |
COST_READARGOS |
_RL spval |
|
./pkg/ecco/cost_readargos.F |
61 |
COST_READARGOS |
parameter (spval = -9999. ) |
|
./pkg/ecco/cost_readargos.F |
92 |
COST_READARGOS |
argosobs(i,j,k,bi,bj)=spval |
|
./pkg/ecco/cost_readargot.F |
56 |
COST_READARGOT |
_RL spval |
|
./pkg/ecco/cost_readargot.F |
61 |
COST_READARGOT |
parameter (spval = -9999. ) |
|
./pkg/ecco/cost_readargot.F |
92 |
COST_READARGOT |
argotobs(i,j,k,bi,bj)=spval |
|
./pkg/ecco/cost_readers.F |
136 |
COST_READERS |
if (ersobs(i,j,bi,bj) .le. spval) then |
|
./pkg/ecco/cost_readers.F |
57 |
COST_READERS |
_RL spval |
|
./pkg/ecco/cost_readers.F |
88 |
COST_READERS |
spval = -9990. _d 0 |
|
./pkg/ecco/cost_readgfo.F |
136 |
COST_READGFO |
if (gfoobs(i,j,bi,bj) .le. spval) then |
|
./pkg/ecco/cost_readgfo.F |
57 |
COST_READGFO |
_RL spval |
|
./pkg/ecco/cost_readgfo.F |
88 |
COST_READGFO |
spval = -9990. |
|
./pkg/ecco/cost_readscatxfields.F |
132 |
COST_READSCATXFIELDS |
if (scatxdat(i,j,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_readscatxfields.F |
163 |
COST_READSCATXFIELDS |
vartile = spval |
|
./pkg/ecco/cost_readscatxfields.F |
59 |
COST_READSCATXFIELDS |
_RL spval |
|
./pkg/ecco/cost_readscatxfields.F |
77 |
COST_READSCATXFIELDS |
parameter (spval = -1.8 ) |
|
./pkg/ecco/cost_readscatyfields.F |
130 |
COST_READSCATYFIELDS |
if (scatydat(i,j,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_readscatyfields.F |
161 |
COST_READSCATYFIELDS |
vartile = spval |
|
./pkg/ecco/cost_readscatyfields.F |
59 |
COST_READSCATYFIELDS |
_RL spval |
|
./pkg/ecco/cost_readscatyfields.F |
77 |
COST_READSCATYFIELDS |
parameter (spval = -1.8 ) |
|
./pkg/ecco/cost_readtopex.F |
134 |
COST_READTOPEX |
if (tpobs(i,j,bi,bj) .le. spval) then |
|
./pkg/ecco/cost_readtopex.F |
57 |
COST_READTOPEX |
_RL spval |
|
./pkg/ecco/cost_readtopex.F |
88 |
COST_READTOPEX |
spval = -9990. _d 0 |
|
./pkg/ecco/cost_readtopexmean.F |
52 |
COST_READTOPEXMEAN |
_RL spval |
|
./pkg/ecco/cost_readtopexmean.F |
68 |
COST_READTOPEXMEAN |
spval = -9990. _d 0 |
|
./pkg/ecco/cost_readtopexmean.F |
83 |
COST_READTOPEXMEAN |
if (tpmean(i,j,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_salt.F |
101 |
COST_SALT |
spval = 25. |
|
./pkg/ecco/cost_salt.F |
182 |
COST_SALT |
else if (sdat(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_salt.F |
69 |
COST_SALT |
_RL spval |
|
./pkg/ecco/cost_sla_read.F |
141 |
COST_SLA_READ |
if (sla_obs(i,j,bi,bj) .le. spval) then |
|
./pkg/ecco/cost_sla_read.F |
54 |
COST_SLA_READ |
_RL spval |
|
./pkg/ecco/cost_sla_read.F |
93 |
COST_SLA_READ |
spval = -9990. |
|
./pkg/ecco/cost_sla_read_yd.F |
126 |
COST_SLA_READ_YD |
if (sla_obs(i,j,bi,bj) .le. spval) then |
|
./pkg/ecco/cost_sla_read_yd.F |
55 |
COST_SLA_READ_YD |
_RL spval |
|
./pkg/ecco/cost_sla_read_yd.F |
97 |
COST_SLA_READ_YD |
spval = -9990. |
|
./pkg/ecco/cost_theta.F |
100 |
COST_THETA |
spval = -1.8 |
|
./pkg/ecco/cost_theta.F |
181 |
COST_THETA |
else if (tdat(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_theta.F |
69 |
COST_THETA |
_RL spval |
|
./pkg/ecco/cost_xbt.F |
101 |
COST_XBT |
spval = -1.8 |
|
./pkg/ecco/cost_xbt.F |
164 |
COST_XBT |
if ( xbtobs(i,j,k,bi,bj) .lt. spval .or. |
|
./pkg/ecco/cost_xbt.F |
64 |
COST_XBT |
_RL spval |