MODULE comcstfi_h
      IMPLICIT NONE

      REAL,SAVE :: pi ! something like 3.14159
      REAL,SAVE :: rad ! radius of the planet (m)
      REAL,SAVE :: g ! gravity (m/s2)
!$OMP THREADPRIVATE(pi,rad,g)
      REAL,SAVE :: r ! reduced gas constant (r=8.314511/(mugaz/1000.0))
      REAL,SAVE :: cpp ! Cp of the atmosphere
      REAL,SAVE :: rcp ! r/cpp
!$OMP THREADPRIVATE(r,cpp,rcp)
      REAL,SAVE :: mugaz ! molar mass of the atmosphere (g/mol)
      REAL,SAVE :: omeg ! planet rotation rate (rad/s)
!$OMP THREADPRIVATE(mugaz,omeg)
      
      END MODULE comcstfi_h