h2ointerpol()

subroutine, public h2ointerp::h2ointerpol	(	integer	me,
		integer	npts,
		integer, dimension(4)	idate,
		real(kind=kind_phys)	fhour,
		integer, dimension(npts)	jindx1,
		integer, dimension(npts)	jindx2,
		real(kind=kind_phys), dimension(npts,levh2o,h2o_coeff)	h2oplout,
		real(kind=kind_phys), dimension(npts)	ddy
	)