subroutine sfc_ex_coef::sfc_ex_coef_run	(	integer, intent(in)	im,
		real(kind=kind_phys), dimension(im), intent(in)	ps,
		real(kind=kind_phys), dimension(im), intent(in)	u1,
		real(kind=kind_phys), dimension(im), intent(in)	v1,
		real(kind=kind_phys), dimension(im), intent(in)	t1,
		real(kind=kind_phys), dimension(im), intent(in)	q1,
		real(kind=kind_phys), dimension(im), intent(in)	z1,
		real(kind=kind_phys), dimension(im), intent(in)	snwdph,
		real(kind=kind_phys), dimension(im), intent(in)	tskin,
		real(kind=kind_phys), dimension(im), intent(inout)	z0rl,
		real(kind=kind_phys), dimension(im), intent(inout)	cm,
		real(kind=kind_phys), dimension(im), intent(inout)	ch,
		real(kind=kind_phys), dimension(im), intent(inout)	rb,
		real(kind=kind_phys), dimension(im), intent(in)	prsl1,
		real(kind=kind_phys), dimension(im), intent(in)	prslki,
		integer, dimension(im), intent(in)	islimsk,
		real(kind=kind_phys), dimension(im), intent(inout)	stress,
		real(kind=kind_phys), dimension(im), intent(inout)	fm,
		real(kind=kind_phys), dimension(im), intent(inout)	fh,
		real(kind=kind_phys), dimension(im), intent(inout)	ustar,
		real(kind=kind_phys), dimension(im), intent(inout)	wind,
		real(kind=kind_phys), dimension(im), intent(in)	ddvel,
		real(kind=kind_phys), dimension(im), intent(inout)	fm10,
		real(kind=kind_phys), dimension(im), intent(inout)	fh2,
		real(kind=kind_phys), dimension(im), intent(in)	sigmaf,
		integer, dimension(im), intent(in)	vegtype,
		real(kind=kind_phys), dimension(im), intent(in)	shdmax,
		integer, intent(in)	ivegsrc,
		real(kind=kind_phys), dimension(im), intent(in)	z0pert,
		real(kind=kind_phys), dimension(im), intent(in)	ztpert,
		real(kind=kind_phys), dimension(im), intent(in)	tsurf,
		logical, dimension(im), intent(in)	flag_iter,
		logical, intent(in)	redrag,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg
	)