Module ModConstants

  !\
  ! Define some useful physical constants
  !/

  real, parameter :: pi    = 3.1415927
  real, parameter :: twopi = 2.0*pi
  real, parameter :: rad   = 180./pi
  real, parameter :: rtod  = rad
  real, parameter :: dtor  = pi/180.0
  real, parameter :: htor  = pi/12.0

  real, parameter :: re = 6372.0e3
  real, parameter :: ri = re + 110.0e3



end Module ModConstants