FrictionVelocity Subroutine

public subroutine FrictionVelocity(lbn, ubn, fn, filtern, displa, z0m, z0h, z0q, obu, iter, ur, um, ustar, temp1, temp2, temp12m, temp22m, fm, frictionvel_inst, landunit_index)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: lbn
integer, intent(in) :: ubn
integer, intent(in) :: fn
integer, intent(in) :: filtern(fn)
real(kind=r8), intent(in) :: displa(lbn:)
real(kind=r8), intent(in) :: z0m(lbn:)
real(kind=r8), intent(in) :: z0h(lbn:)
real(kind=r8), intent(in) :: z0q(lbn:)
real(kind=r8), intent(in) :: obu(lbn:)
integer, intent(in) :: iter
real(kind=r8), intent(in) :: ur(lbn:)
real(kind=r8), intent(in) :: um(lbn:)
real(kind=r8), intent(out) :: ustar(lbn:)
real(kind=r8), intent(out) :: temp1(lbn:)
real(kind=r8), intent(out) :: temp2(lbn:)
real(kind=r8), intent(out) :: temp12m(lbn:)
real(kind=r8), intent(out) :: temp22m(lbn:)
real(kind=r8), intent(inout) :: fm(lbn:)
type(frictionvel_type), intent(inout) :: frictionvel_inst
logical, intent(in), optional :: landunit_index