Symbol Description Uses
wsi 8



File Line number Procedure Code
./pkg/ecco/ecco_cost_weights.F 121 ECCO_COST_WEIGHTS
         wsi(k) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 296 ECCO_COST_WEIGHTS
          read(gwUnit,*) wti(k), wsi(k)
./pkg/ecco/ecco_cost_weights.F 329 ECCO_COST_WEIGHTS
            wsalt (k,bi,bj)   = wsi(k)
./pkg/ecco/ecco_cost_weights.F 348 ECCO_COST_WEIGHTS
            wobcsn(k,2) = wsi(k)
./pkg/ecco/ecco_cost_weights.F 354 ECCO_COST_WEIGHTS
            wobcss(k,2) = wsi(k)
./pkg/ecco/ecco_cost_weights.F 360 ECCO_COST_WEIGHTS
            wobcsw(k,2) = wsi(k)
./pkg/ecco/ecco_cost_weights.F 366 ECCO_COST_WEIGHTS
            wobcse(k,2) = wsi(k)
./pkg/ecco/ecco_cost_weights.F 72 ECCO_COST_WEIGHTS
      _RL wsi(nr)