gfs_surface_generic_pre_init()

subroutine, public gfs_surface_generic_pre::gfs_surface_generic_pre_init	(	integer, intent(in)	nthreads,
		integer, intent(in)	im,
		real(kind_phys), dimension(:), intent(in)	slmsk,
		integer, intent(in)	isot,
		integer, intent(in)	ivegsrc,
		integer, dimension(:), intent(inout)	stype,
		integer, dimension(:), intent(inout)	scolor,
		integer, dimension(:), intent(inout)	vtype,
		integer, dimension(:), intent(inout)	slope,
		integer, dimension(:), intent(out)	vtype_save,
		integer, dimension(:), intent(out)	stype_save,
		integer, dimension(:), intent(out)	scolor_save,
		integer, dimension(:), intent(out)	slope_save,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg
	)