Symbol Description Uses
wudrift 5


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