Skip to content

Commit

Permalink
Change initialization of this%t_soisno_col(c,1:nlevgrnd) from 274 to …
Browse files Browse the repository at this point in the history
…272 to avoid deep soil caron in permafrost regions fixing ESCOMP#1460
  • Loading branch information
ekluzek committed Sep 20, 2021
1 parent ebcd92d commit b02907c
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/biogeophys/TemperatureType.F90
Original file line number Diff line number Diff line change
Expand Up @@ -732,7 +732,7 @@ subroutine InitCold(this, bounds, &
end if
else
if (col%itype(c) == icol_road_perv .or. col%itype(c) == icol_road_imperv) then
this%t_soisno_col(c,1:nlevgrnd) = 274._r8
this%t_soisno_col(c,1:nlevgrnd) = 272._r8
else if (col%itype(c) == icol_sunwall .or. col%itype(c) == icol_shadewall &
.or. col%itype(c) == icol_roof) then
! Set sunwall, shadewall, roof to fairly high temperature to avoid initialization
Expand Down

0 comments on commit b02907c

Please sign in to comment.