& , num_smrsst
_RL num_smrsst (nsx,nsy)
& objf_smrsst, num_smrsst,
& num_smrsst,num_smrsss
CALL GLOBAL_SUM_TILE_RL( num_smrsst, no_smrsst, myThid )
num_smrsst(bi,bj) = 0. _d 0