Symbol Description Uses
objf_ctds 6



File Line number Procedure Code
./pkg/ecco/ecco_cost_init_varia.F 121 ECCO_COST_INIT_VARIA
          objf_ctds(bi,bj)     = 0. _d 0
./pkg/ecco/cost_hyd.F 254 COST_HYD
     &     0, ctdsfile, objf_ctds, num_ctds,
./pkg/ecco/ecco_cost.h 379 NO PROCEDURE
     &     objf_ctdt,      objf_ctds,
./pkg/ecco/ecco_cost.h 444 NO PROCEDURE
      _RL  objf_ctds (nsx,nsy)
./pkg/ecco/ecco_cost_final.F 454 ECCO_COST_FINAL
     &         + mult_ctds    * objf_ctds(bi,bj)
./pkg/ecco/ecco_cost_final.F 610 ECCO_COST_FINAL
          f_ctds = f_ctds + objf_ctds(bi,bj)