Skip to content
Merged
Show file tree
Hide file tree
Changes from 1 commit
Commits
Show all changes
19 commits
Select commit Hold shift + click to select a range
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
3 changes: 1 addition & 2 deletions src/biogeophys/LakeFluxesMod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -491,8 +491,7 @@ subroutine LakeFluxes(bounds, num_lakec, filter_lakec, num_lakep, filter_lakep,
tksur(c) = 0.138 - 1.01*(bw/1000) +(3.233*((bw/1000)*(bw/1000)))
end if
case default
write(iulog,*) subname//' ERROR: unknown snow_thermal_cond_lake_method value: ', snow_thermal_cond_lake_method
call endrun(msg=errMsg(sourcefile, __LINE__))

end select

tsur(c) = t_soisno(c,jtop(c))
Expand Down
2 changes: 0 additions & 2 deletions src/biogeophys/LakeTemperatureMod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1192,8 +1192,6 @@ subroutine SoilThermProp_Lake (bounds, num_lakec, filter_lakec, tk, cv, tktopso
thk(c,j) = 0.138 - 1.01*(bw/1000) +(3.233*((bw/1000)*(bw/1000)))
end if
case default
write(iulog,*) subname//' ERROR: unknown snow_thermal_cond_lake_method value: ', snow_thermal_cond_lake_method
call endrun(msg=errMsg(sourcefile, __LINE__))
end select

end if
Expand Down