subroutine noahmpdrv::penman	(		sfctmp,
			sfcprs,
		real, intent(in)	ch,
			t2v,
			th2,
		real, intent(in)	prcp,
		real, intent(in)	fdown,
			ssoil
	)