subroutine clm_lake::frictionvelocity |
( |
integer, dimension(1), intent(in) |
pgridcell, |
|
|
real(kind_lake), dimension(1), intent(in) |
forc_hgt, |
|
|
real(kind_lake), dimension(1), intent(in) |
forc_hgt_u, |
|
|
real(kind_lake), dimension(1), intent(in) |
forc_hgt_t, |
|
|
real(kind_lake), dimension(1), intent(in) |
forc_hgt_q, |
|
|
integer, intent(in) |
lbp, |
|
|
integer, intent(in) |
ubp, |
|
|
integer, intent(in) |
fn, |
|
|
integer, dimension(fn), intent(in) |
filterp, |
|
|
real(kind_lake), dimension(lbp:ubp), intent(in) |
displa, |
|
|
real(kind_lake), dimension(lbp:ubp), intent(in) |
z0m, |
|
|
real(kind_lake), dimension(lbp:ubp), intent(in) |
z0h, |
|
|
real(kind_lake), dimension(lbp:ubp), intent(in) |
z0q, |
|
|
real(kind_lake), dimension(lbp:ubp), intent(in) |
obu, |
|
|
integer, intent(in) |
iter, |
|
|
real(kind_lake), dimension(lbp:ubp), intent(in) |
ur, |
|
|
real(kind_lake), dimension(lbp:ubp), intent(in) |
um, |
|
|
real(kind_lake), dimension(lbp:ubp), intent(out) |
ustar, |
|
|
real(kind_lake), dimension(lbp:ubp), intent(out) |
temp1, |
|
|
real(kind_lake), dimension(lbp:ubp), intent(out) |
temp2, |
|
|
real(kind_lake), dimension(lbp:ubp), intent(out) |
temp12m, |
|
|
real(kind_lake), dimension(lbp:ubp), intent(out) |
temp22m, |
|
|
real(kind_lake), dimension(1), intent(out) |
u10, |
|
|
real(kind_lake), dimension(1), intent(out) |
fv, |
|
|
real(kind_lake), dimension(lbp:ubp), intent(inout) |
fm |
|
) |
| |
|
private |