subroutine gwdps_pre::gwdps_pre_run	(	integer, intent(in)	im,
		integer, intent(in)	nmtvr,
		real(kind=kind_phys), dimension(im,nmtvr), intent(in)	mntvar,
		real(kind=kind_phys), dimension(im), intent(out)	hprime,
		real(kind=kind_phys), dimension(im), intent(out)	oc,
		real(kind=kind_phys), dimension(im,4), intent(out)	oa4,
		real(kind=kind_phys), dimension(im,4), intent(out)	clx,
		real(kind=kind_phys), dimension(im), intent(out)	theta,
		real(kind=kind_phys), dimension(im), intent(out)	sigma,
		real(kind=kind_phys), dimension(im), intent(out)	gamma,
		real(kind=kind_phys), dimension(im), intent(out)	elvmax,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg
	)