gfs_rrtmgp_pre_run()

subroutine, public gfs_rrtmgp_pre::gfs_rrtmgp_pre_run	(	integer, intent(in)	me,
		integer, intent(in)	ncol,
		integer, intent(in)	nlev,
		integer, intent(in)	i_o3,
		logical, intent(in)	doswrad,
		logical, intent(in)	dolwrad,
		real(kind_phys), intent(in)	fhswr,
		real(kind_phys), intent(in)	fhlwr,
		real(kind_phys), dimension(:), intent(in)	xlat,
		real(kind_phys), dimension(:), intent(in)	xlon,
		real(kind_phys), dimension(:,:), intent(in)	prsl,
		real(kind_phys), dimension(:,:), intent(in)	tgrs,
		real(kind_phys), dimension(:,:), intent(in)	prslk,
		real(kind_phys), dimension(:,:), intent(in)	prsi,
		real(kind_phys), dimension(:,:,:), intent(in)	qgrs,
		real(kind_phys), dimension(:), intent(in)	tsfc,
		real(kind_phys), dimension(:), intent(in)	coslat,
		real(kind_phys), dimension(:), intent(in)	sinlat,
		real(kind_phys), intent(in)	con_g,
		real(kind_phys), intent(in)	con_rd,
		real(kind_phys), intent(in)	con_eps,
		real(kind_phys), intent(in)	con_epsm1,
		real(kind_phys), intent(in)	con_fvirt,
		real(kind_phys), intent(in)	con_epsqs,
		real(kind_phys), intent(in)	solhr,
		real(kind_phys), intent(inout)	raddt,
		real(kind_phys), dimension(:,:), intent(inout), optional	p_lay,
		real(kind_phys), dimension(:,:), intent(inout), optional	t_lay,
		real(kind_phys), dimension(:,:), intent(inout), optional	p_lev,
		real(kind_phys), dimension(:,:), intent(inout), optional	t_lev,
		real(kind_phys), dimension(:,:), intent(inout), optional	vmr_o2,
		real(kind_phys), dimension(:,:), intent(inout), optional	vmr_h2o,
		real(kind_phys), dimension(:,:), intent(inout), optional	vmr_o3,
		real(kind_phys), dimension(:,:), intent(inout), optional	vmr_ch4,
		real(kind_phys), dimension(:,:), intent(inout), optional	vmr_n2o,
		real(kind_phys), dimension(:,:), intent(inout), optional	vmr_co2,
		real(kind_phys), dimension(:), intent(inout)	tsfg,
		real(kind_phys), dimension(:), intent(inout)	tsfa,
		real(kind_phys), dimension(:,:), intent(inout), optional	qs_lay,
		real(kind_phys), dimension(:,:), intent(inout), optional	q_lay,
		real(kind_phys), dimension(:,:), intent(inout), optional	tv_lay,
		real(kind_phys), dimension(:,:), intent(inout), optional	relhum,
		real(kind_phys), dimension(:,:), intent(inout), optional	deltaz,
		real(kind_phys), dimension(:,:), intent(inout), optional	deltazc,
		real(kind_phys), dimension(:,:), intent(inout), optional	deltap,
		character(len=*), dimension(:), intent(in), optional	active_gases_array,
		real(kind_phys), dimension(:), intent(inout)	tsfc_radtime,
		real(kind_phys), dimension(:), intent(inout)	coszen,
		real(kind_phys), dimension(:), intent(inout)	coszdg,
		logical, intent(inout)	top_at_1,
		integer, intent(inout)	isfc,
		integer, intent(inout)	itoa,
		integer, intent(out)	nday,
		integer, dimension(:), intent(inout)	idxday,
		real(kind_phys), dimension(:), intent(in)	semis,
		real(kind_phys), dimension(:,:), intent(inout), optional	sfc_emiss_byband,
		integer, intent(in)	ico2,
		type(ty_ozphys), intent(in)	ozphys,
		real(kind_phys), intent(in)	con_pi,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg )

Argument Table

