Symbol Description Uses
objf_wdrift 7



File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 226 ECCO_COST_FINAL
     &            + mult_wdrift  * objf_wdrift(bi,bj)
./pkg/ecco/ecco_cost_final.F 281 ECCO_COST_FINAL
          f_wdrift = f_wdrift + objf_wdrift(bi,bj)
./pkg/ecco/ecco_cost.h 316 NO PROCEDURE
     &                objf_wdrift,
./pkg/ecco/ecco_cost.h 367 NO PROCEDURE
      _RL  objf_wdrift(nsx,nsy)
./pkg/ecco/cost_driftw.F 205 COST_DRIFTW
          objf_wdrift(bi,bj) = objf_wdrift(bi,bj) + fctilew
./pkg/ecco/ecco_cost_initvaria.F 107 ECCO_COST_INITVARIA
          objf_wdrift(bi,bj)   = 0. _d 0