Symbol Description Uses
wvdrift 5


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