& , objf_smrsst
_RL objf_smrsst (nsx,nsy)
& objf_smrsst, num_smrsst,
& objf_smrsst,objf_smrsss
CALL GLOBAL_SUM_TILE_RL( objf_smrsst, f_smrsst, myThid )
& + mult_smrsst * objf_smrsst(bi,bj)
objf_smrsst(bi,bj) = 0. _d 0