check single precision to see if working with MPI

Author: arciyer123

src/common/m_mpi_common.fpp

@@ -378,10 +378,10 @@ contains
 
         ! Performing reduction procedure and eventually storing its result
         ! into the variable that was initially inputted into the subroutine
-        call MPI_REDUCE(var_loc, var_glb, 1, MPI_2DOUBLE_PRECISION, &
+        call MPI_REDUCE(var_loc, var_glb, 1, MPI_2REAL, &
                         MPI_MAXLOC, 0, MPI_COMM_WORLD, ierr)
 
-        call MPI_BCAST(var_glb, 1, MPI_2DOUBLE_PRECISION, &
+        call MPI_BCAST(var_glb, 1, MPI_2REAL, &
                        0, MPI_COMM_WORLD, ierr)
 
         var_loc = var_glb

src/common/m_precision_select.f90

@@ -14,11 +14,11 @@ module m_precision_select
     integer, parameter :: double_precision = selected_real_kind(15, 307)
 
     ! Set the working precision (wp) to single or double precision
-    integer, parameter :: wp = double_precision  ! Change to single_precision if needed
+    integer, parameter :: wp = single_precision  ! Change to single_precision if needed
 
 #ifdef MFC_MPI
     ! Set mpi_p based on wp using the merge intrinsic function
-    integer, parameter :: mpi_p = merge(MPI_DOUBLE_PRECISION, MPI_FLOAT, wp == double_precision)
+    integer, parameter :: mpi_p = merge(MPI_DOUBLE_PRECISION, MPI_REAL, wp == double_precision)
 #else
     integer, parameter :: mpi_p = -100  ! Default value when MPI is not used
 #endif