This module contains climatological atmospheric aerosol schemes for radiation computations.
|
|
| subroutine, public | aer_init (NLAY, me) |
| | The initialization program is to set up necessary parameters and working arrays. More...
|
| |
| subroutine | clim_aerinit (solfwv, eirfwv, me ) |
| | This subroutine is the opac-climatology aerosol initialization program to set up necessary parameters and working arrays. More...
|
| |
| subroutine, public | aer_update (iyear, imon, me) |
| | This subroutine checks and updates time varying climatology aerosol data sets. More...
|
| |
| subroutine, public | setaer (prsi, prsl, prslk, tvly, rhlay, slmsk, tracer, xlon, xlat, IMAX, NLAY, NLP1, lsswr, lslwr, aerosw, aerolw , aerodp ) |
| | This subroutine computes aerosols optical properties. More...
|
| |
|
| subroutine | aer_property (prsi, prsl, prslk, tvly, rhlay, dz, hz, tracer, alon, alat, slmsk, laersw, laerlw, IMAX, NLAY, NLP1, aerosw, aerolw, aerodp ) |
| | This subroutine maps the 5 degree global climatological aerosol data set onto model grids, and compute aerosol optical properties for SW and LW radiations. More...
|
| |
|
| subroutine | gocart_init (NWVTOT, solfwv, soltot, NWVTIR, eirfwv, NBDSW, NLWBND, NSWLWBD, imon, me, raddt, fdaer ) |
| | The initialization program for gocart aerosols. More...
|
| |
| subroutine | setgocartaer (alon, alat, prslk, rhlay, dz, hz, NSWLWBD, prsl, tvly, trcly, IMAX, NLAY, NLP1, ivflip, lsswr, lslwr, aerosw, aerolw ) |
| | This subroutine computes SW + LW aerosol optical properties for gocart aerosol species (merged from fcst and clim fields). More...
|
| |
|
| character(40), parameter | vtagaer ='NCEP-Radiation_aerosols v5.2 Jan 2013 ' |
| |
| integer, parameter, public | nf_aesw = 3 |
| | number of output fields for SW rad More...
|
| |
| integer, parameter, public | nf_aelw = 3 |
| | number of output fields for LW rad More...
|
| |
| integer, parameter, public | nlwstr = 1 |
| | starting band number in IR region More...
|
| |
| integer, parameter, public | nspc = 5 |
| |
| integer, parameter, public | nspc1 = NSPC + 1 |
| |
| real(kind=kind_phys), parameter | f_zero = 0.0 |
| |
| real(kind=kind_phys), parameter | f_one = 1.0 |
| |
| integer, save | nswbnd = NBDSW |
| |
| integer, save | nlwbnd = NBDLW |
| |
| integer, save | nswlwbd = NBDSW+NBDLW |
| |
| integer, parameter, public | nwvsol = 151 |
| |
| integer, parameter, public | nwvtot = 57600 |
| |
| integer, parameter, public | nwvtir = 4000 |
| |
| integer, dimension(nwvsol), save | nwvns0 |
| |
| real(kind=kind_phys), dimension(nwvsol), save | s0intv |
| |
| integer, parameter | minvyr = 1850 |
| |
| integer, parameter | maxvyr = 1999 |
| |
| integer, dimension(:,:,:), allocatable, save | ivolae |
| |
| integer | kyrstr |
| |
| integer | kyrend |
| |
| integer | kyrsav |
| |
| integer | kmonsav |
| |
| integer, parameter | nxc = 5 |
| | num of max componets in a profile More...
|
| |
| integer, parameter | nae = 7 |
| |
| integer, parameter | ndm = 5 |
| |
| integer, parameter | imxae = 72 |
| |
| integer, parameter | jmxae = 37 |
| |
| integer, parameter | naerbnd =61 |
| |
| integer, parameter | nrhlev =8 |
| |
| integer, parameter | ncm1 = 6 |
| |
| integer, parameter | ncm2 = 4 |
| |
| integer, parameter | ncm = NCM1+NCM2 |
| |
| real(kind=kind_phys), dimension(nrhlev), save | rhlev |
| |
| real(kind=kind_phys), dimension(ndm, nae), save | haer |
| |
| real(kind=kind_phys), dimension(ndm, nae), save | prsref |
| |
| real(kind=kind_phys), dimension(ndm, nae), save | sigref |
| |
| real(kind=kind_phys), dimension(:,:), allocatable, save | extrhi |
| |
| real(kind=kind_phys), dimension(:,:), allocatable, save | scarhi |
| |
| real(kind=kind_phys), dimension(:,:), allocatable, save | ssarhi |
| |
| real(kind=kind_phys), dimension(:,:), allocatable, save | asyrhi |
| |
| real(kind=kind_phys), dimension(:,:,:), allocatable, save | extrhd |
| |
| real(kind=kind_phys), dimension(:,:,:), allocatable, save | scarhd |
| |
| real(kind=kind_phys), dimension(:,:,:), allocatable, save | ssarhd |
| |
| real(kind=kind_phys), dimension(:,:,:), allocatable, save | asyrhd |
| |
| real(kind=kind_phys), dimension(:), allocatable, save | extstra |
| |
| real(kind=kind_phys), dimension(nxc, imxae, jmxae), save | cmixg |
| |
| real(kind=kind_phys), dimension(2,imxae, jmxae), save | denng |
| |
| integer, dimension(nxc, imxae, jmxae), save | idxcg |
| |
| integer, dimension( imxae, jmxae), save | kprfg |
| |
| integer, parameter | kaerbnd =61 |
| |
| integer, parameter | krhlev =36 |
| |
| integer, save | kcm1 = 0 |
| |
| integer, save | kcm2 = 0 |
| |
| integer, save | kcm |
| |
| real(kind=kind_phys), dimension(krhlev) | rhlev_grt |
| |
| integer, dimension(:), allocatable | iendwv_grt |
| |
| real(kind=kind_phys), dimension(:,:), allocatable | rhidext0_grt |
| |
| real(kind=kind_phys), dimension(:,:), allocatable | rhidssa0_grt |
| |
| real(kind=kind_phys), dimension(:,:), allocatable | rhidasy0_grt |
| |
| real(kind=kind_phys), dimension(:,:,:), allocatable | rhdpext0_grt |
| |
| real(kind=kind_phys), dimension(:,:,:), allocatable | rhdpssa0_grt |
| |
| real(kind=kind_phys), dimension(:,:,:), allocatable | rhdpasy0_grt |
| |
| real(kind=kind_phys), dimension(:,:), allocatable, save | extrhi_grt |
| |
| real(kind=kind_phys), dimension(:,:), allocatable, save | ssarhi_grt |
| |
| real(kind=kind_phys), dimension(:,:), allocatable, save | asyrhi_grt |
| |
| real(kind=kind_phys), dimension(:,:,:), allocatable, save | extrhd_grt |
| |
| real(kind=kind_phys), dimension(:,:,:), allocatable, save | ssarhd_grt |
| |
| real(kind=kind_phys), dimension(:,:,:), allocatable, save | asyrhd_grt |
| |
| integer, parameter | imxg = 144 |
| |
| integer, parameter | jmxg = 91 |
| |
| integer, parameter | kmxg = 30 |
| |
| integer, save | nmxg |
| |
| real(kind=kind_phys), parameter | dltx = 360.0 / float(IMXG) |
| |
| real(kind=kind_phys), parameter | dlty = 180.0 / float(JMXG-1) |
| |
| real(kind=kind_phys), dimension(:,:,:), allocatable, save | psclmg |
| |
| real(kind=kind_phys), dimension(:,:,:,:), allocatable, save | dmclmg |
| |
| real(kind=kind_phys), dimension(:), allocatable, save | geos_rlon |
| |
| real(kind=kind_phys), dimension(:), allocatable, save | geos_rlat |
| |
| character *4, save | gocart_climo = 'xxxx' |
| |
| real(kind=kind_io4), dimension(:), allocatable | molwgt |
| |
| logical, save | lgrtint = .true. |
| |
| logical, save | lckprnt = .false. |
| |
| real(kind=kind_phys), save | ctaer = f_zero |
| |
| logical, save | get_fcst = .true. |
| |
| logical, save | get_clim = .true. |
| |
| integer, save | isoot |
| |
| integer, save | iwaso |
| |
| integer, save | isuso |
| |
| integer, save | issam |
| |
| integer, save | isscm |
| |
| type(gocart_index_type), save | dm_indx |
| | index for aer spec to be included in aeropt calculations More...
|
| |
| type(tracer_index_type), save | dmfcs_indx |
| | index for prognostic aerosol fields More...
|
| |
| integer, save | num_gridcomp = 0 |
| | number of aerosol grid components More...
|
| |
| character, dimension(:), allocatable, save | gridcomp |
| | aerosol grid components More...
|
| |
| integer, parameter | max_num_gridcomp = 5 |
| | default full-package setting More...
|
| |
| character *2, dimension(max_num_gridcomp) | max_gridcomp |
| |
| integer, dimension(ncm) | idxspc |
| | index conversion array More...
|
| |
| real(kind=kind_phys), parameter | wvn550 = 1.0e4/0.55 |
| | the wavenumber ( \(cm^-1\)) of wavelength 550nm for diagnostic aod output More...
|
| |
| integer, save | nv_aod = 1 |
| | the SW spectral band covering wvn550 (comp in aer_init) More...
|
| |
1.8.11