& tileCommModeN, tileCommModeS,
INTEGER tileCommModeN ( nSx, nSy )
tileCommModeN(bi,bj) = COMM_NONE
tileCommModeN(bi,bj) = COMM_PUT
tileCommModeN(bi,bj) = COMM_MSG
& ', Comm = ',commName(tileCommModeN(I,J))