Symbol Description Uses
num_tdrift 6


File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 322 ECCO_COST_FINAL 
          no_tdrift = no_tdrift + num_tdrift(bi,bj)
./pkg/ecco/ecco_cost.h 418 NO PROCEDURE 
     &                num_tdrift,
./pkg/ecco/ecco_cost.h 469 NO PROCEDURE 
      _RL  num_tdrift(nsx,nsy)
./pkg/ecco/cost_drift.F 237 COST_DRIFT 
     &                 num_tdrift(bi,bj) = num_tdrift(bi,bj) + 1. _d 0
./pkg/ecco/ecco_cost_initvaria.F 158 ECCO_COST_INITVARIA 
          num_tdrift(bi,bj)   = 0. _d 0