nGr = nRd
ELSEIF ( nRd+nGr+nBl.EQ.0 ) THEN
nGr = exch2_nTiles*sNx*sNy
tmpVar = FLOAT(nGr)/6.
IF ( nRd*nRd*6 .EQ. nGr ) THEN
& ' nTiles*sNx*sNy=', exch2_nTiles,' x',sNx,' x',sNy,' =',nGr
IF ( nRd*nGr*nBl.EQ.0 ) THEN
facet_dims(2) = nGr
INTEGER nRd, nGr, nBl
nGr = facet_dims(2)
IF ( nRd.GT.0 .AND. nGr+nBl.EQ.0 ) THEN