Symbol Description Uses
wvdrift 6


File Line number Procedure Code
./pkg/ecco/cost_drifter.F 181 COST_DRIFTER 
         call MDSREADFIELD( vdrifterrfile, 32, 'RL', 1, wvdrift, 1,
./pkg/ecco/cost_drifter.F 277 COST_DRIFTER 
              wvd(i,j,bi,bj) = 1e4*max(wvdrift(i,j,bi,bj),5.D0)**(-2)
./pkg/ecco/ecco_cost_weights.F 133 ECCO_COST_WEIGHTS 
              wvdrift (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost.h 709 NO PROCEDURE 
     &                      wudrift,wvdrift,
./pkg/ecco/ecco_cost.h 746 NO PROCEDURE 
      _RL wvdrift (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
./verification/global1x1_tot/code/ecco_cost_weights.F 133 ECCO_COST_WEIGHTS 
              wvdrift (i,j,bi,bj) = 0. _d 0