Symbol Description Uses
wti 45


File Line number Procedure Code
./verification/global1x1_tot/code/ecco_cost_weights.F 101 ECCO_COST_WEIGHTS 
         wti(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 280 ECCO_COST_WEIGHTS 
            wtheta(k,bi,bj)   = wti(k)
./verification/global1x1_tot/code/ecco_cost_weights.F 287 ECCO_COST_WEIGHTS 
            wobcsn(k,1) = wti(k)
./verification/global1x1_tot/code/ecco_cost_weights.F 289 ECCO_COST_WEIGHTS 
            wobcsn(k,3) = wti(k)*0.02
./verification/global1x1_tot/code/ecco_cost_weights.F 290 ECCO_COST_WEIGHTS 
            wobcsn(k,4) = wti(k)*0.02
./verification/global1x1_tot/code/ecco_cost_weights.F 293 ECCO_COST_WEIGHTS 
            wobcss(k,1) = wti(k)
./verification/global1x1_tot/code/ecco_cost_weights.F 295 ECCO_COST_WEIGHTS 
            wobcss(k,3) = wti(k)*0.02
./verification/global1x1_tot/code/ecco_cost_weights.F 296 ECCO_COST_WEIGHTS 
            wobcss(k,4) = wti(k)*0.02
./verification/global1x1_tot/code/ecco_cost_weights.F 299 ECCO_COST_WEIGHTS 
            wobcsw(k,1) = wti(k)
./verification/global1x1_tot/code/ecco_cost_weights.F 301 ECCO_COST_WEIGHTS 
            wobcsw(k,3) = wti(k)*0.02
./verification/global1x1_tot/code/ecco_cost_weights.F 302 ECCO_COST_WEIGHTS 
            wobcsw(k,4) = wti(k)*0.02
./verification/global1x1_tot/code/ecco_cost_weights.F 305 ECCO_COST_WEIGHTS 
            wobcse(k,1) = wti(k)
./verification/global1x1_tot/code/ecco_cost_weights.F 307 ECCO_COST_WEIGHTS 
            wobcse(k,3) = wti(k)*0.02
./verification/global1x1_tot/code/ecco_cost_weights.F 308 ECCO_COST_WEIGHTS 
            wobcse(k,4) = wti(k)*0.02
./verification/global1x1_tot/code/ecco_cost_weights.F 61 ECCO_COST_WEIGHTS 
      _RL wti(nr)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 100 ECCO_COST_WEIGHTS 
         wti(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 278 ECCO_COST_WEIGHTS 
            wtheta(k,bi,bj)   = wti(k)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 285 ECCO_COST_WEIGHTS 
            wobcsn(k,1) = wti(k)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 287 ECCO_COST_WEIGHTS 
            wobcsn(k,3) = wti(k)*0.02
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 288 ECCO_COST_WEIGHTS 
            wobcsn(k,4) = wti(k)*0.02
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 291 ECCO_COST_WEIGHTS 
            wobcss(k,1) = wti(k)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 293 ECCO_COST_WEIGHTS 
            wobcss(k,3) = wti(k)*0.02
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 294 ECCO_COST_WEIGHTS 
            wobcss(k,4) = wti(k)*0.02
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 297 ECCO_COST_WEIGHTS 
            wobcsw(k,1) = wti(k)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 299 ECCO_COST_WEIGHTS 
            wobcsw(k,3) = wti(k)*0.02
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 300 ECCO_COST_WEIGHTS 
            wobcsw(k,4) = wti(k)*0.02
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 303 ECCO_COST_WEIGHTS 
            wobcse(k,1) = wti(k)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 305 ECCO_COST_WEIGHTS 
            wobcse(k,3) = wti(k)*0.02
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 306 ECCO_COST_WEIGHTS 
            wobcse(k,4) = wti(k)*0.02
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 60 ECCO_COST_WEIGHTS 
      _RL wti(nr)
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 106 COST_WEIGHTS 
               wtheta(k,bi,bj) = 1. _d 0/wti(k)/wti(k)
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 42 COST_WEIGHTS 
      _RL wti(Nr)
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 59 COST_WEIGHTS 
         wti(k) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 94 COST_WEIGHTS 
         wti(k) = tmpwti(k)
./pkg/ecco/ecco_cost_weights.F 108 ECCO_COST_WEIGHTS 
         wti(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 294 ECCO_COST_WEIGHTS 
            wtheta(k,bi,bj)   = wti(k)
./pkg/ecco/ecco_cost_weights.F 312 ECCO_COST_WEIGHTS 
            wobcsn(k,1) = wti(k)
./pkg/ecco/ecco_cost_weights.F 318 ECCO_COST_WEIGHTS 
            wobcss(k,1) = wti(k)
./pkg/ecco/ecco_cost_weights.F 324 ECCO_COST_WEIGHTS 
            wobcsw(k,1) = wti(k)
./pkg/ecco/ecco_cost_weights.F 330 ECCO_COST_WEIGHTS 
            wobcse(k,1) = wti(k)
./pkg/ecco/ecco_cost_weights.F 62 ECCO_COST_WEIGHTS 
      _RL wti(nr)