Symbol Description Uses
objf_bottomdrag 6


File Line number Procedure Code
./pkg/ecco/ecco_cost_init_varia.F 154 ECCO_COST_INIT_VARIA 
          objf_bottomdrag(bi,bj)    = 0. _d 0
./pkg/ecco/cost_internal_params.F 112 COST_INTERNAL_PARAMS 
     &     dodimensionalcost2D, num_bottomdrag, objf_bottomdrag,
./pkg/ecco/ecco_cost.h 403 NO PROCEDURE 
     &     objf_bottomdrag,
./pkg/ecco/ecco_cost.h 505 NO PROCEDURE 
      _RL  objf_bottomdrag(nsx,nsy)
./pkg/ecco/ecco_cost_final.F 493 ECCO_COST_FINAL 
     &         + mult_bottomdrag * objf_bottomdrag(bi,bj)
./pkg/ecco/ecco_cost_final.F 631 ECCO_COST_FINAL 
          f_bottomdrag = f_bottomdrag + objf_bottomdrag(bi,bj)