| [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 | |
|---|
