Defines/provides common constants.
REVISION HISTORY:
2002-jun-10 - B. Kauffman - created module
2002-dec-5 - T. Craig - names consistent with convention, cpl_const_*
INTERFACE:
module cpl_const_modUSES:
use cpl_kind_mod ! kinds
use shr_const_mod ! shared physical constants
implicit none
PUBLIC TYPES:
! nonePUBLIC MEMBER FUNCTIONS:
! nonePUBLIC DATA MEMBERS:
public
!----------------------------------------------------------------------------
! physical constants
!----------------------------------------------------------------------------
real(R8),parameter :: cpl_const_pi = SHR_CONST_PI ! pi
real(R8),parameter :: cpl_const_rearth = SHR_CONST_REARTH ! radius of earth ~ m
real(R8),parameter :: cpl_const_rearth2 = SHR_CONST_REARTH*SHR_CONST_REARTH ! rad**2
real(R8),parameter :: cpl_const_g = SHR_CONST_G ! gravity
real(R8),parameter :: cpl_const_deg2rad = cpl_const_pi/180.0_R8 ! deg to rads
real(R8),parameter :: cpl_const_rad2deg = 180.0_R8/cpl_const_pi ! rad to degs
real(R8),parameter :: cpl_const_cpdair = SHR_CONST_CPDAIR ! spec heat of dry air
real(R8),parameter :: cpl_const_cpwv = SHR_CONST_CPWV ! spec heat of h2o vapor
real(R8),parameter :: cpl_const_cpvir = cpl_const_cpwv/cpl_const_cpdair - 1.0_R8
real(R8),parameter :: cpl_const_zvir = SHR_CONST_ZVIR ! rh2o/rair - 1.0
real(R8),parameter :: cpl_const_latvap = SHR_CONST_LATVAP ! latent heat of evap
real(R8),parameter :: cpl_const_latice = SHR_CONST_LATICE ! latent heat of fusion
real(R8),parameter :: cpl_const_stebol = SHR_CONST_STEBOL ! Stefan-Boltzmann
real(R8),parameter :: cpl_const_karman = SHR_CONST_KARMAN ! Von Karman constant
real(R8),parameter :: cpl_const_ocn_ref_sal = SHR_CONST_OCN_REF_SAL ! ocn ref salt
real(R8),parameter :: cpl_const_ice_ref_sal = SHR_CONST_ICE_REF_SAL ! ice ref salt
real(R8),parameter :: cpl_const_spval = SHR_CONST_SPVAL ! special value