source: palm/trunk/LIB/rrtmg/rrsw_tbl.f90 @ 4773

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

Added support for RRTMG radiation code

File size: 1.3 KB
RevLine 
[1585]1      module rrsw_tbl
2
3      use parkind, only : im => kind_im, rb => kind_rb
4
5      implicit none
6      save
7
8!------------------------------------------------------------------
9! rrtmg_sw lookup table arrays
10
11! Initial version: MJIacono, AER, may2007
12! Revised: MJIacono, AER, aug2007
13! Revised: MJIacono, AER, aug2008
14!------------------------------------------------------------------
15
16!  name     type     purpose
17! -----  :  ----   : ----------------------------------------------
18! ntbl   :  integer: Lookup table dimension
19! tblint :  real   : Lookup table conversion factor
20! tau_tbl:  real   : Clear-sky optical depth
21! exp_tbl:  real   : Exponential lookup table for transmittance
22! od_lo  :  real   : Value of tau below which expansion is used
23!                  : in place of lookup table
24! pade   :  real   : Pade approximation constant
25! bpade  :  real   : Inverse of Pade constant
26!------------------------------------------------------------------
27
28      integer(kind=im), parameter :: ntbl = 10000
29
30      real(kind=rb), parameter :: tblint = 10000.0_rb
31
32      real(kind=rb), parameter :: od_lo = 0.06_rb
33
34      real(kind=rb) :: tau_tbl
35      real(kind=rb) , dimension(0:ntbl) :: exp_tbl
36
37      real(kind=rb), parameter :: pade = 0.278_rb
38      real(kind=rb) :: bpade
39
40      end module rrsw_tbl
41
Note: See TracBrowser for help on using the repository browser.