## calculate scour depth according to Kolatus returning all results
scour_vert(
Q = 4, B = 1, h = 3, h_u = 1.76, d90 = 150, d95 = 200, ful_ov = TRUE
)
## calculate scour depth according to Tschopp
scour_vert(
Q = 4, B = 1, h = 3, h_u = 1.76, d90 = 150, d95 = 200,
method = "Tschopp", ful_ov = TRUE
)$S
## calculate scour depth according to Tschopp considering bedload transport
scour_vert(
Q = 4, B = 1, h = 3, h_u = 1.76, d90 = 150, d95 = 200,
method = "Tschopp", bedload = TRUE, ful_ov = TRUE
)$SG
Run the code above in your browser using DataLab