source: palm/trunk/LIB/rrtmg/rrlw_tbl.f90 @ 4338

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

Added support for RRTMG radiation code

File size: 1.6 KB
RevLine 
[1585]1      module rrlw_tbl
2
3      use parkind, only : im => kind_im, rb => kind_rb
4
5      implicit none
6      save
7
8!------------------------------------------------------------------
9! rrtmg_lw exponential lookup table arrays
10
11! Initial version:  JJMorcrette, ECMWF, jul1998
12! Revised: MJIacono, AER, Jun 2006
13! Revised: MJIacono, AER, Aug 2007
14! Revised: MJIacono, AER, Aug 2008
15!------------------------------------------------------------------
16
17!  name     type     purpose
18! -----  :  ----   : ----------------------------------------------
19! ntbl   :  integer: Lookup table dimension
20! tblint :  real   : Lookup table conversion factor
21! tau_tbl:  real   : Clear-sky optical depth (used in cloudy radiative
22!                    transfer)
23! exp_tbl:  real   : Transmittance lookup table
24! tfn_tbl:  real   : Tau transition function; i.e. the transition of
25!                    the Planck function from that for the mean layer
26!                    temperature to that for the layer boundary
27!                    temperature as a function of optical depth.
28!                    The "linear in tau" method is used to make
29!                    the table.
30! pade   :  real   : Pade constant   
31! bpade  :  real   : Inverse of Pade constant   
32!------------------------------------------------------------------
33
34      integer(kind=im), parameter :: ntbl = 10000
35
36      real(kind=rb), parameter :: tblint = 10000.0_rb
37
38      real(kind=rb) , dimension(0:ntbl) :: tau_tbl
39      real(kind=rb) , dimension(0:ntbl) :: exp_tbl
40      real(kind=rb) , dimension(0:ntbl) :: tfn_tbl
41
42      real(kind=rb), parameter :: pade = 0.278_rb
43      real(kind=rb) :: bpade
44
45      end module rrlw_tbl
46
Note: See TracBrowser for help on using the repository browser.