From 0454d154b2b1f714b7d0ee521abec4ebbe2e6db7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Markus=20M=C3=BCtzel?= Date: Sun, 12 Jan 2025 10:39:15 +0100 Subject: [PATCH] Avoid build error when building without MPI. Use `MPI_DOUBLE_PRECISION` instead of `MPI_DOUBLE`. --- elmerice/Solvers/BasalMelt3D.F90 | 4 ++-- elmerice/Solvers/PlumeSolver.F90 | 8 ++++---- fem/src/modules/SaveGridData.F90 | 2 +- 3 files changed, 7 insertions(+), 7 deletions(-) diff --git a/elmerice/Solvers/BasalMelt3D.F90 b/elmerice/Solvers/BasalMelt3D.F90 index ee8d6d904e..336951ccff 100644 --- a/elmerice/Solvers/BasalMelt3D.F90 +++ b/elmerice/Solvers/BasalMelt3D.F90 @@ -323,7 +323,7 @@ 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 @@ -331,7 +331,7 @@ SUBROUTINE BasalMelt3D (Model, Solver, dt, TransientSimulation) #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 index e491b30d33..2f7db7bc76 100644 --- a/elmerice/Solvers/PlumeSolver.F90 +++ b/elmerice/Solvers/PlumeSolver.F90 @@ -932,21 +932,21 @@ 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 @@ -954,7 +954,7 @@ END SUBROUTINE PlumeSolver #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 index 2e741e023c..2b8a4f1da5 100644 --- 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