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