Symbol Description Uses
objf_bottomdrag 7


File Line number Procedure Code
./pkg/ecco/cost_bottomdrag.F 118 COST_BOTTOMDRAG 
            objf_bottomdrag(bi,bj) = objf_bottomdrag(bi,bj) + fctile
./pkg/ecco/ecco_cost.h 435 NO PROCEDURE 
     &     objf_bottomdrag,
./pkg/ecco/ecco_cost.h 536 NO PROCEDURE 
      _RL  objf_bottomdrag(nsx,nsy)
./pkg/ecco/ecco_cost_final.F 390 ECCO_COST_FINAL 
     &         + mult_bottomdrag * objf_bottomdrag(bi,bj)
./pkg/ecco/ecco_cost_final.F 490 ECCO_COST_FINAL 
          f_bottomdrag = f_bottomdrag + objf_bottomdrag(bi,bj)
./pkg/ecco/ecco_cost_init_varia.F 138 ECCO_COST_INIT_VARIA 
          objf_bottomdrag(bi,bj)    = 0. _d 0