penman()

subroutine noahmpdrv::penman	(	real(kind=kind_phys), intent(in)	sfctmp,
		real(kind=kind_phys), intent(in)	sfcprs,
		real(kind=kind_phys), intent(in)	ch,
		real(kind=kind_phys), intent(in)	t2v,
		real(kind=kind_phys), intent(in)	th2,
		real(kind=kind_phys), intent(in)	prcp,
		real(kind=kind_phys), intent(in)	fdown,
		real(kind=kind_phys), intent(in)	ssoil,
		real(kind=kind_phys), intent(in)	q2,
		real(kind=kind_phys), intent(in)	q2sat,
		real(kind=kind_phys), intent(out)	etp,
		logical, intent(in)	snowng,
		logical, intent(in)	frzgra,
		real(kind=kind_phys), intent(in)	ffrozp,
		real(kind=kind_phys), intent(in)	dqsdt2,
		real(kind=kind_phys), intent(in)	emissi_in,
		real(kind=kind_phys), intent(in)	sncovr
	)