source: palm/tags/release-5.0/LIB/rrtmg/rrsw_aer.f90 @ 2977

Last change on this file since 2977 was 1585, checked in by maronga, 9 years ago

Added support for RRTMG radiation code

File size: 1.8 KB
Line 
1      module rrsw_aer
2
3      use parkind, only : im => kind_im, rb => kind_rb
4      use parrrsw, only : nbndsw, naerec
5
6      implicit none
7      save
8
9!------------------------------------------------------------------
10! rrtmg_sw aerosol optical properties
11!
12!  Data derived from six ECMWF aerosol types and defined for
13!  the rrtmg_sw spectral intervals
14!
15! Initial: J.-J. Morcrette, ECMWF, mar2003
16! Revised: MJIacono, AER, jul2006
17! Revised: MJIacono, AER, aug2008
18!------------------------------------------------------------------
19!
20!-- The six ECMWF aerosol types are respectively:
21!
22!  1/ continental average                 2/ maritime
23!  3/ desert                              4/ urban
24!  5/ volcanic active                     6/ stratospheric background
25!
26! computed from Hess and Koepke (con, mar, des, urb)
27!          from Bonnel et al.   (vol, str)
28!
29! rrtmg_sw 14 spectral intervals (microns):
30!  3.846 -  3.077
31!  3.077 -  2.500
32!  2.500 -  2.150
33!  2.150 -  1.942
34!  1.942 -  1.626
35!  1.626 -  1.299
36!  1.299 -  1.242
37!  1.242 -  0.7782
38!  0.7782-  0.6250
39!  0.6250-  0.4415
40!  0.4415-  0.3448
41!  0.3448-  0.2632
42!  0.2632-  0.2000
43! 12.195 -  3.846
44!
45!------------------------------------------------------------------
46!
47!  name     type     purpose
48! -----   : ----   : ----------------------------------------------
49! rsrtaua : real   : ratio of average optical thickness in
50!                    spectral band to that at 0.55 micron
51! rsrpiza : real   : average single scattering albedo (unitless)
52! rsrasya : real   : average asymmetry parameter (unitless)
53!------------------------------------------------------------------
54
55      real(kind=rb) :: rsrtaua(nbndsw,naerec)
56      real(kind=rb) :: rsrpiza(nbndsw,naerec)
57      real(kind=rb) :: rsrasya(nbndsw,naerec)
58
59      end module rrsw_aer
60
Note: See TracBrowser for help on using the repository browser.