MODULE earth_const
  USE prec
  USE math_const
  
  REAL(rstd),PARAMETER :: radius=6.37122E6
!  REAL(rstd),PARAMETER :: radius=1.
  REAL(rstd),PARAMETER :: g=9.80616
  REAL(rstd),PARAMETER :: daysec=86400
!  REAL(rstd),PARAMETER :: omega=2*Pi/daysec
  REAL(rstd),PARAMETER :: omega=7.292E-5
!  REAL(rstd),PARAMETER :: omega=0
  REAL(rstd),PARAMETER :: kappa=0.2857143
  REAL(rstd),PARAMETER :: cpp=1004.70885
  REAL(rstd),PARAMETER :: preff=101325.
  REAL(rstd),PARAMETER :: pa=50000.  

END MODULE earth_const