CALL GLOBAL_SUM_TILE_RL( tileNbPt, theNbPt, myThid )
IF ( theNbPt.GT.zeroRL ) THEN
theDel2 = SQRT(theDel2)/theNbPt
_RL theNbPt
theNbPt= 0.