INTEGER max_npart_tile, max_npart_exch
PARAMETER (max_npart_exch = 50)
IF ( icountW.LE.max_npart_exch ) THEN
IF ( icountE.GT.max_npart_exch ) THEN
& ' > max_npart_exch=', max_npart_exch
IF ( icountW.GT.max_npart_exch ) THEN
IF ( icountE.GT.max_npart_exch
& .OR. icountW.GT.max_npart_exch ) THEN
DO ip=1,max_npart_exch
IF ( icountN.LE.max_npart_exch ) THEN
IF ( icountS.LE.max_npart_exch ) THEN
IF ( icountN.GT.max_npart_exch ) THEN
IF ( icountS.GT.max_npart_exch ) THEN
INTEGER deleteList(max_npart_exch*2)
IF ( icountN.GT.max_npart_exch
& .OR. icountS.GT.max_npart_exch ) THEN
PARAMETER(imax2=imax*max_npart_exch)
IF ( icountE.LE.max_npart_exch ) THEN