| Symbol | Description | Uses |
| wvd | 4 |
| File | Line number | Procedure | Code |
| ./pkg/ecco/cost_drifter.F | 280 | COST_DRIFTER |
wvd(i,j,bi,bj) = 1e4*max(wvdrift(i,j,bi,bj),5.D0)**(-2) |
| ./pkg/ecco/cost_drifter.F | 309 | COST_DRIFTER |
& + (wvd(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
| ./pkg/ecco/cost_drifter.F | 316 | COST_DRIFTER |
if ( wvd(i,j,bi,bj) .ne. 0. ) |
| ./pkg/ecco/cost_drifter.F | 78 | COST_DRIFTER |
_RL wvd (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |