module m_parameters
!     
      use m_kinds     
      public
!
! Set common physical parameters
!
      real(rkind1), parameter  :: Rdrygas=287.04  ! gas constant dry air
      real(rkind1), parameter  :: gravity=9.80616 ! acc. of gravity
      real(rkind1), parameter  :: ratio4R=0.622   ! ratio weight H2O/dryAir
!
      end module m_parameters