iG0 = exch2_txGlobalo(tN)
iReg(5,j) = iG0
INTEGER iG0, jG0
iG0 = myXGlobalLo+(bi-1)*sNx
iG0 = exch2_tBasex(tN)
iG0 = myXGlobalLo - 1 + (bi-1)*sNx
DO i=1, iG0
xG0 = xG0 - delX( 1+MOD(iG0-i+OLx*gridNx,gridNx) )
delXloc(i) = delX( 1+MOD(iG0+i-1+OLx*gridNx,gridNx) )