adding missing constants definitions for column configuration

eclare108213 · May 25, 2023 · 2978bdf · 2978bdf
1 parent a4c5bd3
commit 2978bdf
Showing 1 changed file with 12 additions and 0 deletions.
diff --git 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