| Symbol | Description | Uses |
| wud | 4 |
| File | Line number | Procedure | Code |
| ./pkg/ecco/cost_drifter.F | 279 | COST_DRIFTER |
wud(i,j,bi,bj) = 1e4*max(wudrift(i,j,bi,bj),5.D0)**(-2) |
| ./pkg/ecco/cost_drifter.F | 305 | COST_DRIFTER |
& + (wud(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
| ./pkg/ecco/cost_drifter.F | 314 | COST_DRIFTER |
if ( wud(i,j,bi,bj) .ne. 0. ) |
| ./pkg/ecco/cost_drifter.F | 77 | COST_DRIFTER |
_RL wud (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |