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

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(), and module_radiation_gases::getgases().

Here is the call graph for this function: