MODULE constants
    INTEGER :: ERRLEN=512
    REAL(KIND=8), PARAMETER :: P1000MB=100000.D0
    REAL(KIND=8), PARAMETER :: R_D=287.D0
    REAL(KIND=8), PARAMETER :: CP=7.D0*R_D/2.D0
    REAL(KIND=8), PARAMETER :: R=287.04D0
    REAL(KIND=8), PARAMETER :: G=9.81D0
    REAL(KIND=8), PARAMETER :: GAMMA=0.0065D0
END MODULE constants