subroutine module_sf_noahmplsm::thermalz0 |
( |
type (noahmp_parameters), intent(in) |
parameters, |
|
|
real (kind=kind_phys), intent(in) |
fveg, |
|
|
real (kind=kind_phys), intent(in) |
z0m, |
|
|
real (kind=kind_phys), intent(in) |
z0mg, |
|
|
real (kind=kind_phys), intent(in) |
zlvl, |
|
|
real (kind=kind_phys), intent(in) |
zpd, |
|
|
real (kind=kind_phys), intent(in) |
ezpd, |
|
|
real (kind=kind_phys), intent(in) |
ustarx, |
|
|
integer, intent(in) |
vegtyp, |
|
|
real (kind=kind_phys), intent(in) |
vaie, |
|
|
real (kind=kind_phys), intent(in) |
ur, |
|
|
real (kind=kind_phys), intent(inout) |
csigmaf0, |
|
|
real (kind=kind_phys), intent(inout) |
csigmaf1, |
|
|
real (kind=kind_phys), intent(in) |
aone, |
|
|
real (kind=kind_phys), intent(in) |
cdmnv, |
|
|
real (kind=kind_phys), intent(in) |
cdmng, |
|
|
integer, intent(in) |
icom, |
|
|
real (kind=kind_phys), intent(out) |
z0mt, |
|
|
real (kind=kind_phys), intent(out) |
z0ht |
|
) |
| |