Symbol Description Uses
wsi 16



File Line number Procedure Code
./pkg/ecco/ecco_cost_weights.F 107 ECCO_COST_WEIGHTS
         wsi(k) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 251 ECCO_COST_WEIGHTS
          read(gwunit,*) wti(k), wsi(k)
./pkg/ecco/ecco_cost_weights.F 281 ECCO_COST_WEIGHTS
            wsalt (k,bi,bj)   = wsi(k)
./pkg/ecco/ecco_cost_weights.F 288 ECCO_COST_WEIGHTS
            wobcsn(k,2) = wsi(k)
./pkg/ecco/ecco_cost_weights.F 294 ECCO_COST_WEIGHTS
            wobcss(k,2) = wsi(k)
./pkg/ecco/ecco_cost_weights.F 300 ECCO_COST_WEIGHTS
            wobcsw(k,2) = wsi(k)
./pkg/ecco/ecco_cost_weights.F 306 ECCO_COST_WEIGHTS
            wobcse(k,2) = wsi(k)
./pkg/ecco/ecco_cost_weights.F 61 ECCO_COST_WEIGHTS
      _RL wsi(nr)
./verification/global1x1_tot/code/ecco_cost_weights.F 107 ECCO_COST_WEIGHTS
         wsi(k) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 254 ECCO_COST_WEIGHTS
          read(gwunit,*) wti(k), wsi(k)
./verification/global1x1_tot/code/ecco_cost_weights.F 285 ECCO_COST_WEIGHTS
            wsalt (k,bi,bj)   = wsi(k)
./verification/global1x1_tot/code/ecco_cost_weights.F 292 ECCO_COST_WEIGHTS
            wobcsn(k,2) = wsi(k)
./verification/global1x1_tot/code/ecco_cost_weights.F 298 ECCO_COST_WEIGHTS
            wobcss(k,2) = wsi(k)
./verification/global1x1_tot/code/ecco_cost_weights.F 304 ECCO_COST_WEIGHTS
            wobcsw(k,2) = wsi(k)
./verification/global1x1_tot/code/ecco_cost_weights.F 310 ECCO_COST_WEIGHTS
            wobcse(k,2) = wsi(k)
./verification/global1x1_tot/code/ecco_cost_weights.F 61 ECCO_COST_WEIGHTS
      _RL wsi(nr)