MODULE yomcst2_mod_h IMPLICIT NONE; PRIVATE PUBLIC gammas, alphas, betas, Fmax, scut, qqa1, qqa2, qqa3, Qcoef1max, & Qcoef2max, Supcrit1, Supcrit2, choice, iflag_mix, coef_clos_ls, iflag_mix_adiab 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 !$OMP THREADPRIVATE(gammas, alphas, betas, Fmax, scut, qqa1, qqa2, qqa3, Qcoef1max, & !$OMP Qcoef2max, Supcrit1, Supcrit2, choice, iflag_mix, coef_clos_ls, iflag_mix_adiab) END MODULE yomcst2_mod_h