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