local_name	standard_name	long_name	units	type	dimensions	kind	intent
me	mpi_rank	current MPI-rank	index	integer	()		in
ncol	horizontal_loop_extent	horizontal dimension	count	integer	()		in
nLev	vertical_layer_dimension	number of vertical levels	count	integer	()		in
doSWrad	flag_for_calling_shortwave_radiation	logical flags for sw radiation calls	flag	logical	()		in
doLWrad	flag_for_calling_longwave_radiation	logical flags for lw radiation calls	flag	logical	()		in
i_o3	index_of_ozone_mixing_ratio_in_tracer_concentration_array	tracer index for ozone mixing ratio	index	integer	()		in
fhswr	period_of_shortwave_radiation_calls	frequency for shortwave radiation	s	real	()	kind_phys	in
fhlwr	period_of_longwave_radiation_calls	frequency for longwave radiation	s	real	()	kind_phys	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
coslat	cosine_of_latitude	cosine of latitude	none	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sinlat	sine_of_latitude	sine of latitude	none	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
solhr	forecast_utc_hour	time in hours after 00z at the current timestep	h	real	()	kind_phys	in
prsi	air_pressure_at_interface	air pressure at model layer interfaces	Pa	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_interface_dimension)	kind_phys	in
prslk	dimensionless_exner_function	dimensionless Exner function at model layer centers	none	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	in
prsl	air_pressure	mean layer pressure	Pa	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	in
tgrs	air_temperature	model layer mean temperature	K	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	in
qgrs	tracer_concentration	model layer mean tracer concentration	kg kg-1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension, ccpp_constant_one:number_of_tracers)	kind_phys	in
tsfc	surface_skin_temperature	surface skin temperature	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
con_g	gravitational_acceleration	gravitational acceleration	m s-2	real	()	kind_phys	in
con_rd	gas_constant_of_dry_air	ideal gas constant for dry air	J kg-1 K-1	real	()	kind_phys	in
con_eps	ratio_of_dry_air_to_water_vapor_gas_constants	rd/rv	none	real	()	kind_phys	in
con_epsm1	ratio_of_dry_air_to_water_vapor_gas_constants_minus_one	(rd/rv) - 1	none	real	()	kind_phys	in
con_fvirt	ratio_of_vapor_to_dry_air_gas_constants_minus_one	(rv/rd) - 1 (rv = ideal gas constant for water vapor)	none	real	()	kind_phys	in
con_epsqs	minimum_value_of_saturation_mixing_ratio	floor value for saturation mixing ratio	kg kg-1	real	()	kind_phys	in
con_pi	pi	ratio of a circle's circumference to its diameter	none	real	()	kind_phys	in
ico2	control_for_co2	prescribed global mean value (old opernl)	flag	integer	()		in
raddt	time_step_for_radiation	radiation time step	s	real	()	kind_phys	inout
p_lay	air_pressure_at_layer_for_rrtmgp	air pressure at vertical layer for radiation calculation	Pa	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
p_lev	air_pressure_at_interface_for_rrtmgp	air pressure at vertical interface for radiation calculation	Pa	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_interface_dimension)	kind_phys	inout
t_lay	air_temperature_at_layer_for_rrtmgp	air temperature at vertical layer for radiation calculation	K	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
t_lev	air_temperature_at_interface_for_rrtmgp	air temperature at vertical interface for radiation calculation	K	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_interface_dimension)	kind_phys	inout
deltaZ	layer_thickness	layer_thickness	m	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
deltaZc	layer_thickness_from_layer_center	layer_thickness	m	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
deltaP	layer_thickness_in_pa	layer_thickness_in_Pa	Pa	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
top_at_1	flag_for_vertical_ordering_in_radiation	flag for vertical ordering in radiation	flag	logical	()		inout
iSFC	vertical_index_for_surface_in_rrtmgp	index for surface layer in RRTMGP	flag	integer	()		inout
iTOA	vertical_index_for_toa_in_rrtmgp	index for TOA layer in RRTMGP	flag	integer	()		inout
tsfc_radtime	surface_skin_temperature_on_radiation_timestep	surface skin temperature on radiation timestep	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
tsfg	surface_ground_temperature_for_radiation	surface ground temperature for radiation	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
tsfa	surface_air_temperature_for_radiation	lowest model layer air temperature for radiation	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
tv_lay	virtual_temperature	layer virtual temperature	K	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
relhum	relative_humidity	layer relative humidity	frac	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
qs_lay	saturation_vapor_pressure	saturation vapor pressure	Pa	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
q_lay	water_vapor_mixing_ratio	water vaport mixing ratio	kg kg-1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
vmr_o2	volume_mixing_ratio_for_o2	molar mixing ratio of o2 in with respect to dry air	1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
vmr_h2o	volume_mixing_ratio_for_h2o	molar mixing ratio of h2o in with respect to dry air	1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
vmr_o3	volume_mixing_ratio_for_o3	molar mixing ratio of o3 in with respect to dry air	1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
vmr_ch4	volume_mixing_ratio_for_ch4	molar mixing ratio of ch4 in with respect to dry air	1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
vmr_n2o	volume_mixing_ratio_for_n2o	molar mixing ratio of n2o in with respect to dry air	1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
vmr_co2	volume_mixing_ratio_for_co2	molar mixing ratio of co2 in with respect to dry air	1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
active_gases_array	list_of_active_gases_used_by_rrtmgp	list of active gases used by RRTMGP	none	character	(ccpp_constant_one:number_of_active_gases_used_by_RRTMGP)	len=*	in
coszdg	cosine_of_solar_zenith_angle_on_radiation_timestep	daytime mean cosz over rad call period	none	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
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	inout
semis	surface_longwave_emissivity	surface lw emissivity in fraction	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sfc_emiss_byband	surface_emissivity_in_each_rrtmgp_lw_band	surface emissivity in each RRTMGP LW band	none	real	(ccpp_constant_one:number_of_longwave_bands, ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
nday	daytime_points_dimension	daytime points dimension	count	integer	()		inout
idxday	daytime_points	daytime points	index	integer	(ccpp_constant_one:horizontal_loop_extent)		inout
ozphys	dataset_for_ozone_physics	dataset for NRL ozone physics	mixed	ty_ozphys	()	ty_ozphys	in
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

Sanitize inputs for use in RRTMGP.

Parameters

[in]	i_o3	Index into tracer array for ozone
[in]	dolwrad	Call LW radiation
[in]	fhlwr	Frequency of LW radiation call.
[in]	solhr	Time in hours after 00z at the current timestep
[in]	prsi	Pressure at model-interfaces (Pa)
[in]	qgrs	Tracer concentrations (kg/kg)
[in]	active_gases_array	List of active gases from namelist as array
[out]	errmsg	Error message
[in,out]	itoa	Vertical index for TOA
[in,out]	top_at_1	Vertical ordering flag
[in,out]	raddt	Radiation time-step
[in,out]	coszdg	Cosine of SZA, daytime
[in,out]	idxday	Indices for daylit points

Parameters

me	MPI rank
ncol	Number of horizontal grid points
nlev	Number of vertical layers
doswrad	Call SW radiation?
fhswr	Frequency of SW radiation call.
xlat	Latitude
xlon	Longitude
prsl	Pressure at model-layer centers (Pa)
tgrs	Temperature at model-layer centers (K)
prslk	Exner function at model layer centers (1)
tsfc	Surface skin temperature (K)
coslat	Cosine(latitude)
sinlat	Sine(latitude)
con_g	Physical constant: gravitational constant
con_rd	Physical constant: gas-constant for dry air
con_eps	Physical constant: Epsilon (Rd/Rv)
con_epsm1	Physical constant: Epsilon (Rd/Rv) minus one
con_fvirt	Physical constant: Inverse of epsilon minus one
con_epsqs	Physical constant: Minimum saturation mixing-ratio (kg/kg)
p_lay	Pressure at model-layer
t_lay	Temperature at model layer
p_lev	Pressure at model-interface
t_lev	Temperature at model-interface
tsfg	Ground temperature
tsfa	Skin temperature
qs_lay	Saturation vapor pressure at model-layers
q_lay	Water-vapor mixing ratio (kg/kg)
tv_lay	Virtual temperature at model-layers
relhum	Relative-humidity at model-layers
deltaz	Layer thickness (m)
deltazc	Layer thickness (m) (between layer centers)
deltap	Layer thickness (Pa)
tsfc_radtime	Surface temperature at radiation timestep
coszen	Cosine of SZA
isfc	Vertical index for surface
sfc_emiss_byband
ico2	Flag for co2 radiation scheme
con_pi	Physical constant: Pi
errflg	Error flag

References module_radiation_astronomy::coszmn(), module_radiation_gases::getgases(), and merge().

Here is the call graph for this function: