INTEGER COMM_MSG
PARAMETER ( COMM_MSG = 2 )
IF ( eastCommMode .EQ. COMM_MSG ) THEN
IF ( southCommMode .EQ. COMM_MSG ) THEN
IF ( northCommMode .EQ. COMM_MSG ) THEN
IF ( westCommMode .EQ. COMM_MSG ) THEN
tileCommModeW(bi,bj) = COMM_MSG
tileCommModeE(bi,bj) = COMM_MSG
tileCommModeS(bi,bj) = COMM_MSG
tileCommModeN(bi,bj) = COMM_MSG
commName(COMM_MSG ) = 'messages'