Philippe 02/02/2023: do not use MPI_IN_PLACE (because not implemented in MPIVIDE)

src/MNH/aircraft_balloon.f90

@@ -197,8 +197,18 @@ USE MODD_PRECISION,                  ONLY: MNHINT_MPI
 USE MODD_VAR_ll,                     ONLY: NMNH_COMM_WORLD
 
 INTEGER :: IERR
+INTEGER, DIMENSION(:), ALLOCATABLE :: IRANKNXT_AIRCRAFT_TMP
 
+#if 0
 CALL MPI_ALLREDUCE( MPI_IN_PLACE, NRANKNXT_AIRCRAFT, NAIRCRAFTS, MNHINT_MPI, MPI_MAX, NMNH_COMM_WORLD, IERR )
+#else
+!Do this to not use MPI_IN_PLACE (not yet implemented in MPIVIDE)
+ALLOCATE( IRANKNXT_AIRCRAFT_TMP, MOLD = NRANKNXT_AIRCRAFT )
+CALL MPI_ALLREDUCE( NRANKNXT_AIRCRAFT, IRANKNXT_AIRCRAFT_TMP, NAIRCRAFTS, MNHINT_MPI, MPI_MAX, NMNH_COMM_WORLD, IERR )
+NRANKNXT_AIRCRAFT = IRANKNXT_AIRCRAFT_TMP
+DEALLOCATE( IRANKNXT_AIRCRAFT_TMP )
+#endif
+
 DO JI = 1, NAIRCRAFTS
   IF ( NRANKNXT_AIRCRAFT(JI) /= NRANKCUR_AIRCRAFT(JI) ) THEN
     IF ( ISP == NRANKCUR_AIRCRAFT(JI) ) THEN
@@ -272,8 +282,17 @@ USE MODD_PRECISION,                  ONLY: MNHINT_MPI
 USE MODD_VAR_ll,                     ONLY: NMNH_COMM_WORLD
 
 INTEGER :: IERR
+INTEGER, DIMENSION(:), ALLOCATABLE :: IRANKNXT_BALLOON_TMP
 
+#if 0
 CALL MPI_ALLREDUCE( MPI_IN_PLACE, NRANKNXT_BALLOON, NBALLOONS, MNHINT_MPI, MPI_MAX, NMNH_COMM_WORLD, IERR )
+#else
+!Do this to not use MPI_IN_PLACE (not yet implemented in MPIVIDE)
+ALLOCATE( IRANKNXT_BALLOON_TMP, MOLD = NRANKNXT_BALLOON )
+CALL MPI_ALLREDUCE( NRANKNXT_BALLOON, IRANKNXT_BALLOON_TMP, NBALLOONS, MNHINT_MPI, MPI_MAX, NMNH_COMM_WORLD, IERR )
+NRANKNXT_BALLOON = IRANKNXT_BALLOON_TMP
+DEALLOCATE( IRANKNXT_BALLOON_TMP )
+#endif
 
 DO JI = 1, NBALLOONS
   IF ( NRANKNXT_BALLOON(JI) /= NRANKCUR_BALLOON(JI) ) THEN