module mo_constants 5,2
use shr_kind_mod
, only : r8 => shr_kind_r8
use physconst
, only : gravit,&
rearth,&
avogad,&
boltz,&
pi,&
rgrav=>rga
implicit none
save
real(r8), parameter :: dayspy = 365._r8 ! days per year
real(r8), parameter :: avogadro = avogad*1.e-3 ! Avogadro numb - molecules/mole
real(r8), parameter :: boltzmann = boltz*1.e7_r8 ! erg/k
real(r8), parameter :: d2r = pi/180._r8 ! radians to degrees
real(r8), parameter :: r2d = 180._r8/pi ! degrees to radians
contains
subroutine mo_constants_inti
implicit none
end subroutine mo_constants_inti
end module mo_constants