sfc_diag_run()

subroutine sfc_diag::sfc_diag_run	(	integer, intent(in)	im,
		real(kind=kind_phys), intent(in)	grav,
		real(kind=kind_phys), intent(in)	cp,
		real(kind=kind_phys), intent(in)	eps,
		real(kind=kind_phys), intent(in)	epsm1,
		real(kind=kind_phys), dimension(:), intent(in)	ps,
		real(kind=kind_phys), dimension(:), intent(in)	u1,
		real(kind=kind_phys), dimension(:), intent(in)	v1,
		real(kind=kind_phys), dimension(:), intent(in)	t1,
		real(kind=kind_phys), dimension(:), intent(in)	q1,
		real(kind=kind_phys), dimension(:), intent(in)	prslki,
		real(kind=kind_phys), dimension(:), intent(in)	evap,
		real(kind=kind_phys), dimension(:), intent(in)	fm,
		real(kind=kind_phys), dimension(:), intent(in)	fh,
		real(kind=kind_phys), dimension(:), intent(in)	fm10,
		real(kind=kind_phys), dimension(:), intent(in)	fh2,
		real(kind=kind_phys), dimension(:), intent(in)	tskin,
		real(kind=kind_phys), dimension(:), intent(in)	qsurf,
		logical, intent(in)	thsfc_loc,
		real(kind=kind_phys), dimension(:), intent(out)	f10m,
		real(kind=kind_phys), dimension(:), intent(out)	u10m,
		real(kind=kind_phys), dimension(:), intent(out)	v10m,
		real(kind=kind_phys), dimension(:), intent(out)	t2m,
		real(kind=kind_phys), dimension(:), intent(out)	q2m,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg
	)