INTEGER COMM_NONE
PARAMETER ( COMM_NONE = 1 )
ELSEIF ( westCommMode .NE. COMM_NONE ) THEN
ELSEIF ( eastCommMode .NE. COMM_NONE ) THEN
ELSEIF ( southCommMode .NE. COMM_NONE ) THEN
ELSEIF ( northCommMode .NE. COMM_NONE ) THEN
tileCommModeW(bi,bj) = COMM_NONE
tileCommModeE(bi,bj) = COMM_NONE
tileCommModeS(bi,bj) = COMM_NONE
tileCommModeN(bi,bj) = COMM_NONE
commName(COMM_NONE) = 'none'