subroutine ugwp_tofd	(	integer	im,
		integer	levs,
		real(kind_phys), dimension(im)	sigflt,
		real(kind_phys), dimension(im)	elvmax,
		real(kind_phys), dimension(im)	zpbl,
		real(kind_phys), dimension(im, levs)	u,
		real(kind_phys), dimension(im, levs)	v,
		real(kind_phys), dimension(im, levs)	zmid,
		real(kind_phys), dimension(im, levs)	utofd,
		real(kind_phys), dimension(im, levs)	vtofd,
		real(kind_phys), dimension(im, levs)	epstofd,
		real(kind_phys), dimension(im, levs)	krf_tofd
	)