From 2d998d24bff5b588a85274880dcd7013d4685079 Mon Sep 17 00:00:00 2001 From: Lauren Chilutti <60401591+laurenchilutti@users.noreply.github.com> Date: Fri, 20 Oct 2023 06:48:01 -0400 Subject: [PATCH] replacing the NO_QUAD_PRECISION macro (outdated in FMS2023.03) with ENABLE_QUAD_PRECISION (#298) --- model/fv_grid_utils.F90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/model/fv_grid_utils.F90 b/model/fv_grid_utils.F90 index 99f8269e8..8eceae59e 100644 --- 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