subroutine, public module_radiation_surface::setemis	(	real (kind=kind_phys), dimension(:), intent(in)	xlon,
		real (kind=kind_phys), dimension(:), intent(in)	xlat,
		real (kind=kind_phys), dimension(:), intent(in)	slmsk,
		real (kind=kind_phys), dimension(:), intent(in)	snowf,
		real (kind=kind_phys), dimension(:), intent(in)	sncovr,
		real (kind=kind_phys), dimension(:), intent(in)	zorlf,
		real (kind=kind_phys), dimension(:), intent(in)	tsknf,
		real (kind=kind_phys), dimension(:), intent(in)	tairf,
		real (kind=kind_phys), dimension(:), intent(in)	hprif,
		integer, intent(in)	IMAX,
		real (kind=kind_phys), dimension(:), intent(out)	sfcemis
	)

Parameters

xlon	(IMAX), longitude in radiance, ok for both 0->2pi or -pi -> +pi ranges
xlat	(IMAX), latitude in radiance, default to pi/2 -> -pi/2 range, otherwise see in-line comment
slmsk	(IMAX), sea(0),land(1),ice(2) mask on fcst model grid
snowf	(IMAX), snow depth water equivalent in mm
sncovr	(IMAX), snow cover over land
zorlf	(IMAX), surface roughness in cm
tsknf	(IMAX), ground surface temperature in K
tairf	(IMAX), lowest model layer air temperature in K
hprif	(IMAX), topographic standard deviation in m
IMAX	array horizontal dimension
sfcemis	(IMAX), surface emissivity

setemis General Algorithm

1. Set sfcemis default to 1.0 or by surface type and condition.
2. Check for snow covered area.

References f_one, f_zero, physparam::ialbflg, idxems, iemslw, imxems, jmxems, and rad2dg.