CALL GLOBAL_SUM_TILE_RL( tileArea, threadArea, myThid )
globalArea = threadArea
_RL tileArea(nSx,nSy), threadArea
threadArea = 0. _d 0