INTEGER NULL_TILE
PARAMETER ( NULL_TILE = -1 )
IF ( tileNoW(bi,bj) .EQ. NULL_TILE ) THEN
IF ( tileNoE(bi,bj) .EQ. NULL_TILE ) THEN
IF ( tileNoS(bi,bj) .EQ. NULL_TILE ) THEN
IF ( tileNoN(bi,bj) .EQ. NULL_TILE ) THEN
IF ( tileNoW(I,J).NE. NULL_TILE ) THEN
IF ( tileNoE(I,J).NE. NULL_TILE ) THEN
IF ( tileNoS(I,J).NE. NULL_TILE ) THEN
IF ( tileNoN(I,J).NE. NULL_TILE ) THEN