subroutine rrtmg_sw_pre::rrtmg_sw_pre_run	(	type(gfs_control_type), intent(in)	Model,
		type(gfs_grid_type), intent(in)	Grid,
		type(gfs_sfcprop_type), intent(in)	Sfcprop,
		type(gfs_radtend_type), intent(inout)	Radtend,
		integer, intent(in)	im,
		integer, intent(out)	nday,
		integer, dimension(size(grid%xlon,1)), intent(out)	idxday,
		real(kind=kind_phys), dimension(size(grid%xlon,1)), intent(in)	tsfg,
		real(kind=kind_phys), dimension(size(grid%xlon,1)), intent(in)	tsfa,
		real(kind=kind_phys), dimension(size(grid%xlon,1)), intent(out)	sfcalb1,
		real(kind=kind_phys), dimension(size(grid%xlon,1)), intent(out)	sfcalb2,
		real(kind=kind_phys), dimension(size(grid%xlon,1)), intent(out)	sfcalb3,
		real(kind=kind_phys), dimension(size(grid%xlon,1)), intent(out)	sfcalb4,
		real(kind=kind_phys), dimension(size(grid%xlon,1)), intent(in)	alb1d,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg
	)

Argument Table

local_name	standard_name	long_name	units	type	dimensions	kind	intent	optional
Model	GFS_control_type_instance	Fortran DDT containing FV3-GFS model control parameters	DDT	GFS_control_type	()		in	False
Grid	GFS_grid_type_instance	Fortran DDT containing FV3-GFS grid and interpolation related data	DDT	GFS_grid_type	()		in	False
Sfcprop	GFS_sfcprop_type_instance	Fortran DDT containing FV3-GFS surface fields	DDT	GFS_sfcprop_type	()		in	False
Radtend	GFS_radtend_type_instance	Fortran DDT containing FV3-GFS radiation tendencies	DDT	GFS_radtend_type	()		inout	False
im	horizontal_loop_extent	horizontal loop extent	count	integer	()		in	False
nday	daytime_points_dimension	daytime points dimension	count	integer	()		out	False
idxday	daytime_points	daytime points	index	integer	(horizontal_dimension)		out	False
tsfg	surface_ground_temperature_for_radiation	surface ground temperature for radiation	K	real	(horizontal_dimension)	kind_phys	in	False
tsfa	surface_air_temperature_for_radiation	lowest model layer air temperature for radiation	K	real	(horizontal_dimension)	kind_phys	in	False
sfcalb1	surface_albedo_due_to_near_IR_direct	surface albedo due to near IR direct beam	frac	real	(horizontal_dimension)	kind_phys	out	False
sfcalb2	surface_albedo_due_to_near_IR_diffused	surface albedo due to near IR diffused beam	frac	real	(horizontal_dimension)	kind_phys	out	False
sfcalb3	surface_albedo_due_to_UV_and_VIS_direct	surface albedo due to UV+VIS direct beam	frac	real	(horizontal_dimension)	kind_phys	out	False
sfcalb4	surface_albedo_due_to_UV_and_VIS_diffused	surface albedo due to UV+VIS diffused beam	frac	real	(horizontal_dimension)	kind_phys	out	False
alb1d	surface_albedo_perturbation	surface albedo perturbation	frac	real	(horizontal_dimension)	kind_phys	in	False
errmsg	ccpp_error_message	error message for error handling in CCPP	none	character	()	len=*	out	False
errflg	ccpp_error_flag	error flag for error handling in CCPP	flag	integer	()		out	False

1. Start SW radiation calculations
   • Check for daytime points for SW radiation.
   • Call module_radiation_surface::setalb() to setup surface albedo. for SW radiation.
2. Approximate mean surface albedo from vis- and nir- diffuse values.

References module_radiation_surface::nf_albd, and module_radiation_surface::setalb().

Here is the call graph for this function: