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