source: palm/trunk/LIB/rrtmg/rrlw_cld.f90 @ 3285

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

Added support for RRTMG radiation code

File size: 995 bytes
RevLine 
[1585]1      module rrlw_cld
2
3      use parkind, only : rb => kind_rb
4
5      implicit none
6      save
7
8!------------------------------------------------------------------
9! rrtmg_lw cloud property coefficients
10
11! Revised: MJIacono, AER, jun2006
12! Revised: MJIacono, AER, aug2008
13!------------------------------------------------------------------
14
15!  name     type     purpose
16! -----  :  ----   : ----------------------------------------------
17! abscld1:  real   :
18! absice0:  real   :
19! absice1:  real   :
20! absice2:  real   :
21! absice3:  real   :
22! absliq0:  real   :
23! absliq1:  real   :
24!------------------------------------------------------------------
25
26      real(kind=rb) :: abscld1
27      real(kind=rb) , dimension(2) :: absice0
28      real(kind=rb) , dimension(2,5) :: absice1
29      real(kind=rb) , dimension(43,16) :: absice2
30      real(kind=rb) , dimension(46,16) :: absice3
31      real(kind=rb) :: absliq0
32      real(kind=rb) , dimension(58,16) :: absliq1
33
34      end module rrlw_cld
35
Note: See TracBrowser for help on using the repository browser.