subroutine gwdc_pre::gwdc_pre_run	(	integer, intent(in)	im,
		real(kind=kind_phys), dimension(2), intent(in)	cgwf,
		real(kind=kind_phys), dimension(:), intent(in)	dx,
		real(kind=kind_phys), dimension(:), intent(in)	work1,
		real(kind=kind_phys), dimension(:), intent(in)	work2,
		real(kind=kind_phys), dimension(:), intent(out)	dlength,
		real(kind=kind_phys), dimension(:), intent(out)	cldf,
		integer, intent(in)	levs,
		integer, dimension(:), intent(in)	kbot,
		integer, dimension(:), intent(in)	ktop,
		real(kind=kind_phys), intent(in)	dtp,
		real(kind=kind_phys), dimension(:,:), intent(in)	gt0,
		real(kind=kind_phys), dimension(:,:), intent(in)	gt0_init,
		real(kind=kind_phys), dimension(:,:), intent(in)	del,
		real(kind=kind_phys), dimension(:), intent(out)	cumabs,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg
	)