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

Referenced by gwdps_v0(), and ugwp_oro().