& mult_precip,
_RL mult_precip
& mult_precip, mult_swflux, mult_swdown,
mult_precip = 0. _d 0
& + mult_precip * ( objf_precip(bi,bj)+objf_precipm(bi,bj)