jG0 = myYGlobalLo+(bj-1)*sNy
jG0 = exch2_tyGlobalo(tN)
iReg(6,j) = jG0
INTEGER iG0, jG0
jG0 = exch2_tBasey(tN)
jG0 = myYGlobalLo - 1 + (bj-1)*sNy
DO j=1, jG0
yG0 = yG0 - delY( 1+MOD(jG0-j+OLy*gridNy,gridNy) )
delYloc(j) = delY( 1+MOD(jG0+j-1+OLy*gridNy,gridNy) )