& mult_uwind,
_RL mult_uwind
& mult_uwind, mult_vwind,
mult_uwind = 0. _d 0
& + mult_uwind * ( objf_uwind(bi,bj)+objf_uwindm(bi,bj)