MODULE constants
      REAL,PARAMETER  :: cp=1004 
      REAL,PARAMETER  :: kappa=287./1004.
      REAL,PARAMETER  :: To= 273.16
      REAL,PARAMETER  :: rhoh2o= 1000.
      REAL,PARAMETER  :: Cpd= 1005.46
      REAL,PARAMETER  :: Rd= 287.05
      REAL,PARAMETER  :: G = 9.80665
      REAL,PARAMETER  :: C2ES= 379.892958
      REAL,PARAMETER  :: C3IES= 21.875
      REAL,PARAMETER  :: C3LES= 17.269
      REAL,PARAMETER  :: C4IES= 7.66
      REAL,PARAMETER  :: C4LES= 35.86
      REAL,PARAMETER  :: C5IES= 5807.8125
      REAL,PARAMETER  :: C5LES= 4097.9337
      REAL,PARAMETER  :: VTMPC1= .60776868
      REAL,PARAMETER  :: VTMPC2= .85930818
      REAL,PARAMETER  :: als= 2834500.
      REAL,PARAMETER  :: alv= 2500800.
      REAL,PARAMETER  :: RDC= Rd/Cpd
      REAL,PARAMETER  :: p0= 1000.e+2
     END MODULE