Skip to content

Commit 98d9aba

Browse files
committed
Merge branch 'dev-ch4Mod' into dev-ch4Mod-check-all
2 parents 47f18cc + 5cd1f99 commit 98d9aba

File tree

1 file changed

+3
-2
lines changed

1 file changed

+3
-2
lines changed

src/clm5/biogeochem/ch4Mod.F90

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3554,10 +3554,11 @@ subroutine ch4_tran (bounds, &
35543554
pondz = h2osfc(c) / 1000._r8 / frac_h2osfc(c) ! Assume all h2osfc corresponds to sat area
35553555
! mm / mm/m
35563556
pondres = pondres + pondz / ponddiff
3557-
else if (.not. lake .and. sat == 1 .and. frac_h2osfc(c) > 0._r8 .and. &
3558-
h2osfc(c)/frac_h2osfc(c) > capthick) then ! Assuming short-circuit logic will avoid FPE here.
3557+
else if (.not. lake .and. sat == 1 .and. frac_h2osfc(c) > 0._r8) then
3558+
if (h2osfc(c)/frac_h2osfc(c) > capthick) then ! Assuming short-circuit logic will avoid FPE here.
35593559
! assume surface ice is impermeable
35603560
pondres = 1/smallnumber
3561+
end if
35613562
end if
35623563

35633564
spec_grnd_cond(c,s) = 1._r8/(1._r8/grnd_ch4_cond(c) + snowres(c) + pondres)

0 commit comments

Comments
 (0)