| subroutine __module_sf_noahmplsm_f90__::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) |
c_sigma_f0, |
|
|
real (kind=kind_phys), intent(inout) |
c_sigma_f1, |
|
|
real (kind=kind_phys), intent(in) |
a1, |
|
|
real (kind=kind_phys), intent(in) |
cdmn_v, |
|
|
real (kind=kind_phys), intent(in) |
cdmn_g, |
|
|
integer, intent(in) |
surface_flag, |
|
|
real (kind=kind_phys), intent(out) |
z0m_out, |
|
|
real (kind=kind_phys), intent(out) |
z0h_out |
|
) |
| |
|
private |