gfs_radiation_surface_run()

subroutine gfs_radiation_surface::gfs_radiation_surface_run	(	integer, intent(in)	ialb,
		integer, intent(in)	im,
		integer, intent(in)	nf_albd,
		logical, intent(in)	frac_grid,
		logical, intent(in)	lslwr,
		logical, intent(in)	lsswr,
		integer, intent(in)	lsm,
		integer, intent(in)	lsm_noahmp,
		integer, intent(in)	lsm_ruc,
		real(kind=kind_phys), dimension(:), intent(in)	xlat,
		real(kind=kind_phys), dimension(:), intent(in)	xlon,
		real(kind=kind_phys), dimension(:), intent(in)	slmsk,
		integer, intent(in)	lndp_type,
		integer, intent(in)	n_var_lndp,
		real(kind=kind_phys), dimension(:), intent(in)	sfc_alb_pert,
		character(len=3), dimension(:), intent(in)	lndp_var_list,
		real(kind=kind_phys), dimension(:), intent(in)	lndp_prt_list,
		real(kind=kind_phys), dimension(:), intent(in)	landfrac,
		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)	fice,
		real(kind=kind_phys), dimension(:), intent(in)	zorl,
		real(kind=kind_phys), dimension(:), intent(in)	hprime,
		real(kind=kind_phys), dimension(:), intent(in)	tsfg,
		real(kind=kind_phys), dimension(:), intent(in)	tsfa,
		real(kind=kind_phys), dimension(:), intent(in)	tisfc,
		real(kind=kind_phys), dimension(:), intent(in)	coszen,
		logical, intent(in)	cplice,
		real(kind=kind_phys), intent(in)	min_seaice,
		real(kind=kind_phys), intent(in)	min_lakeice,
		real(kind=kind_phys), dimension(:), intent(in)	lakefrac,
		integer, dimension(:), intent(in)	use_lake_model,
		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(inout)	semis_lnd,
		real(kind=kind_phys), dimension(:), intent(inout)	semis_ice,
		real(kind=kind_phys), dimension(:), intent(inout)	semis_wat,
		real(kind=kind_phys), dimension(:), intent(in)	snoalb,
		logical, intent(in)	use_cice_alb,
		real(kind=kind_phys), intent(in)	con_ttp,
		real(kind=kind_phys), dimension(:), intent(inout)	albdvis_lnd,
		real(kind=kind_phys), dimension(:), intent(inout)	albdnir_lnd,
		real(kind=kind_phys), dimension(:), intent(inout)	albivis_lnd,
		real(kind=kind_phys), dimension(:), intent(inout)	albinir_lnd,
		real(kind=kind_phys), dimension(:), intent(in)	albdvis_ice,
		real(kind=kind_phys), dimension(:), intent(in)	albdnir_ice,
		real(kind=kind_phys), dimension(:), intent(in)	albivis_ice,
		real(kind=kind_phys), dimension(:), intent(in)	albinir_ice,
		real(kind=kind_phys), dimension(:), intent(inout)	semisbase,
		real(kind=kind_phys), dimension(:), intent(inout)	semis,
		real(kind=kind_phys), dimension(:,:), intent(inout)	sfcalb,
		real(kind=kind_phys), dimension(:), intent(inout)	sfc_alb_dif,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg
	)

Argument Table

• Call module_radiation_surface::setemis(),to set up surface emissivity for LW radiation.
• Set surface albedo perturbation, if requested
• Call module_radiation_surface::setalb(),to set up surface albedor for SW radiation.

1. Approximate mean surface albedo from vis- and nir- diffuse values.

References module_radiation_surface::epsln, module_radiation_surface::f_one, module_radiation_surface::f_zero, module_radiation_surface::setalb(), and module_radiation_surface::setemis().

Here is the call graph for this function: