subroutine gfssflx::tbnd | ( | real (kind=kind_phys), intent(in) | tu, |
real (kind=kind_phys), intent(in) | tb, | ||
real (kind=kind_phys), dimension(nsoil), intent(in) | zsoil, | ||
real (kind=kind_phys), intent(in) | zbot, | ||
integer, intent(in) | k, | ||
integer, intent(in) | nsoil, | ||
real (kind=kind_phys), intent(out) | tbnd1 | ||
) |