rswinit()

subroutine, public rrtmg_sw::rswinit	(	integer, intent(in)	me,
		integer, intent(in)	rad_hr_units,
		logical, intent(in)	inc_minor_gas,
		integer, intent(in)	iswcliq,
		integer, intent(in)	isubcsw,
		integer, intent(in)	iovr,
		integer, intent(in)	iovr_rand,
		integer, intent(in)	iovr_maxrand,
		integer, intent(in)	iovr_max,
		integer, intent(in)	iovr_dcorr,
		integer, intent(in)	iovr_exp,
		integer, intent(in)	iovr_exprand,
		integer, intent(in)	iswmode,
		integer, intent(out)	errflg,
		character(len=*), intent(out)	errmsg
	)

Parameters

me	print control for parallel process

rswinit General Algorithm

• Setup constant factors for heating rate the 1.0e-2 is to convert pressure from mb to \(N/m^2\) .
• Define exponential lookup tables for transmittance.

Referenced by gfs_rrtmg_setup::gfs_rrtmg_setup_init().

Here is the caller graph for this function: