Symbol Description Uses
num_drift 8


File Line number Procedure Code
./pkg/ecco/cost_drifter.F 312 COST_DRIFTER 
     &                 num_drift(bi,bj) = num_drift(bi,bj) + 1. _d 0
./pkg/ecco/cost_drifter.F 314 COST_DRIFTER 
     &                 num_drift(bi,bj) = num_drift(bi,bj) + 1. _d 0
./pkg/ecco/ecco_cost_final.F 320 ECCO_COST_FINAL 
          no_drifter = no_drifter + num_drift(bi,bj)
./pkg/ecco/ecco_cost.h 417 NO PROCEDURE 
     &                num_drift,
./pkg/ecco/ecco_cost.h 468 NO PROCEDURE 
      _RL  num_drift(nsx,nsy)
./pkg/ecco/ecco_cost_initvaria.F 155 ECCO_COST_INITVARIA 
          num_drift(bi,bj)    = 0. _d 0