source: palm/trunk/LIB/rrtmg/rrsw_cld.f90 @ 1722

Last change on this file since 1722 was 1585, checked in by maronga, 10 years ago

Added support for RRTMG radiation code

File size: 2.2 KB
RevLine 
[1585]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
Note: See TracBrowser for help on using the repository browser.