aer_property_gocart()

subroutine module_radiation_aerosols::aer_property_gocart ( real (kind=kind_phys), dimension(:,:), intent(in)  prsi, real (kind=kind_phys), dimension(:,:), intent(in)  prsl, real (kind=kind_phys), dimension(:,:), intent(in)  prslk, real (kind=kind_phys), dimension(:,:), intent(in)  tvly, real (kind=kind_phys), dimension(:,:), intent(in)  rhlay, real (kind=kind_phys), dimension(:,:), intent(in)  dz, real (kind=kind_phys), dimension(:,:), intent(in)  hz, real (kind=kind_phys), dimension(:,:,:), intent(in)  tracer, real (kind=kind_phys), dimension(:,:,:), intent(in)  aerfld, real (kind=kind_phys), dimension(:), intent(in)  alon, real (kind=kind_phys), dimension(:), intent(in)  alat, real (kind=kind_phys), dimension(:), intent(in)  slmsk, logical, intent(in)  laersw, logical, intent(in)  laerlw, real (kind=kind_phys), intent(in)  con_rd, integer, intent(in)  imax, integer, intent(in)  nlay, integer, intent(in)  nlp1, real (kind=kind_phys), dimension(:,:,:,:), intent(out)  aerosw, real (kind=kind_phys), dimension(:,:,:,:), intent(out)  aerolw, real (kind=kind_phys), dimension(:,:), intent(out)  aerodp, real (kind=kind_phys), dimension(:,:), intent(out)  ext550, integer, intent(out)  errflg, character(len=*), intent(out)  errmsg  )

private

Parameters

prsi	(IMAX,NLP1), pressure at interface in mb
prsl	(IMAX,NLAY), layer mean pressure(not used)
prslk	(IMAX,NLAY), exner function= \((p/p0)^{rocp}\) (not used)
tvly	(IMAX,NLAY), layer virtual temperature (not used)
rhlay	(IMAX,NLAY), layer mean relative humidity
dz	(IMAX,NLAY), layer thickness in m
hz	(IMAX,NLP1), level high in m
tracer	(IMAX,NLAY,NTRAC), aer tracer concentrations
aerfld	(IMAX,NLAY,NTRCAER), aer tracer concentrations
alon,alat	(IMAX), longitude and latitude of given points in degree
slmsk	(IMAX), sea/land mask (sea:0,land:1,sea-ice:2)
laersw,laerlw	logical flag for sw/lw aerosol calculations
IMAX	horizontal dimension of arrays
NLAY,NLP1	vertical dimensions of arrays
NSPC	num of species for optional aod output fields
aerosw	(IMAX,NLAY,NBDSW,NF_AESW), aeros opt properties for sw (:,:,:,1): optical depth (:,:,:,2): single scattering albedo (:,:,:,3): asymmetry parameter
aerolw	(IMAX,NLAY,NBDLW,NF_AELW), aeros opt properties for lw (:,:,:,1): optical depth (:,:,:,2): single scattering albedo (:,:,:,3): asymmetry parameter
aerodp	(IMAX,NSPC+1), vertically integrated aer-opt-depth

General Algorithm