| 1 | module rrsw_cld |
|---|
| 2 | |
|---|
| 3 | use parkind, only : im => kind_im, rb => kind_rb |
|---|
| 4 | |
|---|
| 5 | implicit none |
|---|
| 6 | save |
|---|
| 7 | |
|---|
| 8 | !------------------------------------------------------------------ |
|---|
| 9 | ! rrtmg_sw cloud property coefficients |
|---|
| 10 | ! |
|---|
| 11 | ! Initial: J.-J. Morcrette, ECMWF, oct1999 |
|---|
| 12 | ! Revised: J. Delamere/MJIacono, AER, aug2005 |
|---|
| 13 | ! Revised: MJIacono, AER, nov2005 |
|---|
| 14 | ! Revised: MJIacono, AER, jul2006 |
|---|
| 15 | ! Revised: MJIacono, AER, aug2008 |
|---|
| 16 | ! Revised: MJIacono, AER, dec2013: Updated xxxliq1 look-up tables |
|---|
| 17 | !------------------------------------------------------------------ |
|---|
| 18 | ! |
|---|
| 19 | ! name type purpose |
|---|
| 20 | ! ----- : ---- : ---------------------------------------------- |
|---|
| 21 | ! xxxliq1 : real : optical properties (extinction coefficient, single |
|---|
| 22 | ! scattering albedo, assymetry factor) based on |
|---|
| 23 | ! Hu & Stamnes, j. clim., 6, 728-742, 1993. Derived |
|---|
| 24 | ! from Mie scattering calculations at higher spectral |
|---|
| 25 | ! resolution than Hu & Stamnes. Used in CIRC (Continuous |
|---|
| 26 | ! Intercomparison of Radiation Codes) project. |
|---|
| 27 | ! xxxice2 : real : optical properties (extinction coefficient, single |
|---|
| 28 | ! scattering albedo, assymetry factor) from streamer v3.0, |
|---|
| 29 | ! Key, streamer user's guide, cooperative institude |
|---|
| 30 | ! for meteorological studies, 95 pp., 2001. |
|---|
| 31 | ! xxxice3 : real : optical properties (extinction coefficient, single |
|---|
| 32 | ! scattering albedo, assymetry factor) from |
|---|
| 33 | ! Fu, j. clim., 9, 1996. |
|---|
| 34 | ! xbari : real : optical property coefficients for five spectral |
|---|
| 35 | ! intervals (2857-4000, 4000-5263, 5263-7692, 7692-14285, |
|---|
| 36 | ! and 14285-40000 wavenumbers) following |
|---|
| 37 | ! Ebert and Curry, jgr, 97, 3831-3836, 1992. |
|---|
| 38 | !------------------------------------------------------------------ |
|---|
| 39 | |
|---|
| 40 | real(kind=rb) :: extliq1(58,16:29), ssaliq1(58,16:29), asyliq1(58,16:29) |
|---|
| 41 | real(kind=rb) :: extice2(43,16:29), ssaice2(43,16:29), asyice2(43,16:29) |
|---|
| 42 | real(kind=rb) :: extice3(46,16:29), ssaice3(46,16:29), asyice3(46,16:29) |
|---|
| 43 | real(kind=rb) :: fdlice3(46,16:29) |
|---|
| 44 | real(kind=rb) :: abari(5),bbari(5),cbari(5),dbari(5),ebari(5),fbari(5) |
|---|
| 45 | |
|---|
| 46 | end module rrsw_cld |
|---|
| 47 | |
|---|
