Skip to content

Commit

Permalink
Allow lake frac_sno to be set to non-zero
Browse files Browse the repository at this point in the history
This removes the temporary code that maintained answers and maintained
the buggy behavior of #783

Resolves #783
  • Loading branch information
billsacks committed Aug 15, 2019
1 parent 054dc95 commit cad444e
Showing 1 changed file with 0 additions and 8 deletions.
8 changes: 0 additions & 8 deletions src/biogeophys/LakeHydrologyMod.F90
Expand Up @@ -258,14 +258,6 @@ subroutine LakeHydrology(bounds, &
call UpdateQuantitiesForNewSnow(bounds, num_lakec, filter_lakec, &
scf_method, atm2lnd_inst, water_inst)

! BUG(wjs, 2019-08-14, ESCOMP/ctsm#783) For now, maintain answers with the buggy
! code, which sets frac_sno to 0 for lake, always.
do fc = 1, num_lakec
c = filter_lakec(fc)
frac_sno(c) = 0._r8
end do


do fc = 1, num_lakec
c = filter_lakec(fc)

Expand Down

0 comments on commit cad444e

Please sign in to comment.