Symbol Description Uses
wobcss 43



File Line number Procedure Code
./verification/OpenAD/code_oad_all/ctrl_pack.F 328 CTRL_PACK
     &         weighttype, wobcss, lxxadxx, mythid)
./verification/global1x1_tot/code/ecco_cost_weights.F 1152 ECCO_COST_WEIGHTS
              if (wobcss(k,iobcs) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1153 ECCO_COST_WEIGHTS
                 wobcss(k,iobcs) =
./verification/global1x1_tot/code/ecco_cost_weights.F 1154 ECCO_COST_WEIGHTS
     &                ratio/wobcss(k,iobcs)/wobcss(k,iobcs)
./verification/global1x1_tot/code/ecco_cost_weights.F 1156 ECCO_COST_WEIGHTS
                 wobcss(k,iobcs) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 169 ECCO_COST_WEIGHTS
          wobcss(k,iobcs) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 293 ECCO_COST_WEIGHTS
            wobcss(k,1) = wti(k)
./verification/global1x1_tot/code/ecco_cost_weights.F 294 ECCO_COST_WEIGHTS
            wobcss(k,2) = wsi(k)
./verification/global1x1_tot/code/ecco_cost_weights.F 295 ECCO_COST_WEIGHTS
            wobcss(k,3) = wti(k)*0.02
./verification/global1x1_tot/code/ecco_cost_weights.F 296 ECCO_COST_WEIGHTS
            wobcss(k,4) = wti(k)*0.02
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1145 ECCO_COST_WEIGHTS
              if (wobcss(k,iobcs) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1146 ECCO_COST_WEIGHTS
                 wobcss(k,iobcs) = 
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1147 ECCO_COST_WEIGHTS
     &                ratio/wobcss(k,iobcs)/wobcss(k,iobcs)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1149 ECCO_COST_WEIGHTS
                 wobcss(k,iobcs) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 167 ECCO_COST_WEIGHTS
          wobcss(k,iobcs) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 291 ECCO_COST_WEIGHTS
            wobcss(k,1) = wti(k)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 292 ECCO_COST_WEIGHTS
            wobcss(k,2) = wsi(k)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 293 ECCO_COST_WEIGHTS
            wobcss(k,3) = wti(k)*0.02
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 294 ECCO_COST_WEIGHTS
            wobcss(k,4) = wti(k)*0.02
./pkg/admtlm/admtlm_dsvd2model.F 436 ADMTLM_DSVD2MODEL
     &         weighttype, wobcss, nWetobcssGlo, mythid)
./pkg/admtlm/admtlm_model2dsvd.F 348 ADMTLM_MODEL2DSVD
     &         weighttype, wobcss, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 345 CTRL_PACK
     &         weighttype, wobcss, lxxadxx, mythid)
./pkg/ctrl/ctrl_unpack.F 438 CTRL_UNPACK
     &         weighttype, wobcss, nWetobcssGlo, mythid)
./pkg/ctrl/ctrl_weights.h 29 NO PROCEDURE
     &                      wobcss, wobcssLev
./pkg/ctrl/ctrl_weights.h 30 NO PROCEDURE
      _RL wobcss     (                      nr,nobcs)
./pkg/ecco/cost_obcss.F 132 COST_OBCSS
     &                    wobcss(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcss.F 169 COST_OBCSS
     &                    wobcss(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcss.F 205 COST_OBCSS
     &                    wobcss(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcss.F 242 COST_OBCSS
     &                    wobcss(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/ecco_cost.h 1166 NO PROCEDURE
     &                      wobcss, wobcssLev
./pkg/ecco/ecco_cost.h 1167 NO PROCEDURE
      _RL wobcss     (                      nr,nobcs)
./pkg/ecco/ecco_cost_weights.F 1794 ECCO_COST_WEIGHTS
              if (wobcss(k,iobcs) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1795 ECCO_COST_WEIGHTS
                 wobcss(k,iobcs) =
./pkg/ecco/ecco_cost_weights.F 1796 ECCO_COST_WEIGHTS
     &                ratio/wobcss(k,iobcs)/wobcss(k,iobcs)
./pkg/ecco/ecco_cost_weights.F 1798 ECCO_COST_WEIGHTS
                 wobcss(k,iobcs) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 204 ECCO_COST_WEIGHTS
          wobcss(k,iobcs) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 318 ECCO_COST_WEIGHTS
            wobcss(k,1) = wti(k)
./pkg/ecco/ecco_cost_weights.F 319 ECCO_COST_WEIGHTS
            wobcss(k,2) = wsi(k)
./pkg/ecco/ecco_cost_weights.F 320 ECCO_COST_WEIGHTS
            wobcss(k,3) = wvi(k)
./pkg/ecco/ecco_cost_weights.F 321 ECCO_COST_WEIGHTS
            wobcss(k,4) = wvi(k)