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 |