setemis()

subroutine, public module_radiation_surface::setemis	(	integer, intent(in)	lsm,
		integer, intent(in)	lsm_noahmp,
		integer, intent(in)	lsm_ruc,
		logical, intent(in)	frac_grid,
		logical, intent(in)	cplice,
		integer, dimension(:), intent(in)	use_lake_model,
		real (kind=kind_phys), dimension(:), intent(in)	lakefrac,
		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)	snodl,
		real (kind=kind_phys), dimension(:), intent(in)	snodi,
		real (kind=kind_phys), dimension(:), intent(in)	sncovr,
		real (kind=kind_phys), dimension(:), intent(in)	sncovr_ice,
		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,
		real (kind=kind_phys), dimension(:), intent(inout)	semis_lnd,
		real (kind=kind_phys), dimension(:), intent(inout)	semis_ice,
		real (kind=kind_phys), dimension(:), intent(inout)	semis_wat,
		integer, intent(in)	imax,
		real (kind=kind_phys), dimension(:), intent(in)	fracl,
		real (kind=kind_phys), dimension(:), intent(in)	fraco,
		real (kind=kind_phys), dimension(:), intent(in)	fraci,
		logical, dimension(:), intent(in)	icy,
		real (kind=kind_phys), dimension(:), intent(out)	semisbase,
		real (kind=kind_phys), dimension(:), intent(out)	sfcemis )

Parameters

lsm	flag for land surface model
lsm_noahmp	flag for NOAH MP land surface model
lsm_ruc	flag for RUC land surface model
frac_grid	flag for fractional grid
cplice	flag for controlling cplice collection
use_flake	flag for indicating lake points using flake model
lakefrac	fraction of horizontal grid area occupied by lake
xlon	longitude in radiance, ok for both 0->2pi or -pi -> +pi ranges
xlat	latitude in radiance, default to pi/2 -> -pi/2 range, otherwise see in-line comment
slmsk	landmask: sea/land/ice =0/1/2
snodl	snow depth water equivalent in mm land
snodi	snow depth water equivalent in mm ice
sncovr	snow cover over land
sncovr_ice	surface snow area fraction over ice
zorlf	surface roughness in cm
tsknf	ground surface temperature in K
tairf	lowest model layer air temperature in K
hprif	topographic standard deviation in m
semis_lnd	surface LW emissivity in fraction over land
semis_ice	surface LW emissivity in fraction over ice
semis_wat	surface LW emissivity in fraction over water
IMAX	array horizontal dimension
fracl	land fraction for emissivity and albedo calculation
fraco	ocean fraction for emissivity of albedo calculation
fraci	ice fraction for emissivity of albedo calculation
icy	flag for ice surfce
semisbase	baseline surface LW emissivity in fraction
sfcemis	(IMAX), surface emissivity

setemis General Algorithm

1. Set emissivity by surface type and conditions

• Check for snow covered area. it is assume here that "sncovr" is the fraction of land covered by snow and "sncovr_ice" is the fraction of ice coverd by snow

Definition at line 751 of file radiation_surface.f.

References epsln, f_one, f_zero, idxems, iemslw, imxems, jmxems, rad2dg, and set_soilveg_ruc_mod::set_soilveg_ruc().

Here is the call graph for this function: