source: LMDZ6/branches/contrails/libf/phylmd/yomcst2_mod_h.f90 @ 5440

Last change on this file since 5440 was 5304, checked in by abarral, 2 months ago

Turn YOMCST2.h.h into module
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 593 bytes
Line 
1MODULE 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
5
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
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)
13END MODULE yomcst2_mod_h
Note: See TracBrowser for help on using the repository browser.