INTEGER choice, iflag_mix, iflag_mix_adiab
      REAL  gammas, alphas, betas, Fmax, qqa1, qqa2, qqa3, scut
      REAL  Qcoef1max,Qcoef2max,Supcrit1,Supcrit2
      REAL coef_clos_ls
!
      COMMON/YOMCST2/gammas,    alphas, betas, Fmax, scut,              &
     &               qqa1, qqa2, qqa3,                                  &
     &               Qcoef1max,Qcoef2max,                               &
     &               Supcrit1, Supcrit2,                                &
     &               choice,iflag_mix,coef_clos_ls,iflag_mix_adiab
!$OMP THREADPRIVATE(/YOMCST2/)
!    --------------------------------------------------------------------