replacing the NO_QUAD_PRECISION macro (outdated in FMS2023.03) with E…

…NABLE_QUAD_PRECISION (#298)
NOAA-GFDL · Oct 20, 2023 · 2d998d2 · 2d998d2
1 parent be7343c
commit 2d998d2
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/model/fv_grid_utils.F90 b/model/fv_grid_utils.F90
@@ -42,12 +42,12 @@ module fv_grid_utils_mod
  implicit none
  private
  logical:: symm_grid
-#ifdef NO_QUAD_PRECISION
-! 64-bit precision (kind=8)
- integer, parameter:: f_p = selected_real_kind(15)
-#else
+#ifdef ENABLE_QUAD_PRECISION
 ! Higher precision (kind=16) for grid geometrical factors:
  integer, parameter:: f_p = selected_real_kind(20)
+#else
+! 64-bit precision (kind=8)
+ integer, parameter:: f_p = selected_real_kind(15)
 #endif
  real, parameter::  big_number=1.d8
  real, parameter:: tiny_number=1.d-8