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
	)

Referenced by hrt().