From 2978bdf885f895b819c148f0c5416b0bd182b36d Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Thu, 25 May 2023 15:40:35 -0500 Subject: [PATCH] adding missing constants definitions for column configuration --- .../mpas-seaice/src/shared/mpas_seaice_column.F | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/components/mpas-seaice/src/shared/mpas_seaice_column.F b/components/mpas-seaice/src/shared/mpas_seaice_column.F index 6debe1e7c7db..dae49de50f33 100644 --- a/components/mpas-seaice/src/shared/mpas_seaice_column.F +++ b/components/mpas-seaice/src/shared/mpas_seaice_column.F @@ -6256,8 +6256,12 @@ subroutine seaice_init_column_constants() seaiceIceSnowEmissivity, & seaiceFreshWaterFreezingPoint, & seaiceAirSpecificHeat, & + seaiceWaterVaporSpecificHeat, & + seaiceSeaWaterSpecificHeat, & + seaiceLatentHeatVaporization, & seaiceLatentHeatSublimation, & seaiceLatentHeatMelting, & + seaiceReferenceSalinity, & seaiceOceanAlbedo, & seaiceVonKarmanConstant, & seaiceIceSurfaceRoughness, & @@ -6281,8 +6285,12 @@ subroutine seaice_init_column_constants() emissivity, & Tffresh, & cp_air, & + cp_wv, & + cp_ocn, & + Lvap, & Lsub, & Lfresh, & + ice_ref_salinity, & Pstar, & Cstar, & dragio, & @@ -6304,8 +6312,12 @@ subroutine seaice_init_column_constants() seaiceIceSnowEmissivity = emissivity seaiceFreshWaterFreezingPoint = Tffresh seaiceAirSpecificHeat = cp_air + seaiceWaterVaporSpecificHeat = cp_wv + seaiceSeaWaterSpecificHeat = cp_ocn + seaiceLatentHeatVaporization = Lvap seaiceLatentHeatSublimation = Lsub seaiceLatentHeatMelting = Lfresh + seaiceReferenceSalinity = ice_ref_salinity seaiceOceanAlbedo = albocn seaiceVonKarmanConstant = vonkar seaiceIceSurfaceRoughness = iceruf