subroutine gfssflx::tmpavg | ( | real (kind=kind_phys), intent(in) | tup, |
real (kind=kind_phys), intent(in) | tm, | ||
real (kind=kind_phys), intent(in) | tdn, | ||
real (kind=kind_phys), dimension(nsoil), intent(in) | zsoil, | ||
integer, intent(in) | nsoil, | ||
integer, intent(in) | k, | ||
real (kind=kind_phys), intent(out) | tavg | ||
) |