subroutine module_radiation_aerosols::gocart_init ( integer, intent(in)  NWVTOT, real (kind=kind_phys), dimension(:), intent(in)  solfwv, real (kind=kind_phys), intent(in)  soltot, integer, intent(in)  NWVTIR, real (kind=kind_phys), dimension(:), intent(in)  eirfwv, integer, intent(in)  NBDSW, integer, intent(in)  NLWBND, integer, intent(in)  NSWLWBD, integer, intent(in)  imon, integer, intent(in)  me, real (kind=kind_phys), intent(in)  raddt, real (kind=kind_phys), intent(in)  fdaer  )

private

• determine weight and index for aerosol composition/luts
• read in monthly global distribution of gocart aerosols
• read and map the tabulated aerosol optical spectral data onto corresponding SW/LW radiation spectral bands.

Parameters

NWVTOT	total num of wave numbers used in sw spectrum
solfwv	(NWVTOT), solar flux for each individual wavenumber (w/m2)
soltot	total solar flux for the spectrual range (w/m2)
NWVTIR	total num of wave numbers used in the ir region
eirfwv	(NWVTIR), ir flux(273k) for each individual wavenumber (w/m2)
NBDSW	num of bands calculated for sw aeros opt prop
NLWBND	num of bands calculated for lw aeros opt prop
NSWLWBD	total num of bands calc for sw+lw aeros opt prop
imon	month of the year
me	print message control flag
raddt	radiation time step
fdaer

gocart_init General Algorithm

References optavg_grt(), rd_gocart_clim(), rd_gocart_luts(), and set_aerspc().

Here is the call graph for this function: