module comcstphy REAL :: rradius ! planet radius (m) REAL :: rr ! recuced gas constant: R/molar mass of atm REAL :: rg ! gravity REAL :: rcpp ! specific heat of the atmosphere end module comcstphy