Update fv_thermodynamics.F90 to support mixed precision mode (#369)

NOAA-GFDL · Jan 13, 2025 · 690ec84 · 690ec84
1 parent 162fdc4
commit 690ec84
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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