From afef737ad573fd5c3f4adbe178500fd14e2048fa Mon Sep 17 00:00:00 2001 From: Keith Oleson Date: Thu, 22 Feb 2024 19:33:27 -0700 Subject: [PATCH] Revert "Don't set t_soisno below freezing when FATES is on" This reverts commit 04167dcc2ff62a82164ffbd6ef7ad97e419f0fa9. --- src/biogeophys/TemperatureType.F90 | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/src/biogeophys/TemperatureType.F90 b/src/biogeophys/TemperatureType.F90 index 9dc38094e6..ab310650c8 100644 --- a/src/biogeophys/TemperatureType.F90 +++ b/src/biogeophys/TemperatureType.F90 @@ -741,11 +741,7 @@ subroutine InitCold(this, bounds, & end if end if else - if (use_fates) then - this%t_soisno_col(c,1:nlevgrnd) = 274._r8 - else - this%t_soisno_col(c,1:nlevgrnd) = 272._r8 - end if + this%t_soisno_col(c,1:nlevgrnd) = 272._r8 if (use_excess_ice .and. (lun%itype(l) == istsoil .or. lun%itype(l) == istcrop)) then this%t_soisno_col(c,1:nlevgrnd) = SHR_CONST_TKFRZ - 5.0_r8 !needs to be below freezing to properly initiate excess ice end if