subroutine, public frictionvelocitymod::frictionvelocity |
( |
integer, intent(in) |
lbn, |
|
|
integer, intent(in) |
ubn, |
|
|
integer, intent(in) |
fn, |
|
|
integer, dimension(fn), intent(in) |
filtern, |
|
|
real(r8), dimension ( lbn: ), intent(in) |
displa, |
|
|
real(r8), dimension ( lbn: ), intent(in) |
z0m, |
|
|
real(r8), dimension ( lbn: ), intent(in) |
z0h, |
|
|
real(r8), dimension ( lbn: ), intent(in) |
z0q, |
|
|
real(r8), dimension ( lbn: ), intent(in) |
obu, |
|
|
integer, intent(in) |
iter, |
|
|
real(r8), dimension ( lbn: ), intent(in) |
ur, |
|
|
real(r8), dimension ( lbn: ), intent(in) |
um, |
|
|
real(r8), dimension ( lbn: ), intent(out) |
ustar, |
|
|
real(r8), dimension ( lbn: ), intent(out) |
temp1, |
|
|
real(r8), dimension ( lbn: ), intent(out) |
temp2, |
|
|
real(r8), dimension ( lbn: ), intent(out) |
temp12m, |
|
|
real(r8), dimension ( lbn: ), intent(out) |
temp22m, |
|
|
real(r8), dimension ( lbn: ), intent(inout) |
fm, |
|
|
type(frictionvel_type), intent(inout) |
frictionvel_vars, |
|
|
logical, intent(in), optional |
landunit_index |
|
) |
| |