Symbol Description Uses
num_sdrift 6



File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 321 ECCO_COST_FINAL
          no_sdrift = no_sdrift + num_sdrift(bi,bj)
./pkg/ecco/ecco_cost.h 419 NO PROCEDURE
     &                num_sdrift,
./pkg/ecco/ecco_cost.h 470 NO PROCEDURE
      _RL  num_sdrift(nsx,nsy)
./pkg/ecco/cost_drift.F 239 COST_DRIFT
     &                 num_sdrift(bi,bj) = num_sdrift(bi,bj) + 1. _d 0
./pkg/ecco/ecco_cost_initvaria.F 157 ECCO_COST_INITVARIA
          num_sdrift(bi,bj)   = 0. _d 0