Symbol Description Uses
num_wdrift 6


File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 323 ECCO_COST_FINAL 
          no_wdrift = no_wdrift + num_wdrift(bi,bj)
./pkg/ecco/ecco_cost.h 420 NO PROCEDURE 
     &                num_wdrift,
./pkg/ecco/ecco_cost.h 471 NO PROCEDURE 
      _RL  num_wdrift(nsx,nsy)
./pkg/ecco/cost_driftw.F 196 COST_DRIFTW 
     &                 num_wdrift(bi,bj) = num_wdrift(bi,bj) + 1. _d 0
./pkg/ecco/ecco_cost_initvaria.F 156 ECCO_COST_INITVARIA 
          num_wdrift(bi,bj)   = 0. _d 0