Merge pull request #14397 from mcgratta/master

FDS Source: Replace ALLREDUCE with REDUCE

Author: mcgratta

Source/main.f90

@@ -4115,8 +4115,12 @@ SUBROUTINE DUMP_GLOBAL_OUTPUTS
 ! Dump out mass info into CHID_mass.csv
 
 IF (T>=MASS_CLOCK(MASS_COUNTER(1))) THEN
-   CALL MPI_ALLREDUCE(MPI_IN_PLACE,MASS_DT,1+N_SPECIES+N_TRACKED_SPECIES,MPI_DOUBLE_PRECISION,MPI_SUM,MPI_COMM_WORLD,IERR)
-   IF (MY_RANK==0) CALL DUMP_MASS(T,DT)
+   IF (MY_RANK==0) THEN
+      CALL MPI_REDUCE(MPI_IN_PLACE,MASS_DT,1+N_SPECIES+N_TRACKED_SPECIES,MPI_DOUBLE_PRECISION,MPI_SUM,0,MPI_COMM_WORLD,IERR)
+      CALL DUMP_MASS(T,DT)
+   ELSE
+      CALL MPI_REDUCE(MASS_DT,MASS_DT,1+N_SPECIES+N_TRACKED_SPECIES,MPI_DOUBLE_PRECISION,MPI_SUM,0,MPI_COMM_WORLD,IERR)
+   ENDIF
    MASS_COUNTER(1) = MASS_COUNTER(1) + 1
    MASS_DT   = 0._EB
    T_LAST_DUMP_MASS = T