subroutine diff_1d_ptend	(	integer	levs,
		real(kind=kind_phys)	dt,
		real(kind=kind_phys), dimension(levs)	F,
		real(kind=kind_phys), dimension(levs)	Km,
		real(kind=kind_phys), dimension(levs)	rdp,
		real(kind=kind_phys), dimension(levs-1)	rdpm,
		real(kind=kind_phys), dimension(levs)	S
	)

Referenced by edmix_ugwp_v0().