subroutine, public mp_thompson_pre::mp_thompson_pre_run	(	integer, intent(in)	ncol,
		integer, intent(in)	nlev,
		real(kind_phys), dimension(1:ncol,1:nlev), intent(in)	tgrs,
		real(kind_phys), dimension(1:ncol,1:nlev), intent(out)	tgrs_save,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg
	)