& exch2_txGlobalo,exch2_tyGlobalo,
INTEGER exch2_tyGlobalo(W2_maxNbTiles )
exch2_tyGlobalo(I) = 0
& ' on Glob.Map=', exch2_txGlobalo(is),exch2_tyGlobalo(is)
exch2_tyGlobalo( tId ) = 1 + exch2_tBasey(tId)
exch2_tyGlobalo( tId ) = 1
exch2_tyGlobalo( tId ) = 1 + ii/W2_mapIO
& ' on Glob.Map=', exch2_txGlobalo(tId),exch2_tyGlobalo(tId)
j0y = DFLOAT( exch2_tyGlobalo(nT) - 1 )
tBy = exch2_tyGlobalo(tN) - 1
& 'exch2_tyGlobalo', 1, exch2_tyGlobalo(tnum), myThid)
jG0 = exch2_tyGlobalo(tN)