CALL GLOBAL_SUM_TILE_RL( myVolTile, myVolGlo, myThid )
if ( myVolGlo.GT.0. _d 0)
& myMeanGlo=mySumGlo/myVolGlo
_RL mySumGlo,myVolGlo,myMeanGlo
myVolGlo=0. _d 0