File |
Line number |
Procedure |
Code |
./pkg/ecco/cost_gencost_sstv4.F |
178 |
COST_GENCOST_SSTV4 |
nb_sst(i,j,bi,bj) = 0. _d 0 |
./pkg/ecco/cost_gencost_sstv4.F |
261 |
COST_GENCOST_SSTV4 |
nb_sst(i,j,bi,bj)=nb_sst(i,j,bi,bj)+1. _d 0 |
./pkg/ecco/cost_gencost_sstv4.F |
275 |
COST_GENCOST_SSTV4 |
if ( nb_sst(i,j,bi,bj) .NE. 0. ) then |
./pkg/ecco/cost_gencost_sstv4.F |
277 |
COST_GENCOST_SSTV4 |
& obs_sst(i,j,bi,bj)/nb_sst(i,j,bi,bj) |
./pkg/ecco/cost_gencost_sstv4.F |
279 |
COST_GENCOST_SSTV4 |
& anom_sst(i,j,bi,bj)/nb_sst(i,j,bi,bj) |
./pkg/ecco/cost_gencost_sstv4.F |
334 |
COST_GENCOST_SSTV4 |
if ( (junkweight.GT.0.).AND.(nb_sst(i,j,bi,bj).GT.0.) ) |
./pkg/ecco/cost_gencost_sstv4.F |
66 |
COST_GENCOST_SSTV4 |
_RL nb_sst (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |