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 extrhd_grt, extrhi_grt, f_zero, get_clim, iendwv_grt, kaerbnd, krhlev, lckprnt, lgrtint, lmap_new, module_radsw_parameters::nswstr, nv_aod, optavg_grt(), rd_gocart_clim(), rd_gocart_luts(), rhdpasy0_grt, rhdpext0_grt, rhdpssa0_grt, rhidasy0_grt, rhidext0_grt, rhidssa0_grt, rhlev_grt, set_aerspc(), wvn550, wvn_lw1, wvn_lw2, wvn_sw1, and wvn_sw2.

Here is the call graph for this function: