1
2! KGEN-generated Fortran source file
3!
4! Filename    : shr_const_mod.F90
5! Generated at: 2015-03-31 09:44:41
6! KGEN version: 0.4.5
7
8
9
10    MODULE shr_const_mod
11        USE shr_kind_mod, only : shr_kind_in
12        USE shr_kind_mod, only : shr_kind_r8
13        INTEGER(KIND=shr_kind_in), parameter, private :: r8 = shr_kind_r8 ! rename for local readability only
14        !----------------------------------------------------------------------------
15        ! physical constants (all data public)
16        !----------------------------------------------------------------------------
17        PUBLIC
18        REAL(KIND=r8), parameter :: shr_const_pi      = 3.14159265358979323846_r8 ! pi
19        ! sec in calendar day ~ sec
20        ! sec in siderial day ~ sec
21        ! earth rot ~ rad/sec
22        ! radius of earth ~ m
23        ! acceleration of gravity ~ m/s^2
24        ! Stefan-Boltzmann constant ~ W/m^2/K^4
25        ! Boltzmann's constant ~ J/K/molecule
26        ! Avogadro's number ~ molecules/kmole
27        ! Universal gas constant ~ J/K/kmole
28        ! molecular weight dry air ~ kg/kmole
29        ! molecular weight water vapor
30        ! Dry air gas constant     ~ J/K/kg
31        ! Water vapor gas constant ~ J/K/kg
32        ! RWV/RDAIR - 1.0
33        ! Von Karman constant
34        ! standard pressure ~ pascals
35        ! ratio of 13C/12C in Pee Dee Belemnite (C isotope standard)
36        ! triple point of fresh water        ~ K
37        ! freezing T of fresh water          ~ K
38        ! freezing T of salt water  ~ K
39        ! density of dry air at STP  ~ kg/m^3
40        ! density of fresh water     ~ kg/m^3
41        ! density of sea water       ~ kg/m^3
42        ! density of ice             ~ kg/m^3
43        ! specific heat of dry air   ~ J/kg/K
44        ! specific heat of water vap ~ J/kg/K
45        ! CPWV/CPDAIR - 1.0
46        ! specific heat of fresh h2o ~ J/kg/K
47        ! specific heat of sea h2o   ~ J/kg/K
48        ! specific heat of fresh ice ~ J/kg/K
49        ! latent heat of fusion      ~ J/kg
50        ! latent heat of evaporation ~ J/kg
51        ! latent heat of sublimation ~ J/kg
52        ! ocn ref salinity (psu)
53        ! ice ref salinity (psu)
54        ! special missing value
55        ! min spval tolerance
56        ! max spval tolerance
57        CONTAINS
58
59        ! write subroutines
60        ! No subroutines
61        ! No module extern variables
62        !-----------------------------------------------------------------------------
63
64        !-----------------------------------------------------------------------------
65    END MODULE shr_const_mod
66