Change snow_thermal_cond_method to char*25

ESCOMP · Nov 3, 2023 · 239a552 · 239a552
1 parent 75d5f10
commit 239a552
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/bld/namelist_files/namelist_definition_ctsm.xml b/bld/namelist_files/namelist_definition_ctsm.xml
@@ -2835,7 +2835,7 @@ NiuYang2007: Niu and Yang 2007
 SwensonLawrence2012: Swenson and Lawrence 2012
 </entry>
 
-<entry id="snow_thermal_cond_method" type="char*64" category="clm_physics"
+<entry id="snow_thermal_cond_method" type="char*25" category="clm_physics"
        group="clm_inparm" valid_values="Jordan1991,Sturm1997" >
 Parameterization to use for snow thermal conductivity
 </entry>

diff --git a/src/biogeophys/SoilTemperatureMod.F90 b/src/biogeophys/SoilTemperatureMod.F90
@@ -624,7 +624,6 @@ subroutine SoilThermProp (bounds, num_urbanc, filter_urbanc, num_nolakec, filter
     use landunit_varcon , only : istice, istwet
     use column_varcon   , only : icol_roof, icol_sunwall, icol_shadewall, icol_road_perv, icol_road_imperv
     use clm_varctl      , only : iulog, snow_thermal_cond_method
-
     !
     ! !ARGUMENTS:
     type(bounds_type)      , intent(in)    :: bounds