tmpNumGlo = 0. _d 0
CALL GLOBAL_SUM_TILE_RL( tmpNumTile, tmpNumGlo, myThid )
& irec,' ',tmpMeanGlo,tmpNumGlo
_RL tmpMeanGlo,tmpNumGlo