ufo_constants_mod.F90

Go to the documentation of this file.

!==========================================================================
module ufo_constants_mod
!==========================================================================
 
use kinds
 
implicit none
real(kind_real), parameter, public :: grav    = 9.80665e+0_kind_real
real(kind_real), parameter, public :: constoz = 604229.0_kind_real
real(kind_real), parameter, public :: t0c     = 2.7315e+2_kind_real ! temperature at zero celsius     (K)
real(kind_real), parameter, public :: rd     = 2.8705e2_kind_real
real(kind_real), parameter, public :: rv     = 4.6150e2_kind_real
real(kind_real), parameter, public :: cp     = 1.0046e3_kind_real ! heat capacity at constant pressure for air
real(kind_real), parameter, public :: cv     = 7.1760e2_kind_real ! heat capacity at constant volume for air
real(kind_real), parameter, public :: avogadro   = 6.022e23_kind_real
real(kind_real), parameter, public :: gas_constant = 8.314_kind_real ! R - universal gas constant
real(kind_real), parameter, public :: rd_over_rv = rd/rv
real(kind_real), parameter, public :: rd_over_cp = rd/cp
real(kind_real), parameter, public :: cv_over_cp = cv/cp
real(kind_real), parameter, public :: rv_over_rd = rv/rd
real(kind_real), parameter, public :: rd_over_g  = rd/grav
real(kind_real), parameter, public :: mean_earth_rad = 6371.0
real(kind_real), parameter, public :: zero    = 0.0_kind_real
real(kind_real), parameter, public :: quarter = 0.25_kind_real
real(kind_real), parameter, public :: half    = 0.5_kind_real
real(kind_real), parameter, public :: one     = 1.0_kind_real
real(kind_real), parameter, public :: two     = 2.0_kind_real
real(kind_real), parameter, public :: four    = 4.0_kind_real
real(kind_real), parameter, public :: five    = 5.0_kind_real
real(kind_real), parameter, public :: ten     = 10.0_kind_real
real(kind_real), parameter, public :: k_t   = 0.65       !> Thermal conductivity of water
real(kind_real), parameter, public :: l_e   = 2.26e+06 !> Latent heat of vaporization
real(kind_real), parameter, public :: eps   = 0.1      !> Albedo of sea water
real(kind_real), parameter, public :: sig   = 5.67e-6  !> Stefan-Boltzmann constant
real(kind_real), parameter, public :: alpha = 2.7e-4 !> Water thermal expansion coefficient
real(kind_real), parameter, public :: cw    = 0.015     !> Water specific heat
real(kind_real), parameter, public :: v_w   = 0.8e-6     !> Water kinematic viscosity
real(kind_real), parameter, public :: mw_ratio   = 0.62198       ! Ratio of molecular weights of water and dry air
real(kind_real), parameter, public :: c_virtual = 1./mw_ratio-1. ! Related to mw_ratio
real(kind_real), parameter, public :: s_b   = 0.026
real(kind_real), parameter, public :: gr    = 9.81
real(kind_real), parameter, public :: rou    = 1000.0
real(kind_real), parameter, public :: du    = 21.4e-6 !Dobson unit, kg O3/m**2
real(kind_real), parameter, public :: lclr   = 0.0065 ! constant lapse rate
real(kind_real), parameter, public :: t2tv   = 0.608 ! constant lapse rate
real(kind_real), parameter, public :: von_karman = 0.41_kind_real ! Von Karman Constant
real(kind_real), parameter, public :: es_w_0 = 611.2_kind_real ! saturation vapor pressure of water at 0C
real(kind_real), parameter, public :: pi      = acos(-one)
real(kind_real), parameter, public :: deg2rad =  pi/180.0_kind_real
real(kind_real), parameter, public :: rad2deg = one/deg2rad
real(kind_real), parameter, public :: pref = 1.0e5
! constants relating to WGS-84 ellipsoid and gravity above ellipsoid
real(kind_real), parameter, public :: ecc = 0.081819            ! eccentricity
real(kind_real), parameter, public :: k_somig = 1.931853e-3     ! Somigliana's constant
real(kind_real), parameter, public :: g_equat = 9.7803253359    ! equatorial gravity (ms-2)
real(kind_real), parameter, public :: a_earth = 6378.137e3      ! semi-major axis of earth (m)
real(kind_real), parameter, public :: flatt = 0.003352811       ! flattening
real(kind_real), parameter, public :: m_ratio= 0.003449787      ! gravity ratio
! Refractivity constants
real(kind_real), parameter, public :: n_alpha = 0.776           ! Refractivity constant a
real(kind_real), parameter, public :: n_beta  = 3.73e3          ! Refractivity constant b
! constants for use with RTTOV interface
real(kind_real), parameter, public :: g_to_kg = 0.001_kind_real
real(kind_real), parameter, public :: m_to_km = 0.001_kind_real
real(kind_real), parameter, public :: pa_to_hpa = 0.01_kind_real
 
real(kind_real), parameter, public :: min_q = 3.0e-6_kind_real
real(kind_real), parameter, public :: zerodegc = 273.15_kind_real
real(kind_real), parameter, public :: epsilon = 0.62198_kind_real ! molecular mass ratio of water (18.01528) to dry air (28.9645)
 
real(kind_real), parameter, public :: q_mixratio_to_ppmv  = 1.60771704e+6_kind_real
real(kind_real), parameter, public :: o3_mixratio_to_ppmv = 6.03504e+5_kind_real
real(kind_real), parameter, public :: co2_mixratio_to_ppmv = 6.58114e+5_kind_real
real(kind_real), parameter, public :: co_mixratio_to_ppmv  = 1.0340699e+6_kind_real
real(kind_real), parameter, public :: n2o_mixratio_to_ppmv = 6.58090e+5_kind_real
real(kind_real), parameter, public :: ch4_mixratio_to_ppmv = 1.80548e+6_kind_real
real(kind_real), parameter, public :: so2_mixratio_to_ppmv = 4.52118e+5_kind_real ! determined using same method as used in RTTOV but this
                                                                                  ! constant was never explicitly calculated 
                                                                                  ! mso2 = 32.065 + 2 * 15.9994 = 64.0638
 
 
end module ufo_constants_mod