Symbol Description Uses
wobcse 43



File Line number Procedure Code
./verification/OpenAD/code_oad_all/ctrl_pack.F 346 CTRL_PACK
     &         weighttype, wobcse, lxxadxx, mythid)
./verification/global1x1_tot/code/ecco_cost_weights.F 1168 ECCO_COST_WEIGHTS
              if (wobcse(k,iobcs) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1169 ECCO_COST_WEIGHTS
                 wobcse(k,iobcs) =
./verification/global1x1_tot/code/ecco_cost_weights.F 1170 ECCO_COST_WEIGHTS
     &                ratio/wobcse(k,iobcs)/wobcse(k,iobcs)
./verification/global1x1_tot/code/ecco_cost_weights.F 1172 ECCO_COST_WEIGHTS
                 wobcse(k,iobcs) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 177 ECCO_COST_WEIGHTS
          wobcse(k,iobcs) = 0. _d 0
./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 306 ECCO_COST_WEIGHTS
            wobcse(k,2) = wsi(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_taueddy/ecco_cost_weights.F 1161 ECCO_COST_WEIGHTS
              if (wobcse(k,iobcs) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1162 ECCO_COST_WEIGHTS
                 wobcse(k,iobcs) = 
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1163 ECCO_COST_WEIGHTS
     &                ratio/wobcse(k,iobcs)/wobcse(k,iobcs)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1165 ECCO_COST_WEIGHTS
                 wobcse(k,iobcs) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 175 ECCO_COST_WEIGHTS
          wobcse(k,iobcs) = 0. _d 0
./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 304 ECCO_COST_WEIGHTS
            wobcse(k,2) = wsi(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
./pkg/admtlm/admtlm_dsvd2model.F 454 ADMTLM_DSVD2MODEL
     &         weighttype, wobcse, nWetobcseGlo, mythid)
./pkg/admtlm/admtlm_model2dsvd.F 366 ADMTLM_MODEL2DSVD
     &         weighttype, wobcse, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 363 CTRL_PACK
     &         weighttype, wobcse, lxxadxx, mythid)
./pkg/ctrl/ctrl_unpack.F 456 CTRL_UNPACK
     &         weighttype, wobcse, nWetobcseGlo, mythid)
./pkg/ctrl/ctrl_weights.h 41 NO PROCEDURE
     &                      wobcse, wobcseLev
./pkg/ctrl/ctrl_weights.h 42 NO PROCEDURE
      _RL wobcse     (                      nr,nobcs)
./pkg/ecco/cost_obcse.F 132 COST_OBCSE
     &                    wobcse(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcse.F 169 COST_OBCSE
     &                    wobcse(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcse.F 205 COST_OBCSE
     &                    wobcse(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcse.F 242 COST_OBCSE
     &                    wobcse(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/ecco_cost.h 1180 NO PROCEDURE
     &                      wobcse, wobcseLev
./pkg/ecco/ecco_cost.h 1181 NO PROCEDURE
      _RL wobcse     (                      nr,nobcs)
./pkg/ecco/ecco_cost_weights.F 1810 ECCO_COST_WEIGHTS
              if (wobcse(k,iobcs) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1811 ECCO_COST_WEIGHTS
                 wobcse(k,iobcs) =
./pkg/ecco/ecco_cost_weights.F 1812 ECCO_COST_WEIGHTS
     &                ratio/wobcse(k,iobcs)/wobcse(k,iobcs)
./pkg/ecco/ecco_cost_weights.F 1814 ECCO_COST_WEIGHTS
                 wobcse(k,iobcs) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 212 ECCO_COST_WEIGHTS
          wobcse(k,iobcs) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 330 ECCO_COST_WEIGHTS
            wobcse(k,1) = wti(k)
./pkg/ecco/ecco_cost_weights.F 331 ECCO_COST_WEIGHTS
            wobcse(k,2) = wsi(k)
./pkg/ecco/ecco_cost_weights.F 332 ECCO_COST_WEIGHTS
            wobcse(k,3) = wvi(k)
./pkg/ecco/ecco_cost_weights.F 333 ECCO_COST_WEIGHTS
            wobcse(k,4) = wvi(k)