source: palm/trunk/LIB/rrtmg/rrlw_kg03.f90 @ 4816

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

Added support for RRTMG radiation code

File size: 2.3 KB
RevLine 
[1585]1      module rrlw_kg03
2
3      use parkind ,only : im => kind_im, rb => kind_rb
4
5      implicit none
6      save
7
8!-----------------------------------------------------------------
9! rrtmg_lw ORIGINAL abs. coefficients for interval 3
10! band 3:  500-630 cm-1 (low - h2o,co2; high - h2o,co2)
11!
12! Initial version:  JJMorcrette, ECMWF, jul1998
13! Revised: MJIacono, AER, jun2006
14! Revised: MJIacono, AER, aug2008
15!-----------------------------------------------------------------
16!
17!  name     type     purpose
18!  ----   : ----   : ---------------------------------------------
19!fracrefao: real   
20!fracrefbo: real
21! kao     : real     
22! kbo     : real     
23! kao_mn2o: real     
24! kbo_mn2o: real     
25! selfrefo: real     
26! forrefo : real
27!-----------------------------------------------------------------
28
29      integer(kind=im), parameter :: no3  = 16
30
31      real(kind=rb) :: fracrefao(no3,9) ,fracrefbo(no3,5)
32      real(kind=rb) :: kao(9,5,13,no3)
33      real(kind=rb) :: kbo(5,5,13:59,no3)
34      real(kind=rb) :: kao_mn2o(9,19,no3), kbo_mn2o(5,19,no3)
35      real(kind=rb) :: selfrefo(10,no3)
36      real(kind=rb) :: forrefo(4,no3)
37
38!-----------------------------------------------------------------
39! rrtmg_lw COMBINED abs. coefficients for interval 3
40! band 3:  500-630 cm-1 (low - h2o,co2; high - h2o,co2)
41!
42! Initial version:  JJMorcrette, ECMWF, jul1998
43! Revised: MJIacono, AER, jun2006
44! Revised: MJIacono, AER, aug2008
45!-----------------------------------------------------------------
46!
47!  name     type     purpose
48!  ----   : ----   : ---------------------------------------------
49!fracrefa : real   
50!fracrefb : real
51! ka      : real     
52! kb      : real     
53! ka_mn2o : real     
54! kb_mn2o : real     
55! selfref : real     
56! forref  : real
57!
58! absa    : real
59! absb    : real
60!-----------------------------------------------------------------
61
62      integer(kind=im), parameter :: ng3  = 16
63
64      real(kind=rb) :: fracrefa(ng3,9) ,fracrefb(ng3,5)
65      real(kind=rb) :: ka(9,5,13,ng3)  ,absa(585,ng3)
66      real(kind=rb) :: kb(5,5,13:59,ng3),absb(1175,ng3)
67      real(kind=rb) :: ka_mn2o(9,19,ng3), kb_mn2o(5,19,ng3)
68      real(kind=rb) :: selfref(10,ng3)
69      real(kind=rb) :: forref(4,ng3)
70
71      equivalence (ka(1,1,1,1),absa(1,1)),(kb(1,1,13,1),absb(1,1))
72
73      end module rrlw_kg03
74
75
Note: See TracBrowser for help on using the repository browser.