module_radiation_surface Module Reference

This module sets up surface albedo for SW radiation and surface emissivity for LW radiation.

Functions/Subroutines
subroutine, public	sfc_init (me, ialbflg, iemsflg, semis_file, con_pi, errmsg, errflg)
	This subroutine is the initialization program for surface radiation related quantities (albedo, emissivity, etc.)
subroutine, public	setalb (slmsk, lsm, lsm_noahmp, lsm_ruc, use_cice_alb, snodi, sncovr, sncovr_ice, snoalb, zorlf, coszf, tsknf, tairf, hprif, frac_grid, lakefrac, alvsf, alnsf, alvwf, alnwf, facsf, facwf, fice, tisfc, lsmalbdvis, lsmalbdnir, lsmalbivis, lsmalbinir, icealbdvis, icealbdnir, icealbivis, icealbinir, imax, nf_albd, albppert, pertalb, fracl, fraco, fraci, icy, ialbflg, con_ttp, sfcalb)
	This subroutine computes four components of surface albedos (i.e., vis-nir, direct-diffused) according to control flag ialbflg. 1) climatological surface albedo scheme ([14]) 2) MODIS retrieval based scheme from Boston univ.
subroutine, public	setemis (lsm, lsm_noahmp, lsm_ruc, frac_grid, cplice, use_lake_model, lakefrac, xlon, xlat, slmsk, snodl, snodi, sncovr, sncovr_ice, zorlf, tsknf, tairf, hprif, semis_lnd, semis_ice, semis_wat, imax, fracl, fraco, fraci, icy, semisbase, sfcemis)
	This subroutine computes surface emissivity for LW radiation.

Variables
character(40), parameter	vtagsfc ='NCEP-Radiation_surface v5.1 Nov 2012 '
integer, parameter, public	imxems = 360
integer, parameter, public	jmxems = 180
real(kind=kind_phys), parameter, public	f_zero = 0.0
real(kind=kind_phys), parameter, public	f_one = 1.0
real(kind=kind_phys), parameter, public	epsln = 1.0e-6
real(kind=kind_phys)	rad2dg
integer, dimension(:,:), allocatable	idxems
integer	iemslw = 1