Symbol Description Uses
objf_tdrift 7


File Line number Procedure Code
./pkg/ecco/cost_drift.F 275 COST_DRIFT 
          objf_tdrift(bi,bj) = objf_tdrift(bi,bj) + fctilet
./pkg/ecco/ecco_cost.h 411 NO PROCEDURE 
     &     objf_drift, objf_tdrift, objf_sdrift, objf_wdrift,
./pkg/ecco/ecco_cost.h 477 NO PROCEDURE 
      _RL  objf_tdrift(nsx,nsy)
./pkg/ecco/ecco_cost_final.F 358 ECCO_COST_FINAL 
     &         + mult_tdrift  * objf_tdrift(bi,bj)
./pkg/ecco/ecco_cost_final.F 476 ECCO_COST_FINAL 
          f_tdrift = f_tdrift + objf_tdrift(bi,bj)
./pkg/ecco/ecco_cost_init_varia.F 114 ECCO_COST_INIT_VARIA 
          objf_tdrift(bi,bj)   = 0. _d 0