From 16ed6b9825bd24c001a0343de5094beae1f12b55 Mon Sep 17 00:00:00 2001 From: Spencer Wong Date: Mon, 25 Aug 2025 11:54:23 +1000 Subject: [PATCH 1/3] Set hlv consistent with ESM1.6 UM and CICE --- constants/constants.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/constants/constants.F90 b/constants/constants.F90 index 071584f57a..2527a8e96b 100644 --- a/constants/constants.F90 +++ b/constants/constants.F90 @@ -48,7 +48,7 @@ module constants_mod real, public, parameter :: RDGAS = 287.05_r8_kind !< Gas constant for dry air [J/kg/deg] real, public, parameter :: RVGAS = 461.50_r8_kind !< Gas constant for water vapor [J/kg/deg] ! Extra: -real, public, parameter :: HLV = 2.5e6_r8_kind !< Latent heat of evaporation [J/kg] +real, public, parameter :: HLV = 2.501e6_r8_kind !< Latent heat of evaporation [J/kg] real, public, parameter :: HLF = 3.3358e5_r8_kind !< Latent heat of fusion [J/kg] real, public, parameter :: con_cliq = 4.1855e+3_r8_kind !< spec heat H2O liq [J/kg/K] real, public, parameter :: con_csol = 2.1060e+3_r8_kind !< spec heat H2O ice [J/kg/K] @@ -77,7 +77,7 @@ module constants_mod real, public, parameter :: RDGAS = 287.04_r8_kind !< Gas constant for dry air [J/kg/deg] real, public, parameter :: RVGAS = 461.50_r8_kind !< Gas constant for water vapor [J/kg/deg] ! Extra: -real, public, parameter :: HLV = 2.500e6_r8_kind !< Latent heat of evaporation [J/kg] +real, public, parameter :: HLV = 2.501e6_r8_kind !< Latent heat of evaporation [J/kg] real, public, parameter :: HLF = 3.34e5_r8_kind !< Latent heat of fusion [J/kg] real, public, parameter :: KAPPA = 2.0_r8_kind/7.0_r8_kind !< RDGAS / CP_AIR [dimensionless] real, public, parameter :: CP_AIR = RDGAS/KAPPA !< Specific heat capacity of dry air at constant pressure [J/kg/deg] From 47288ff8acb5f5c1cc4806b1a7e481354e401cef Mon Sep 17 00:00:00 2001 From: Spencer Wong Date: Mon, 25 Aug 2025 12:38:34 +1000 Subject: [PATCH 2/3] Comments documenting value changes --- constants/constants.F90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/constants/constants.F90 b/constants/constants.F90 index 2527a8e96b..4e8f0a6d15 100644 --- a/constants/constants.F90 +++ b/constants/constants.F90 @@ -49,6 +49,7 @@ module constants_mod real, public, parameter :: RVGAS = 461.50_r8_kind !< Gas constant for water vapor [J/kg/deg] ! Extra: real, public, parameter :: HLV = 2.501e6_r8_kind !< Latent heat of evaporation [J/kg] + !< Changed from 2.50e6 for consistency with CICE and the UM in ESM1.6 real, public, parameter :: HLF = 3.3358e5_r8_kind !< Latent heat of fusion [J/kg] real, public, parameter :: con_cliq = 4.1855e+3_r8_kind !< spec heat H2O liq [J/kg/K] real, public, parameter :: con_csol = 2.1060e+3_r8_kind !< spec heat H2O ice [J/kg/K] @@ -78,6 +79,7 @@ module constants_mod real, public, parameter :: RVGAS = 461.50_r8_kind !< Gas constant for water vapor [J/kg/deg] ! Extra: real, public, parameter :: HLV = 2.501e6_r8_kind !< Latent heat of evaporation [J/kg] + !< Changed from 2.50e6 for consistency with CICE and the UM in ESM1.6 real, public, parameter :: HLF = 3.34e5_r8_kind !< Latent heat of fusion [J/kg] real, public, parameter :: KAPPA = 2.0_r8_kind/7.0_r8_kind !< RDGAS / CP_AIR [dimensionless] real, public, parameter :: CP_AIR = RDGAS/KAPPA !< Specific heat capacity of dry air at constant pressure [J/kg/deg] From 13ef41b147ba174664e033be0c425cc9961d4d2a Mon Sep 17 00:00:00 2001 From: Spencer Wong <88933912+blimlim@users.noreply.github.com> Date: Mon, 25 Aug 2025 12:55:31 +1000 Subject: [PATCH 3/3] Don't add comments to documentation Co-authored-by: Dougie Squire <42455466+dougiesquire@users.noreply.github.com> --- constants/constants.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/constants/constants.F90 b/constants/constants.F90 index 4e8f0a6d15..7b3ab854bb 100644 --- a/constants/constants.F90 +++ b/constants/constants.F90 @@ -49,7 +49,7 @@ module constants_mod real, public, parameter :: RVGAS = 461.50_r8_kind !< Gas constant for water vapor [J/kg/deg] ! Extra: real, public, parameter :: HLV = 2.501e6_r8_kind !< Latent heat of evaporation [J/kg] - !< Changed from 2.50e6 for consistency with CICE and the UM in ESM1.6 + ! Changed from 2.50e6 for consistency with CICE and the UM in ESM1.6 real, public, parameter :: HLF = 3.3358e5_r8_kind !< Latent heat of fusion [J/kg] real, public, parameter :: con_cliq = 4.1855e+3_r8_kind !< spec heat H2O liq [J/kg/K] real, public, parameter :: con_csol = 2.1060e+3_r8_kind !< spec heat H2O ice [J/kg/K] @@ -79,7 +79,7 @@ module constants_mod real, public, parameter :: RVGAS = 461.50_r8_kind !< Gas constant for water vapor [J/kg/deg] ! Extra: real, public, parameter :: HLV = 2.501e6_r8_kind !< Latent heat of evaporation [J/kg] - !< Changed from 2.50e6 for consistency with CICE and the UM in ESM1.6 + ! Changed from 2.50e6 for consistency with CICE and the UM in ESM1.6 real, public, parameter :: HLF = 3.34e5_r8_kind !< Latent heat of fusion [J/kg] real, public, parameter :: KAPPA = 2.0_r8_kind/7.0_r8_kind !< RDGAS / CP_AIR [dimensionless] real, public, parameter :: CP_AIR = RDGAS/KAPPA !< Specific heat capacity of dry air at constant pressure [J/kg/deg]