| Symbol | Description | Uses |
| wud | 4 |
| File | Line number | Procedure | Code |
| ./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/cost_drifter.F | 302 | COST_DRIFTER |
& + (wud(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
| ./pkg/ecco/cost_drifter.F | 311 | COST_DRIFTER |
if ( wud(i,j,bi,bj) .ne. 0. ) |
| ./pkg/ecco/cost_drifter.F | 74 | COST_DRIFTER |
_RL wud (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |