real*8 function module_sf_noahmplsm::zolrib | ( | real (kind=kind_phys), intent(in) | ri, |
real (kind=kind_phys), intent(in) | za, | ||
real (kind=kind_phys), intent(in) | z0, | ||
real (kind=kind_phys), intent(in) | zt, | ||
real (kind=kind_phys), intent(in) | logz0, | ||
real (kind=kind_phys), intent(in) | logzt, | ||
real (kind=kind_phys), intent(inout) | zol1, | ||
integer, intent(in) | psi_opt | ||
) |