nbTx = fNx/tNx
& ' ;', nbTx*nbTy, ' tiles (Tx,Ty=', nbTx,',',nbTy,')'
INTEGER nbTx, nbTy
DO tx=1,nbTx
IF ( nbTx*tNx .NE. fNx ) THEN
tCnt = tCnt + nbTx*nbTy
nbTx = facet_dims(2*js-1)/tNx
it = is + it*nbTx
nbTx = facet_dims(2*jt-1)/tNx
it = facet_owns(1,jt) + tx + ty*nbTx
INTEGER tNx, tNy, nbTx, nbNeighb