Symbol Description Uses
wobcse 30



File Line number Procedure Code
./pkg/ecco/ecco_cost_weights.F 1001 ECCO_COST_WEIGHTS
                 wobcse(k,iobcs) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 181 ECCO_COST_WEIGHTS
          wobcse(k,iobcs) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 305 ECCO_COST_WEIGHTS
            wobcse(k,1) = wti(k)
./pkg/ecco/ecco_cost_weights.F 306 ECCO_COST_WEIGHTS
            wobcse(k,2) = wsi(k)
./pkg/ecco/ecco_cost_weights.F 307 ECCO_COST_WEIGHTS
            wobcse(k,3) = wti(k)*0.02
./pkg/ecco/ecco_cost_weights.F 308 ECCO_COST_WEIGHTS
            wobcse(k,4) = wti(k)*0.02
./pkg/ecco/ecco_cost_weights.F 997 ECCO_COST_WEIGHTS
              if (wobcse(k,iobcs) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 998 ECCO_COST_WEIGHTS
                 wobcse(k,iobcs) = 
./pkg/ecco/ecco_cost_weights.F 999 ECCO_COST_WEIGHTS
     &                ratio/wobcse(k,iobcs)/wobcse(k,iobcs)
./pkg/ecco/ecco_cost.h 785 NO PROCEDURE
     &                      wobcse, wobcseLev
./pkg/ecco/ecco_cost.h 786 NO PROCEDURE
      _RL wobcse     (                      nr,nobcs)
./pkg/ecco/cost_obcse.F 130 COST_OBCSE
     &                    wobcse(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcse.F 167 COST_OBCSE
     &                    wobcse(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcse.F 203 COST_OBCSE
     &                    wobcse(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcse.F 240 COST_OBCSE
     &                    wobcse(k,iobcs)*cosphi(i,j,bi,bj)*
./verification/global1x1_tot/code/ecco_cost_weights.F 1059 ECCO_COST_WEIGHTS
              if (wobcse(k,iobcs) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1060 ECCO_COST_WEIGHTS
                 wobcse(k,iobcs) = 
./verification/global1x1_tot/code/ecco_cost_weights.F 1061 ECCO_COST_WEIGHTS
     &                ratio/wobcse(k,iobcs)/wobcse(k,iobcs)
./verification/global1x1_tot/code/ecco_cost_weights.F 1063 ECCO_COST_WEIGHTS
                 wobcse(k,iobcs) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 181 ECCO_COST_WEIGHTS
          wobcse(k,iobcs) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 309 ECCO_COST_WEIGHTS
            wobcse(k,1) = wti(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 311 ECCO_COST_WEIGHTS
            wobcse(k,3) = wti(k)*0.02
./verification/global1x1_tot/code/ecco_cost_weights.F 312 ECCO_COST_WEIGHTS
            wobcse(k,4) = wti(k)*0.02
./pkg/ctrl/ctrl_weights.h 32 NO PROCEDURE
     &                      wobcse, wobcseLev
./pkg/ctrl/ctrl_weights.h 33 NO PROCEDURE
      _RL wobcse     (                      nr,nobcs)
./pkg/ctrl/ctrl_pack.F 333 CTRL_PACK
     &         weighttype, wobcse, lxxadxx, mythid)
./pkg/ctrl/ctrl_unpack.F 425 CTRL_UNPACK
     &         weighttype, wobcse, nWetobcseGlo, mythid)