source: LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_yomcst2.f90 @ 5225

Last change on this file since 5225 was 5158, checked in by abarral, 3 months ago

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables
  • 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: 591 bytes
RevLine 
[5158]1MODULE lmdz_yomcst2
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
[879]5
[5158]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
[5099]10
[5158]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 lmdz_yomcst2
Note: See TracBrowser for help on using the repository browser.