Fixed for No double precision intrinsics warning

Author: XZTian64

src/common/m_checker_common.fpp

@@ -318,7 +318,7 @@ contains
     impure subroutine s_check_inputs_surface_tension
 #ifdef MFC_PRE_PROCESS
         integer :: i
-#endif MFC_PRE_PROCESS
+#endif
 
         @:PROHIBIT(surface_tension .and. sigma < 0._wp, &
             "sigma must be greater than or equal to zero")
@@ -340,7 +340,7 @@ contains
             @:PROHIBIT(surface_tension .and. f_is_default(patch_icpp(i)%cf_val), &
                 "patch_icpp(i)%cf_val must be set if surface_tension is enabled")
         end do
-#endif MFC_PRE_PROCESS
+#endif
 
     end subroutine s_check_inputs_surface_tension
 

src/common/m_finite_differences.fpp

@@ -98,7 +98,7 @@ contains
 
 #ifdef MFC_POST_PROCESS
         if (allocated(fd_coeff_s)) deallocate (fd_coeff_s)
-        allocate (fd_coeff_s(-fd_number_in:fd_number_in, lb:lE))
+        allocate (fd_coeff_s(-fd_number:fd_number, lb:lE))
 #endif
 
         ! Computing the 1st order finite-difference coefficients

src/common/m_helper_basic.f90

@@ -21,7 +21,7 @@ module m_helper_basic
     !> This procedure checks if two floating point numbers of wp are within tolerance.
     !! @param a First number.
     !! @param b Second number.
-    !! @param tol_input Relative error (default = 1.e-10_wp for double precision and 1e-6 for single).
+    !! @param tol_input Relative error (default = 1.e-10_wp for double and 1e-6 for single).
     !! @return Result of the comparison.
     logical pure elemental function f_approx_equal(a, b, tol_input) result(res)
         !$acc routine seq
@@ -33,9 +33,9 @@ logical pure elemental function f_approx_equal(a, b, tol_input) result(res)
             tol = tol_input
         else
             if (wp == selected_real_kind(15, 307)) then
-                tol = 1.e-10_wp  ! Double Precision
+                tol = 1.e-10_wp  ! Double
             else if (wp == selected_real_kind(6, 37)) then
-                tol = 1.e-6_wp   ! Single Precision
+                tol = 1.e-6_wp   ! Single
             end if
         end if