Symbol Description Uses
objf_obcsw 7


File Line number Procedure Code
./pkg/ecco/cost_obcsw.F 182 COST_OBCSW 
            objf_obcsw(bi,bj) = objf_obcsw(bi,bj) + fctile
./pkg/ecco/ecco_cost.h 488 NO PROCEDURE 
     &     objf_obcsn, objf_obcss, objf_obcsw, objf_obcse,
./pkg/ecco/ecco_cost.h 594 NO PROCEDURE 
      _RL  objf_obcsw(nsx,nsy)
./pkg/ecco/ecco_cost_final.F 450 ECCO_COST_FINAL 
     &         + mult_obcsw   * objf_obcsw(bi,bj)
./pkg/ecco/ecco_cost_final.F 582 ECCO_COST_FINAL 
          f_obcsw  = f_obcsw + objf_obcsw(bi,bj)
./pkg/ecco/ecco_cost_init_varia.F 136 ECCO_COST_INIT_VARIA 
          objf_obcsw(bi,bj)    = 0. _d 0