subroutine gfssflx::transp	(	integer, intent(in)	nsoil,
		integer, intent(in)	nroot,
		real (kind=kind_phys), intent(in)	etp1,
		real (kind=kind_phys), dimension(nsoil), intent(in)	smc,
		real (kind=kind_phys), intent(in)	smcwlt,
		real (kind=kind_phys), intent(in)	smcref,
		real (kind=kind_phys), intent(in)	cmc,
		real (kind=kind_phys), intent(in)	cmcmax,
		real (kind=kind_phys), dimension(nsoil), intent(in)	zsoil,
		real (kind=kind_phys), intent(in)	shdfac,
		real (kind=kind_phys), intent(in)	pc,
		real (kind=kind_phys), intent(in)	cfactr,
		real (kind=kind_phys), dimension(nsoil), intent(in)	rtdis,
		real (kind=kind_phys), dimension(nsoil), intent(out)	et1
	)

Referenced by evapo().