tmpSumGlo=0. _d 0
CALL GLOBAL_SUM_TILE_RL( tmpSumTile, tmpSumGlo, myThid )
& tmpMeanGlo=tmpSumGlo/tmpVolGlo
_RL tmpSumGlo,tmpVolGlo,tmpMeanGlo