diff --git a/tools/fv_diagnostics.F90 b/tools/fv_diagnostics.F90 index 2acbc0588..859fb0dbe 100644 --- a/tools/fv_diagnostics.F90 +++ b/tools/fv_diagnostics.F90 @@ -113,11 +113,12 @@ module fv_diagnostics_mod ! #ifdef OVERLOAD_R4 - use constantsR4_mod, only: grav, rdgas, rvgas, pi=>pi_8, radius, kappa, WTMAIR, WTMCO2, & + use constantsR4_mod, only: grav, rdgas, rvgas, pi=>pi_8, radius, kappa, WTMAIR, WTMCO2, & + omega, hlv, cp_air, cp_vapor, TFREEZE #else use constants_mod, only: grav, rdgas, rvgas, pi=>pi_8, radius, kappa, WTMAIR, WTMCO2, & -#endif omega, hlv, cp_air, cp_vapor, TFREEZE +#endif use fms_mod, only: write_version_number use time_manager_mod, only: time_type, get_date, get_time use mpp_domains_mod, only: domain2d, mpp_update_domains, DGRID_NE, NORTH, EAST