Symbol Description Uses
wobcsw 43



File Line number Procedure Code
./verification/OpenAD/code_oad_all/ctrl_pack.F 337 CTRL_PACK
     &         weighttype, wobcsw, lxxadxx, mythid)
./verification/global1x1_tot/code/ecco_cost_weights.F 1160 ECCO_COST_WEIGHTS
              if (wobcsw(k,iobcs) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1161 ECCO_COST_WEIGHTS
                 wobcsw(k,iobcs) =
./verification/global1x1_tot/code/ecco_cost_weights.F 1162 ECCO_COST_WEIGHTS
     &                ratio/wobcsw(k,iobcs)/wobcsw(k,iobcs)
./verification/global1x1_tot/code/ecco_cost_weights.F 1164 ECCO_COST_WEIGHTS
                 wobcsw(k,iobcs) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 173 ECCO_COST_WEIGHTS
          wobcsw(k,iobcs) = 0. _d 0
./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 300 ECCO_COST_WEIGHTS
            wobcsw(k,2) = wsi(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_taueddy/ecco_cost_weights.F 1153 ECCO_COST_WEIGHTS
              if (wobcsw(k,iobcs) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1154 ECCO_COST_WEIGHTS
                 wobcsw(k,iobcs) = 
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1155 ECCO_COST_WEIGHTS
     &                ratio/wobcsw(k,iobcs)/wobcsw(k,iobcs)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1157 ECCO_COST_WEIGHTS
                 wobcsw(k,iobcs) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 171 ECCO_COST_WEIGHTS
          wobcsw(k,iobcs) = 0. _d 0
./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 298 ECCO_COST_WEIGHTS
            wobcsw(k,2) = wsi(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
./pkg/admtlm/admtlm_dsvd2model.F 445 ADMTLM_DSVD2MODEL
     &         weighttype, wobcsw, nWetobcswGlo, mythid)
./pkg/admtlm/admtlm_model2dsvd.F 357 ADMTLM_MODEL2DSVD
     &         weighttype, wobcsw, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 354 CTRL_PACK
     &         weighttype, wobcsw, lxxadxx, mythid)
./pkg/ctrl/ctrl_unpack.F 447 CTRL_UNPACK
     &         weighttype, wobcsw, nWetobcswGlo, mythid)
./pkg/ctrl/ctrl_weights.h 35 NO PROCEDURE
     &                      wobcsw, wobcswLev
./pkg/ctrl/ctrl_weights.h 36 NO PROCEDURE
      _RL wobcsw     (                      nr,nobcs)
./pkg/ecco/cost_obcsw.F 132 COST_OBCSW
     &                    wobcsw(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcsw.F 169 COST_OBCSW
     &                    wobcsw(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcsw.F 205 COST_OBCSW
     &                    wobcsw(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcsw.F 242 COST_OBCSW
     &                    wobcsw(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/ecco_cost.h 1173 NO PROCEDURE
     &                      wobcsw, wobcswLev
./pkg/ecco/ecco_cost.h 1174 NO PROCEDURE
      _RL wobcsw     (                      nr,nobcs)
./pkg/ecco/ecco_cost_weights.F 1802 ECCO_COST_WEIGHTS
              if (wobcsw(k,iobcs) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1803 ECCO_COST_WEIGHTS
                 wobcsw(k,iobcs) =
./pkg/ecco/ecco_cost_weights.F 1804 ECCO_COST_WEIGHTS
     &                ratio/wobcsw(k,iobcs)/wobcsw(k,iobcs)
./pkg/ecco/ecco_cost_weights.F 1806 ECCO_COST_WEIGHTS
                 wobcsw(k,iobcs) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 208 ECCO_COST_WEIGHTS
          wobcsw(k,iobcs) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 324 ECCO_COST_WEIGHTS
            wobcsw(k,1) = wti(k)
./pkg/ecco/ecco_cost_weights.F 325 ECCO_COST_WEIGHTS
            wobcsw(k,2) = wsi(k)
./pkg/ecco/ecco_cost_weights.F 326 ECCO_COST_WEIGHTS
            wobcsw(k,3) = wvi(k)
./pkg/ecco/ecco_cost_weights.F 327 ECCO_COST_WEIGHTS
            wobcsw(k,4) = wvi(k)