MODULE constants
!=======================================================================
!  Initialize constants
!=======================================================================
 
  REAL, PARAMETER :: CAPA=0.28589641
  REAL, PARAMETER :: P1000=1000.E2
  REAL, PARAMETER :: GAMD=0.01,GAMi=0.0,GAMsubj=-0.0400
  REAL, PARAMETER :: CPD_P=1004.705243,ROVCP_P=0.285714286
  REAL, PARAMETER :: RD_P=287.0586407,G0_P=9.80665,CPOVR_P=3.5
  REAL, PARAMETER :: CONST=5.255303
  REAL, PARAMETER :: A2=17.2693882,A3=273.16,A4=35.86,PQ0=379.90516
  REAL, PARAMETER :: SPVAL=9.9E10


  END MODULE constants