source: palm/trunk/LIB/rrtmg/rrsw_con.f90 @ 3638

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

Added support for RRTMG radiation code

File size: 1.4 KB
RevLine 
[1585]1      module rrsw_con
2
3      use parkind, only : im => kind_im, rb => kind_rb
4
5      implicit none
6      save
7
8!------------------------------------------------------------------
9! rrtmg_sw constants
10
11! Initial version: MJIacono, AER, jun2006
12! Revised: MJIacono, AER, aug2008
13!------------------------------------------------------------------
14
15!  name     type     purpose
16! -----  :  ----   : ----------------------------------------------
17! fluxfac:  real   : radiance to flux conversion factor
18! heatfac:  real   : flux to heating rate conversion factor
19!oneminus:  real   : 1.-1.e-6
20! pi     :  real   : pi
21! grav   :  real   : acceleration of gravity
22! planck :  real   : planck constant
23! boltz  :  real   : boltzmann constant
24! clight :  real   : speed of light
25! avogad :  real   : avogadro constant
26! alosmt :  real   : loschmidt constant
27! gascon :  real   : molar gas constant
28! radcn1 :  real   : first radiation constant
29! radcn2 :  real   : second radiation constant
30! sbcnst :  real   : stefan-boltzmann constant
31!  secdy :  real   : seconds per day
32!------------------------------------------------------------------
33
34      real(kind=rb) :: fluxfac, heatfac
35      real(kind=rb) :: oneminus, pi, grav
36      real(kind=rb) :: planck, boltz, clight
37      real(kind=rb) :: avogad, alosmt, gascon
38      real(kind=rb) :: radcn1, radcn2
39      real(kind=rb) :: sbcnst, secdy
40
41      end module rrsw_con
42
Note: See TracBrowser for help on using the repository browser.