subroutine gfssflx::devap	(	real (kind=kind_phys), intent(in)	etp1,
		real (kind=kind_phys), intent(in)	smc,
		real (kind=kind_phys), intent(in)	shdfac,
		real (kind=kind_phys), intent(in)	smcmax,
		real (kind=kind_phys), intent(in)	smcdry,
		real (kind=kind_phys), intent(in)	fxexp,
		real (kind=kind_phys), intent(out)	edir1
	)

Referenced by evapo().