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

local_name	standard_name	long_name	units	type	dimensions	kind	intent
im	horizontal_loop_extent	horizontal loop extent	count	integer	()		in
ialb	control_for_surface_albedo	flag for using climatology alb, based on sfc type	flag	integer	()		in
nf_albd	number_of_components_for_surface_albedo	number of IR/VIS/UV compinents for surface albedo	count	integer	()		in
frac_grid	flag_for_fractional_landmask	flag for fractional grid	flag	logical	()		in
lslwr	flag_for_calling_longwave_radiation	logical flags for lw radiation calls	flag	logical	()		in
lsswr	flag_for_calling_shortwave_radiation	logical flags for sw radiation calls	flag	logical	()		in
lsm	control_for_land_surface_scheme	flag for land surface model	flag	integer	()		in
lsm_noahmp	identifier_for_noahmp_land_surface_scheme	flag for NOAH MP land surface model	flag	integer	()		in
lsm_ruc	identifier_for_ruc_land_surface_scheme	flag for RUC land surface model	flag	integer	()		in
xlat	latitude	latitude	radian	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
xlon	longitude	longitude	radian	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
slmsk	area_type	landmask: sea/land/ice=0/1/2	flag	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
lndp_type	control_for_stochastic_land_surface_perturbation	index for stochastic land surface perturbations type	index	integer	()		in
n_var_lndp	number_of_perturbed_land_surface_variables	number of land surface variables perturbed	count	integer	()		in
sfc_alb_pert	surface_albedo_perturbation	surface albedo perturbation	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
lndp_var_list	land_surface_perturbation_variables	variables to be perturbed for landperts	none	character	(ccpp_constant_one:number_of_perturbed_land_surface_variables)	len=3	in
lndp_prt_list	land_surface_perturbation_magnitudes	magnitude of perturbations for landperts	variable	real	(ccpp_constant_one:number_of_perturbed_land_surface_variables)	kind_phys	in
landfrac	land_area_fraction	fraction of horizontal grid area occupied by land	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
snodl	surface_snow_thickness_water_equivalent_over_land	water equivalent snow depth over land	mm	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
snodi	surface_snow_thickness_water_equivalent_over_ice	water equivalent snow depth over ice	mm	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sncovr	surface_snow_area_fraction_over_land	surface snow area fraction	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sncovr_ice	surface_snow_area_fraction_over_ice	surface snow area fraction over ice	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
fice	sea_ice_area_fraction_of_sea_area_fraction	ice fraction over open water	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
zorl	surface_roughness_length	surface roughness length	cm	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
hprime	standard_deviation_of_subgrid_orography	standard deviation of subgrid height_above_mean_sea_level	m	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
tsfg	surface_ground_temperature_for_radiation	surface ground temperature for radiation	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
tsfa	surface_air_temperature_for_radiation	lowest model layer air temperature for radiation	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
tisfc	surface_skin_temperature_over_ice	surface_skin_temperature_over_ice	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
coszen	cosine_of_solar_zenith_angle_for_daytime_points_on_radiation_timestep	mean cos of zenith angle over rad call period	none	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
cplice	flag_for_sea_ice_coupling	flag controlling cplice collection (default on)	flag	logical	()		in
min_seaice	min_sea_ice_area_fraction	minimum sea ice value	frac	real	()	kind_phys	in
min_lakeice	min_lake_ice_area_fraction	minimum lake ice value	frac	real	()	kind_phys	in
lakefrac	lake_area_fraction	fraction of horizontal grid area occupied by lake	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
use_lake_model	flag_for_using_lake_model	flag indicating lake points using a lake model	flag	integer	(ccpp_constant_one:horizontal_loop_extent)		inout
alvsf	vis_albedo_strong_cosz	mean vis albedo with strong cosz dependency	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
alnsf	nir_albedo_strong_cosz	mean nir albedo with strong cosz dependency	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
alvwf	vis_albedo_weak_cosz	mean vis albedo with weak cosz dependency	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
alnwf	nir_albedo_weak_cosz	mean nir albedo with weak cosz dependency	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
facsf	strong_cosz_area_fraction	fractional coverage with strong cosz dependency	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
facwf	weak_cosz_area_fraction	fractional coverage with weak cosz dependency	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
semis_lnd	surface_longwave_emissivity_over_land	surface lw emissivity in fraction over land	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
semis_ice	surface_longwave_emissivity_over_ice	surface lw emissivity in fraction over ice	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
semis_wat	surface_longwave_emissivity_over_water	surface lw emissivity in fraction over water	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
snoalb	upper_bound_of_max_albedo_assuming_deep_snow	maximum snow albedo	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
use_cice_alb	flag_for_cice_albedo	flag for using ice albedos form CICE when coupled (default on)	flag	logical	()		in
con_ttp	triple_point_temperature_of_water	triple point temperature of water	K	real	()	kind_phys	in
albdvis_lnd	surface_albedo_direct_visible_over_land	direct surface albedo visible band over land	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
albdnir_lnd	surface_albedo_direct_nir_over_land	direct surface albedo NIR band over land	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
albivis_lnd	surface_albedo_diffuse_visible_over_land	diffuse surface albedo visible band over land	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
albinir_lnd	surface_albedo_diffuse_nir_over_land	diffuse surface albedo NIR band over land	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
albdvis_ice	surface_albedo_direct_visible_over_ice	direct surface albedo visible band over ice	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
albdnir_ice	surface_albedo_direct_nir_over_ice	direct surface albedo NIR band over ice	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
albivis_ice	surface_albedo_diffuse_visible_over_ice	diffuse surface albedo visible band over ice	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
albinir_ice	surface_albedo_diffuse_nir_over_ice	diffuse surface albedo NIR band over ice	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
semisbase	baseline_surface_longwave_emissivity	baseline surface lw emissivity in fraction	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
semis	surface_longwave_emissivity	surface lw emissivity in fraction	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
sfcalb	surface_albedo_components	surface albedo IR/UV/VIS components	frac	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:number_of_components_for_surface_albedo)	kind_phys	inout
sfc_alb_dif	surface_albedo_for_diffused_shortwave_on_radiation_timestep	mean surface diffused sw albedo	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
errmsg	ccpp_error_message	error message for error handling in CCPP	none	character	()	len=*	out
errflg	ccpp_error_code	error code for error handling in CCPP	1	integer	()		out

• 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: