& mult_vwind,
_RL mult_vwind
& mult_uwind, mult_vwind,
mult_vwind = 0. _d 0
& + mult_vwind * ( objf_vwind(bi,bj)+objf_vwindm(bi,bj)