FallVelocity Function

private function FallVelocity(d) result(fv)

compute fall velocity of sediment (m/s)

References:

Wikipedia contributors, "Sediment transport," Wikipedia, The Free Encyclopedia, http://en.wikipedia.org/w/index.php?title=Sediment_transport&oldid=449390416 (accessed October 29, 2011).

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: d

particle size of bed material (mm)

Return Value real(kind=float)

fall velocity (m/s)


Source Code

FUNCTION FallVelocity &
!
(d) &
!
RESULT (fv)

IMPLICIT NONE

REAL (KIND = float), INTENT(IN) :: d !!particle size of bed material (mm)

!local declarations:
REAL (KIND = float) :: fv !!fall velocity (m/s)

!------------end of declaration------------------------------------------------

fv = (16.17 * (d/1000.)**2.0) / (0.000018 + (12.1275 * (d/1000.)**3.)**0.5)


END FUNCTION FallVelocity