Symbol Description Uses
wobcse 18



File Line number Procedure Code
./pkg/ecco/ecco_cost_weights.F 1929 ECCO_COST_WEIGHTS
              if (wobcse(k,iobcs) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1930 ECCO_COST_WEIGHTS
                 wobcse(k,iobcs) =
./pkg/ecco/ecco_cost_weights.F 1931 ECCO_COST_WEIGHTS
     &                ratio/wobcse(k,iobcs)/wobcse(k,iobcs)
./pkg/ecco/ecco_cost_weights.F 1933 ECCO_COST_WEIGHTS
                 wobcse(k,iobcs) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 235 ECCO_COST_WEIGHTS
          wobcse(k,iobcs) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 365 ECCO_COST_WEIGHTS
            wobcse(k,1) = wti(k)
./pkg/ecco/ecco_cost_weights.F 366 ECCO_COST_WEIGHTS
            wobcse(k,2) = wsi(k)
./pkg/ecco/ecco_cost_weights.F 367 ECCO_COST_WEIGHTS
            wobcse(k,3) = wvi(k)
./pkg/ecco/ecco_cost_weights.F 368 ECCO_COST_WEIGHTS
            wobcse(k,4) = wvi(k)
./pkg/admtlm/admtlm_dsvd2model.F 455 ADMTLM_DSVD2MODEL
     &         weighttype, wobcse, nWetobcseGlo, mythid)
./pkg/admtlm/admtlm_model2dsvd.F 368 ADMTLM_MODEL2DSVD
     &         weighttype, wobcse, lxxadxx, mythid)
./pkg/ctrl/CTRL_OBCS.h 148 NO PROCEDURE
     &                      wobcse, wobcseLev
./pkg/ctrl/CTRL_OBCS.h 149 NO PROCEDURE
      _RL wobcse     (                      nr,nobcs)
./pkg/ctrl/ctrl_pack.F 309 CTRL_PACK
     &         weighttype, wobcse, lxxadxx, mythid)
./pkg/ctrl/ctrl_unpack.F 397 CTRL_UNPACK
     &         weighttype, wobcse, nWetobcseGlo, mythid)
./pkg/ecco/cost_obcse.F 184 COST_OBCSE
                  fctile = fctile + wobcse(k,iobcs)
./pkg/ecco/cost_obcse.F 188 COST_OBCSE
                  if (wobcse(k,iobcs)*maskyz(j,k,bi,bj).ne.0.)