File tree Expand file tree Collapse file tree 1 file changed +3
-2
lines changed Expand file tree Collapse file tree 1 file changed +3
-2
lines changed Original file line number Diff line number Diff line change @@ -3554,10 +3554,11 @@ subroutine ch4_tran (bounds, &
3554
3554
pondz = h2osfc(c) / 1000._r8 / frac_h2osfc(c) ! Assume all h2osfc corresponds to sat area
3555
3555
! mm / mm/m
3556
3556
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.
3559
3559
! assume surface ice is impermeable
3560
3560
pondres = 1 / smallnumber
3561
+ end if
3561
3562
end if
3562
3563
3563
3564
spec_grnd_cond(c,s) = 1._r8 / (1._r8 / grnd_ch4_cond(c) + snowres(c) + pondres)
You can’t perform that action at this time.
0 commit comments