subroutine, public h2ophys::h2ophys_run	(	integer, intent(in)	im,
		integer, intent(in)	levs,
		integer, intent(in)	kh2o,
		real(kind=kind_phys), intent(in)	dt,
		real(kind=kind_phys), dimension(im,levs), intent(inout)	h2o,
		real(kind=kind_phys), dimension(kh2o), intent(in)	ph2o,
		real(kind=kind_phys), dimension(im,levs), intent(in)	prsl,
		real(kind=kind_phys), dimension(im,kh2o,h2o_coeff), intent(in)	h2opltc,
		integer, intent(in)	h2o_coeff,
		logical, intent(in)	ldiag3d,
		integer, intent(in)	me,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg
	)