Symbol Description Uses
wsi 24


File Line number Procedure Code
./verification/global1x1_tot/code/ecco_cost_weights.F 102 ECCO_COST_WEIGHTS 
         wsi(k) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 250 ECCO_COST_WEIGHTS 
          read(gwunit,*) wti(k), wsi(k)
./verification/global1x1_tot/code/ecco_cost_weights.F 281 ECCO_COST_WEIGHTS 
            wsalt (k,bi,bj)   = wsi(k)
./verification/global1x1_tot/code/ecco_cost_weights.F 288 ECCO_COST_WEIGHTS 
            wobcsn(k,2) = wsi(k)
./verification/global1x1_tot/code/ecco_cost_weights.F 294 ECCO_COST_WEIGHTS 
            wobcss(k,2) = wsi(k)
./verification/global1x1_tot/code/ecco_cost_weights.F 300 ECCO_COST_WEIGHTS 
            wobcsw(k,2) = wsi(k)
./verification/global1x1_tot/code/ecco_cost_weights.F 306 ECCO_COST_WEIGHTS 
            wobcse(k,2) = wsi(k)
./verification/global1x1_tot/code/ecco_cost_weights.F 62 ECCO_COST_WEIGHTS 
      _RL wsi(nr)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 101 ECCO_COST_WEIGHTS 
         wsi(k) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 248 ECCO_COST_WEIGHTS 
          read(gwunit,*) wti(k), wsi(k)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 279 ECCO_COST_WEIGHTS 
            wsalt (k,bi,bj)   = wsi(k)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 286 ECCO_COST_WEIGHTS 
            wobcsn(k,2) = wsi(k)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 292 ECCO_COST_WEIGHTS 
            wobcss(k,2) = wsi(k)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 298 ECCO_COST_WEIGHTS 
            wobcsw(k,2) = wsi(k)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 304 ECCO_COST_WEIGHTS 
            wobcse(k,2) = wsi(k)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 61 ECCO_COST_WEIGHTS 
      _RL wsi(nr)
./pkg/ecco/ecco_cost_weights.F 109 ECCO_COST_WEIGHTS 
         wsi(k) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 268 ECCO_COST_WEIGHTS 
          read(gwunit,*) wti(k), wsi(k)
./pkg/ecco/ecco_cost_weights.F 295 ECCO_COST_WEIGHTS 
            wsalt (k,bi,bj)   = wsi(k)
./pkg/ecco/ecco_cost_weights.F 313 ECCO_COST_WEIGHTS 
            wobcsn(k,2) = wsi(k)
./pkg/ecco/ecco_cost_weights.F 319 ECCO_COST_WEIGHTS 
            wobcss(k,2) = wsi(k)
./pkg/ecco/ecco_cost_weights.F 325 ECCO_COST_WEIGHTS 
            wobcsw(k,2) = wsi(k)
./pkg/ecco/ecco_cost_weights.F 331 ECCO_COST_WEIGHTS 
            wobcse(k,2) = wsi(k)
./pkg/ecco/ecco_cost_weights.F 63 ECCO_COST_WEIGHTS 
      _RL wsi(nr)