Symbol Description Uses
wti 18



File Line number Procedure Code
./pkg/ecco/ecco_cost_weights.F 120 ECCO_COST_WEIGHTS
         wti(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 328 ECCO_COST_WEIGHTS
            wtheta(k,bi,bj)   = wti(k)
./pkg/ecco/ecco_cost_weights.F 347 ECCO_COST_WEIGHTS
            wobcsn(k,1) = wti(k)
./pkg/ecco/ecco_cost_weights.F 353 ECCO_COST_WEIGHTS
            wobcss(k,1) = wti(k)
./pkg/ecco/ecco_cost_weights.F 359 ECCO_COST_WEIGHTS
            wobcsw(k,1) = wti(k)
./pkg/ecco/ecco_cost_weights.F 365 ECCO_COST_WEIGHTS
            wobcse(k,1) = wti(k)
./pkg/ecco/ecco_cost_weights.F 71 ECCO_COST_WEIGHTS
      _RL wti(nr)
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 109 COST_WEIGHTS
               wtheta(k,bi,bj) = 1. _d 0/wti(k)/wti(k)
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 45 COST_WEIGHTS
      _RL wti(Nr)
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 62 COST_WEIGHTS
         wti(k) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 97 COST_WEIGHTS
         wti(k) = tmpwti(k)
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F 109 COST_WEIGHTS
               wtheta(k,bi,bj) = 1. _d 0/wti(k)/wti(k)
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F 45 COST_WEIGHTS
      _RL wti(Nr)
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F 62 COST_WEIGHTS
         wti(k) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F 97 COST_WEIGHTS
         wti(k) = tmpwti(k)