C
C Thermodynamical constants:
C
C
        REAL CPD,CPV,CL,RD,RV,LV0,G,ROWL,EPS,EPSI,CPVMCL

        PARAMETER (CPD=1005.7, CPV=1870.0, CL=2500.0, RD=287.04)
        PARAMETER (RV=461.5, LV0=2.501E6, G=9.8, ROWL=1000.0 )
        PARAMETER (EPS=RD/RV, EPSI=1./EPS, CPVMCL=CL-CPV)