subroutine module_radiation_aerosols::gocart_aerinit ( real (kind=kind_phys), dimension(:)  solfwv, real (kind=kind_phys), dimension(:)  eirfwv, integer, intent(in)  me  )

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

References asyrhd_grt, asyrhi_grt, extrhd_grt, extrhi_grt, f_zero, kaerbndd, kaerbndi, kcm, kcm1, kcm2, krhlev, lalwflg, laswflg, nlwbnd, nlwstr, nswbnd, nswlwbd, module_radsw_parameters::nswstr, aerclm_def::ntrcaerm, nv_aod, optavg_gocart(), rd_gocart_luts(), scarhd_grt, scarhi_grt, ssarhd_grt, ssarhi_grt, wvn550, module_radlw_parameters::wvnlw1, and module_radlw_parameters::wvnlw2.

Referenced by aer_init().

Here is the call graph for this function: