gfs_radiation_diagnostics()

subroutine gfs_radiation_post::gfs_radiation_diagnostics	(	logical, intent(in)	dolwrad,
		logical, intent(in)	doswrad,
		real(kind_phys), intent(in)	fhlwr,
		real(kind_phys), intent(in)	fhswr,
		real(kind_phys), dimension(ncol), intent(in)	coszen,
		real(kind_phys), dimension(ncol), intent(in)	coszdg,
		real(kind_phys), intent(in)	raddt,
		real(kind_phys), dimension(ncol,nspc1), intent(in)	aerodp,
		real(kind_phys), dimension(ncol,5), intent(in)	cldsa,
		integer, dimension(ncol,3), intent(in)	mtopa,
		integer, dimension(ncol,3), intent(in)	mbota,
		real(kind_phys), dimension(ncol,lmk), intent(in)	cldtausw,
		real(kind_phys), dimension(ncol,lmk), intent(in)	cldtaulw,
		real(kind_phys), dimension(ncol,nlev+1), intent(in)	p_lev,
		real(kind_phys), dimension(ncol,nlev), intent(in)	tgrs,
		integer, intent(in)	kb,
		integer, intent(in)	kd,
		integer, intent(in)	kt,
		type(sfcflw_type), dimension(ncol), intent(in)	sfcflw,
		type(sfcfsw_type), dimension(ncol), intent(in)	sfcfsw,
		type(topfsw_type), dimension(ncol), intent(in)	topfsw,
		type(topflw_type), dimension(ncol), intent(in)	topflw,
		type(cmpfsw_type), dimension(ncol), intent(in)	scmpsw,
		integer, intent(in)	ncol,
		integer, intent(in)	nday,
		integer, intent(in)	nlev,
		integer, intent(in)	lmk,
		integer, intent(in)	nfxr,
		integer, intent(in)	nspc1,
		real(kind_phys), dimension(ncol,nfxr), intent(inout)	fluxr
	)