Symbol Description Uses
objf_tdrift 7


File Line number Procedure Code
./pkg/ecco/cost_drift.F 270 COST_DRIFT 
          objf_tdrift(bi,bj) = objf_tdrift(bi,bj) + fctilet
./pkg/ecco/ecco_cost.h 473 NO PROCEDURE 
     &     objf_drift, objf_tdrift, objf_sdrift, objf_wdrift,
./pkg/ecco/ecco_cost.h 546 NO PROCEDURE 
      _RL  objf_tdrift(nsx,nsy)
./pkg/ecco/ecco_cost_final.F 424 ECCO_COST_FINAL 
     &         + mult_tdrift  * objf_tdrift(bi,bj)
./pkg/ecco/ecco_cost_final.F 565 ECCO_COST_FINAL 
          f_tdrift = f_tdrift + objf_tdrift(bi,bj)
./pkg/ecco/ecco_cost_init_varia.F 120 ECCO_COST_INIT_VARIA 
          objf_tdrift(bi,bj)   = 0. _d 0