Changeset 5304 for LMDZ6/trunk/libf/phylmd/yomcst2_mod_h.f90
- Timestamp:
- Oct 30, 2024, 7:07:56 PM (22 hours ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/yomcst2_mod_h.f90
r5303 r5304 1 MODULE yomcst2_mod_h 2 IMPLICIT NONE; PRIVATE 3 PUBLIC gammas, alphas, betas, Fmax, scut, qqa1, qqa2, qqa3, Qcoef1max, & 4 Qcoef2max, Supcrit1, Supcrit2, choice, iflag_mix, coef_clos_ls, iflag_mix_adiab 1 5 2 INTEGER choice, iflag_mix, iflag_mix_adiab 3 REAL gammas, alphas, betas, Fmax, qqa1, qqa2, qqa3, scut 4 REAL Qcoef1max,Qcoef2max,Supcrit1,Supcrit2 5 REAL coef_clos_ls 6 ! 7 COMMON/YOMCST2/gammas, alphas, betas, Fmax, scut, & 8 & qqa1, qqa2, qqa3, & 9 & Qcoef1max,Qcoef2max, & 10 & Supcrit1, Supcrit2, & 11 & choice,iflag_mix,coef_clos_ls,iflag_mix_adiab 12 !$OMP THREADPRIVATE(/YOMCST2/) 13 ! -------------------------------------------------------------------- 6 INTEGER choice, iflag_mix, iflag_mix_adiab 7 REAL gammas, alphas, betas, Fmax, qqa1, qqa2, qqa3, scut 8 REAL Qcoef1max, Qcoef2max, Supcrit1, Supcrit2 9 REAL coef_clos_ls 14 10 11 !$OMP THREADPRIVATE(gammas, alphas, betas, Fmax, scut, qqa1, qqa2, qqa3, Qcoef1max, & 12 !$OMP Qcoef2max, Supcrit1, Supcrit2, choice, iflag_mix, coef_clos_ls, iflag_mix_adiab) 13 END MODULE yomcst2_mod_h
Note: See TracChangeset
for help on using the changeset viewer.