single precision gpu test fix

Author: Krishnan Iyer

src/common/m_precision_select.f90

@@ -17,11 +17,13 @@ module m_precision_select
     integer, parameter :: double_precision = selected_real_kind(15, 307)
 
     ! Set the working precision (wp) to single or double precision
-#ifdef MFC_SINGLE_PRECISION
-    integer, parameter :: wp = single_precision  ! Change to single_precision if needed
-#else
-    integer, parameter :: wp = double_precision
-#endif
+! #ifdef MFC_SINGLE_PRECISION
+!     integer, parameter :: wp = single_precision  ! Change to single_precision if needed
+! #else
+!     integer, parameter :: wp = double_precision
+! #endif
+
+    integer, parameter :: wp = single_precision
 
     ! integer, parameter :: c_type = c_double
     ! integer, parameter :: c_type_complex = c_double_complex