FDS Source: Issue #14281. Limit MPI particle exchange to separate nodes

Author: mcgratta

Source/main.f90

@@ -2660,7 +2660,7 @@ SUBROUTINE POST_RECEIVES(CODE)
 
          ! Set up persistent receive requests
 
-         IF (MPI_PARTICLE_EXCHANGE) THEN
+         IF (MPI_PARTICLE_EXCHANGE .AND. RNODE/=SNODE) THEN
             OS => M3%PARTICLE_RECV_BUFFER
             N_REQ2=N_REQ2+1 ; CALL MPI_RECV_INIT(OS%N_ITEMS   ,1,MPI_INTEGER,SNODE,NOM,MPI_COMM_WORLD,REQ2(N_REQ2),IERR)
             N_REQ2=N_REQ2+1 ; CALL MPI_RECV_INIT(OS%N_REALS   ,1,MPI_INTEGER,SNODE,NOM,MPI_COMM_WORLD,REQ2(N_REQ2),IERR)
@@ -2871,7 +2871,7 @@ SUBROUTINE MESH_EXCHANGE(CODE)
 
          ! Initialize persistent send requests
 
-         IF (MPI_PARTICLE_EXCHANGE) THEN
+         IF (MPI_PARTICLE_EXCHANGE .AND. RNODE/=SNODE) THEN
             OS => M3%PARTICLE_SEND_BUFFER
             N_REQ2=N_REQ2+1 ; CALL MPI_SEND_INIT(OS%N_ITEMS   ,1,MPI_INTEGER,RNODE,NM,MPI_COMM_WORLD,REQ2(N_REQ2),IERR)
             N_REQ2=N_REQ2+1 ; CALL MPI_SEND_INIT(OS%N_REALS   ,1,MPI_INTEGER,RNODE,NM,MPI_COMM_WORLD,REQ2(N_REQ2),IERR)