Symbol Description Uses
wudrift 6


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