VOLsumGlob_0=VOLsumGlob
CALL GLOBAL_SUM_TILE_RL( VOLsumTile, VOLsumGlob, myThid )
RHOsumGlob=RHOsumGlob/VOLsumGlob
VOLsumGlob=0. _d 0
& VOLsumGlob_0, VOLsumGlob,
_RL VOLsumGlob_0, VOLsumGlob, RHOsumGlob_0, RHOsumGlob