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