File |
Line number |
Procedure |
Code |
./pkg/ecco/cost_readscatyfields.F |
125 |
COST_READSCATYFIELDS |
scatymask(i,j,bi,bj) = 0. _d 0 |
./pkg/ecco/cost_readscatyfields.F |
127 |
COST_READSCATYFIELDS |
scatymask(i,j,bi,bj) = 0. _d 0 |
./pkg/ecco/cost_readscatyfields.F |
129 |
COST_READSCATYFIELDS |
scatymask(i,j,bi,bj) = 1. _d 0 |
./pkg/ecco/cost_readscatyfields.F |
132 |
COST_READSCATYFIELDS |
scatymask(i,j,bi,bj) = 0. _d 0 |
./pkg/ecco/cost_readscatyfields.F |
135 |
COST_READSCATYFIELDS |
scatymask(i,j,bi,bj) = 0. _d 0 |
./pkg/ecco/cost_readscatyfields.F |
137 |
COST_READSCATYFIELDS |
scatymask(i,j,bi,bj) = scatymask(i,j,bi,bj)*frame(i,j) |
./pkg/ecco/cost_readscatyfields.F |
139 |
COST_READSCATYFIELDS |
& scatymask(i,j,bi,bj) |
./pkg/ecco/cost_readscatyfields.F |
140 |
COST_READSCATYFIELDS |
nobs = nobs + int(scatymask(i,j,bi,bj)) |
./pkg/ecco/ecco_cost.h |
835 |
NO PROCEDURE |
& scatymask, |
./pkg/ecco/ecco_cost.h |
862 |
NO PROCEDURE |
_RL scatymask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
./pkg/ecco/cost_scat.F |
158 |
COST_SCAT |
& scatymask(i,j,bi,bj) ) |
./pkg/ecco/cost_scat.F |
160 |
COST_SCAT |
& scatymask(i,j,bi,bj) .ne. 0. ) |