subroutine m_micro_pre::m_micro_pre_run	(	integer, intent(in)	im,
		integer, intent(in)	levs,
		logical, intent(in)	do_shoc,
		logical, intent(inout)	skip_macro,
		integer, intent(in)	fprcp,
		logical, intent(in)	mg3_as_mg2,
		real(kind=kind_phys), dimension(:,:), intent(in)	gq0_ice,
		real(kind=kind_phys), dimension(:,:), intent(in)	gq0_water,
		real(kind=kind_phys), dimension(:,:), intent(in)	gq0_rain,
		real(kind=kind_phys), dimension(:,:), intent(in)	gq0_snow,
		real(kind=kind_phys), dimension(:,:), intent(in)	gq0_graupel,
		real(kind=kind_phys), dimension(:,:), intent(in)	gq0_rain_nc,
		real(kind=kind_phys), dimension(:,:), intent(in)	gq0_snow_nc,
		real(kind=kind_phys), dimension(:,:), intent(in)	gq0_graupel_nc,
		real(kind=kind_phys), dimension(:,:), intent(in)	cld_shoc,
		real(kind=kind_phys), dimension(:,:), intent(in)	cnvc,
		real(kind=kind_phys), dimension(:,:), intent(in)	cnvw,
		real(kind=kind_phys), intent(in)	tcr,
		real(kind=kind_phys), intent(in)	tcrf,
		real(kind=kind_phys), dimension(:,:), intent(in)	gt0,
		real(kind=kind_phys), dimension(:,:), intent(inout)	qrn,
		real(kind=kind_phys), dimension(:,:), intent(inout)	qsnw,
		real(kind=kind_phys), dimension(:,:), intent(inout)	qgl,
		real(kind=kind_phys), dimension(:,:), intent(inout)	ncpr,
		real(kind=kind_phys), dimension(:,:), intent(inout)	ncps,
		real(kind=kind_phys), dimension(:,:), intent(inout)	ncgl,
		real(kind=kind_phys), dimension(:,:), intent(inout)	cld_frc_MG,
		real(kind=kind_phys), dimension(:,:), intent(out)	clw_water,
		real(kind=kind_phys), dimension(:,:), intent(out)	clw_ice,
		real(kind=kind_phys), dimension(:,:), intent(in)	clcn,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg
	)