Symbol Description Uses
num_wdrift 6


File Line number Procedure Code
./pkg/ecco/cost_driftw.F 195 COST_DRIFTW 
     &                 num_wdrift(bi,bj) = num_wdrift(bi,bj) + 1. _d 0
./pkg/ecco/ecco_cost.h 651 NO PROCEDURE 
     &                num_wdrift,
./pkg/ecco/ecco_cost.h 740 NO PROCEDURE 
      _RL  num_wdrift(nsx,nsy)
./pkg/ecco/ecco_cost_final.F 668 ECCO_COST_FINAL 
          no_wdrift = no_wdrift + num_wdrift(bi,bj)
./pkg/ecco/ecco_cost_init_varia.F 195 ECCO_COST_INIT_VARIA 
          num_wdrift(bi,bj)   = 0. _d 0