◆ gocart_aerinit()

subroutine module_radiation_aerosols::gocart_aerinit	(	real (kind=kind_phys), dimension(:)	solfwv,
		real (kind=kind_phys), dimension(:)	eirfwv,
		integer, intent(in)	me,
		integer, intent(out)	errflg,
		character(len=*), intent(out)	errmsg
	)

private

Parameters

solfwv	(NWVTOT), solar flux for each individual wavenumber \((w/m^2)\)
eirfwv	(NWVTIR), IR flux(273k) for each individual wavenumber \((w/m^2)\)
me	print message control flag

General Algorithm