setalb()

subroutine, public module_radiation_surface::setalb	(	real (kind=kind_phys), dimension(:), intent(in)	slmsk,
		integer, intent(in)	lsm,
		integer, intent(in)	lsm_noahmp,
		integer, intent(in)	lsm_ruc,
		logical, intent(in)	use_cice_alb,
		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)	snoalb,
		real (kind=kind_phys), dimension(:), intent(in)	zorlf,
		real (kind=kind_phys), dimension(:), intent(in)	coszf,
		real (kind=kind_phys), dimension(:), intent(in)	tsknf,
		real (kind=kind_phys), dimension(:), intent(in)	tairf,
		real (kind=kind_phys), dimension(:), intent(in)	hprif,
		logical, intent(in)	frac_grid,
		real (kind=kind_phys), dimension(:), intent(in)	lakefrac,
		real (kind=kind_phys), dimension(:), intent(in)	alvsf,
		real (kind=kind_phys), dimension(:), intent(in)	alnsf,
		real (kind=kind_phys), dimension(:), intent(in)	alvwf,
		real (kind=kind_phys), dimension(:), intent(in)	alnwf,
		real (kind=kind_phys), dimension(:), intent(in)	facsf,
		real (kind=kind_phys), dimension(:), intent(in)	facwf,
		real (kind=kind_phys), dimension(:), intent(in)	fice,
		real (kind=kind_phys), dimension(:), intent(in)	tisfc,
		real (kind=kind_phys), dimension(:), intent(inout)	lsmalbdvis,
		real (kind=kind_phys), dimension(:), intent(inout)	lsmalbdnir,
		real (kind=kind_phys), dimension(:), intent(inout)	lsmalbivis,
		real (kind=kind_phys), dimension(:), intent(inout)	lsmalbinir,
		real (kind=kind_phys), dimension(:), intent(in), optional	icealbdvis,
		real (kind=kind_phys), dimension(:), intent(in), optional	icealbdnir,
		real (kind=kind_phys), dimension(:), intent(in), optional	icealbivis,
		real (kind=kind_phys), dimension(:), intent(in), optional	icealbinir,
		integer, intent(in)	imax,
		integer, intent(in)	nf_albd,
		real (kind=kind_phys), dimension(:), intent(in)	albppert,
		real (kind=kind_phys), intent(in)	pertalb,
		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,
		integer, intent(in)	ialbflg,
		real (kind=kind_phys), intent(in)	con_ttp,
		real (kind=kind_phys), dimension(imax,nf_albd), intent(out)	sfcalb )

Parameters

slmsk	sea(0),land(1),ice(2) mask on fcst model grid
lsm	flag for land surface model
lsm_noahmp	flag for NOAH MP land surface model
lsm_ruc	flag for RUC land surface model
use_cice_alb	flag for using uce albedos from CICE when coupled
snodi	snow depth water equivalent in mm over ice
sncovr	snow cover over land
snoalb	maximum snow albedo over land (for deep snow)
zorlf	surface roughness in cm
coszf	cosin of solar zenith angle
tsknf	ground surface temperature in K
tairf	lowest model layer air temperature in K
hprif	topographic sdv in m
frac_grid	flag for fractional landmask
lakefrac	fraction of horizontal grid area occupied by lake
alvsf	visible black sky albedo at zenith 60 degree
alnsf	near-ir black sky albedo at zenith 60 degree
alvwf	visible white sky albedo
alnwf	near-ir white sky albedo
facsf	fractional coverage with strong cosz dependency
facwf	fractional coverage with weak cosz dependency
fice	sea-ice fraction
tisfc	sea-ice surface temperature
lsmalbdvis	direct surface albedo visible band over land
lsmalbdnir	direct surface albedo NIR band over land
lsmalbivis	diffuse surface albedo visible band over land
lsmalbinir	diffuse surface albedo NIR band over land
icealbdvis	direct surface albedo visible band over ice
icealbdnir	direct surface albedo NIR band over ice
icealbivis	diffuse surface albedo visible band over ice
icealbinir	diffuse surface albedo NIR band over ice
IMAX	array horizontal dimension
albppert	a probability value in the interval [0,1]
pertalb	(5), magnitude of perturbation of surface albedo
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
sfcalb	mean sfc albedo ( :, 1) - near ir direct beam albedo ( :, 2) - near ir diffused albedo ( :, 3) - uv+vis direct beam albedo ( :, 4) - uv+vis diffused albedo

setalb General Algorithm

• if ialbflg = 1, use MODIS based albedo for land area:

• Use snow cover input directly for land model, no conversion needed.

• if ialbflg = 2, use land model output for land area: Noah MP, RUC (land and ice).

• Call ppebet () to perturb all 4 elements of surface albedo sfcalb(:,1:4).

Definition at line 344 of file radiation_surface.f.

References csnow(), epsln, f_one, f_zero, and surface_perturbation::ppfbet().

Here is the call graph for this function: