Symbol Description Uses
objf_tdrift 7



File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 225 ECCO_COST_FINAL
     &            + mult_tdrift  * objf_tdrift(bi,bj)
./pkg/ecco/ecco_cost_final.F 280 ECCO_COST_FINAL
          f_tdrift = f_tdrift + objf_tdrift(bi,bj)
./pkg/ecco/ecco_cost.h 314 NO PROCEDURE
     &                objf_tdrift,
./pkg/ecco/ecco_cost.h 365 NO PROCEDURE
      _RL  objf_tdrift(nsx,nsy)
./pkg/ecco/cost_drift.F 249 COST_DRIFT
          objf_tdrift(bi,bj) = objf_tdrift(bi,bj) + fctilet
./pkg/ecco/ecco_cost_initvaria.F 109 ECCO_COST_INITVARIA
          objf_tdrift(bi,bj)   = 0. _d 0