Avoid build error when building without MPI.

Use `MPI_DOUBLE_PRECISION` instead of `MPI_DOUBLE`.
ElmerCSC · Jan 12, 2025 · 0454d15 · 0454d15
1 parent d42061e
commit 0454d15
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 7 deletions.
diff --git a/elmerice/Solvers/BasalMelt3D.F90 b/elmerice/Solvers/BasalMelt3D.F90
@@ -323,15 +323,15 @@ SUBROUTINE BasalMelt3D (Model, Solver, dt, TransientSimulation)
 #else
       CALL MPI_AllReduce(MPI_IN_PLACE, &
 #endif
-           TotalArea, 1, MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD, ierr)
+           TotalArea, 1, MPI_DOUBLE_PRECISION, MPI_SUM, MPI_COMM_WORLD, ierr)
 
 #ifdef ELMER_BROKEN_MPI_IN_PLACE
       buffer = TotalBMelt
       CALL MPI_AllReduce(buffer, &
 #else
       CALL MPI_AllReduce(MPI_IN_PLACE, &
 #endif
-           TotalBMelt, 1, MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD, ierr)
+           TotalBMelt, 1, MPI_DOUBLE_PRECISION, MPI_SUM, MPI_COMM_WORLD, ierr)
 
       IF(ParEnv % MyPE == 0) THEN
         IF(.NOT. Visited) THEN

diff --git a/elmerice/Solvers/PlumeSolver.F90 b/elmerice/Solvers/PlumeSolver.F90
@@ -932,29 +932,29 @@ END SUBROUTINE PlumeSolver
 #else
       CALL MPI_AllReduce(MPI_IN_PLACE, &
 #endif
-           TotalArea, 1, MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD, ierr)
+           TotalArea, 1, MPI_DOUBLE_PRECISION, MPI_SUM, MPI_COMM_WORLD, ierr)
 #ifdef ELMER_BROKEN_MPI_IN_PLACE
       buffer = TotalPMelt
       CALL MPI_AllReduce(buffer, &
 #else
       CALL MPI_AllReduce(MPI_IN_PLACE, &
 #endif
-           TotalPMelt, 1, MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD, ierr)
+           TotalPMelt, 1, MPI_DOUBLE_PRECISION, MPI_SUM, MPI_COMM_WORLD, ierr)
 #ifdef ELMER_BROKEN_MPI_IN_PLACE
       buffer = TotalBMelt
       CALL MPI_AllReduce(buffer, &
 #else
       CALL MPI_AllReduce(MPI_IN_PLACE, &
 #endif
-           TotalBMelt, 1, MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD, ierr)
+           TotalBMelt, 1, MPI_DOUBLE_PRECISION, MPI_SUM, MPI_COMM_WORLD, ierr)
       IF(RemoveToe) THEN
 #ifdef ELMER_BROKEN_MPI_IN_PLACE
         buffer = TotalToeMelt
         CALL MPI_AllReduce(buffer, &
 #else
         CALL MPI_AllReduce(MPI_IN_PLACE, &
 #endif
-             TotalToeMelt, 1, MPI_DOUBLE, &
+             TotalToeMelt, 1, MPI_DOUBLE_PRECISION, &
              MPI_SUM, MPI_COMM_WORLD, ierr)
       END IF
 

diff --git a/fem/src/modules/SaveGridData.F90 b/fem/src/modules/SaveGridData.F90
@@ -1166,7 +1166,7 @@ SUBROUTINE WriteNetCDFFile( NetCDFFile )
           END DO ! k
 
           IF(Parallel) THEN
-            CALL MPI_REDUCE(Array,PArray,nx*ny*nz,MPI_DOUBLE,MPI_MAX,0,ELMER_COMM_WORLD, ierr)
+            CALL MPI_REDUCE(Array,PArray,nx*ny*nz,MPI_DOUBLE_PRECISION,MPI_MAX,0,ELMER_COMM_WORLD, ierr)
             IF(Part == 0) Array=PArray
           END IF