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 |