& mult_atemp,
_RL mult_atemp
& mult_atemp, mult_aqh,
mult_atemp = 0. _d 0
& + mult_atemp * ( objf_atemp(bi,bj)+objf_atempm(bi,bj)