◆ clim_aerinit()

subroutine module_radiation_aerosols::clim_aerinit	(	real (kind=kind_phys), dimension(:)	solfwv,
		real (kind=kind_phys), dimension(:)	eirfwv,
		type(mpi_comm), intent(in)	mpicomm,
		integer, intent(in)	mpirank,
		integer, intent(in)	mpiroot,
		character(len=26), intent(in)	aeros_file,
		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