Symbol Description Uses
objf_sdrift 7


File Line number Procedure Code
./pkg/ecco/cost_drift.F 276 COST_DRIFT 
          objf_sdrift(bi,bj) = objf_sdrift(bi,bj) + fctiles
./pkg/ecco/ecco_cost.h 411 NO PROCEDURE 
     &     objf_drift, objf_tdrift, objf_sdrift, objf_wdrift,
./pkg/ecco/ecco_cost.h 478 NO PROCEDURE 
      _RL  objf_sdrift(nsx,nsy)
./pkg/ecco/ecco_cost_final.F 357 ECCO_COST_FINAL 
     &         + mult_sdrift  * objf_sdrift(bi,bj)
./pkg/ecco/ecco_cost_final.F 475 ECCO_COST_FINAL 
          f_sdrift = f_sdrift + objf_sdrift(bi,bj)
./pkg/ecco/ecco_cost_init_varia.F 113 ECCO_COST_INIT_VARIA 
          objf_sdrift(bi,bj)   = 0. _d 0