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