& objf_sst, num_sst,
& objf_sst, objf_tmi, objf_sss,
_RL objf_sst (nsx,nsy)
& + mult_sst * objf_sst(bi,bj)
f_sst = f_sst + objf_sst(bi,bj)
objf_sst(bi,bj) = 0. _d 0