From 690ec8404c6fdbac7c505760a02bb0ce6421f4a2 Mon Sep 17 00:00:00 2001 From: JosephMouallem <75327266+JosephMouallem@users.noreply.github.com> Date: Mon, 13 Jan 2025 12:50:22 -0500 Subject: [PATCH] Update fv_thermodynamics.F90 to support mixed precision mode (#369) --- model/fv_thermodynamics.F90 | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/model/fv_thermodynamics.F90 b/model/fv_thermodynamics.F90 index 2fc9d7f6..ca7dcd4c 100644 --- a/model/fv_thermodynamics.F90 +++ b/model/fv_thermodynamics.F90 @@ -23,7 +23,11 @@ ! Revise the OpenMP code to avoid crash module fv_thermodynamics_mod +#ifdef OVERLOAD_R4 + use constantsR4_mod, only: grav, cp_air, cp_vapor, rvgas, rdgas +#else use constants_mod, only: grav, cp_air, cp_vapor, rvgas, rdgas +#endif use gfdl_mp_mod, only: c_liq, c_ice use field_manager_mod, only: MODEL_ATMOS use tracer_manager_mod, only: get_tracer_name