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