| [38] | 1 | ! Radiative characteristics of the aerosols |
|---|
| 2 | ! |
|---|
| 3 | ! Shortwave |
|---|
| 4 | ! ~~~~~~~~~ |
|---|
| 5 | ! |
|---|
| 6 | ! tauvis: dust optical depth at reference wavelength ("longrefvis" set |
|---|
| 7 | ! in dimradmars.h : typically longrefvis = 0.67E-6 m, as measured by Viking ) |
|---|
| 8 | |
|---|
| 9 | ! For the "naerkind" kind of aerosol radiative properties : |
|---|
| 10 | ! QVISsQREF : Qext / Qext("longrefvis") <--- For both solar bands |
|---|
| 11 | ! omegavis : sinle scattering albedo <--- For both solar bands |
|---|
| 12 | ! gvis : assymetry factor <--- For both solar bands |
|---|
| 13 | ! |
|---|
| 14 | ! Longwave |
|---|
| 15 | ! ~~~~~~~~ |
|---|
| 16 | ! |
|---|
| 17 | ! For the "naerkind" kind of aerosol radiative properties : |
|---|
| 18 | ! QIRsQREF : Qext / Qext("longrefvis") <--- For the nir bandes IR |
|---|
| 19 | ! omegaIR : mean single scattering albedo <--- For the nir bandes IR |
|---|
| 20 | ! gIR : mean assymetry factor <--- For the nir bandes IR |
|---|
| 21 | ! |
|---|
| 22 | real tauvis |
|---|
| 23 | real QVISsQREF(nsun,naerkind,nsizemax) |
|---|
| 24 | real omegavis(nsun,naerkind,nsizemax) |
|---|
| 25 | real gvis(nsun,naerkind,nsizemax) |
|---|
| 26 | real QIRsQREF(nir,naerkind,nsizemax) |
|---|
| 27 | real omegaIR(nir,naerkind,nsizemax) |
|---|
| 28 | real gIR(nir,naerkind,nsizemax) |
|---|
| 29 | |
|---|
| 30 | ! Actual number of grain size classes in each domain for a |
|---|
| 31 | ! given aerosol: |
|---|
| 32 | |
|---|
| 33 | INTEGER :: nsize(naerkind,2) |
|---|
| 34 | |
|---|
| 35 | ! Particle size axis (depend on the kind of aerosol and the |
|---|
| 36 | ! radiation domain) |
|---|
| 37 | |
|---|
| 38 | REAL :: radiustab(naerkind,2,nsizemax) |
|---|
| 39 | |
|---|
| 40 | ! Extinction coefficient at reference wavelengths; |
|---|
| 41 | ! These wavelengths are defined in dimradmars.h, and called |
|---|
| 42 | ! longrefvis and longrefir. |
|---|
| 43 | |
|---|
| 44 | REAL :: QREFvis(naerkind,nsizemax) |
|---|
| 45 | REAL :: QREFir(naerkind,nsizemax) |
|---|
| 46 | REAL :: omegaREFvis(naerkind,nsizemax) |
|---|
| 47 | REAL :: omegaREFir(naerkind,nsizemax) |
|---|
| 48 | |
|---|
| 49 | ! For Fortran 77/Fortran 90 compliance always use line continuation |
|---|
| 50 | ! symbols '&' in columns 73 and 6 |
|---|
| 51 | |
|---|
| 52 | COMMON/YOMAER/tauvis,QVISsQREF,omegavis,gvis, & |
|---|
| 53 | & QIRsQREF,omegaIR,gIR, & |
|---|
| 54 | & QREFvis,QREFir,omegaREFvis,omegaREFir, & |
|---|
| 55 | & nsize,radiustab |
|---|
