source: LMDZ6/branches/Amaury_dev/libf/phylmd/YOMCST2.h @ 5151

Last change on this file since 5151 was 5128, checked in by abarral, 8 weeks ago

Correct bug in vlspltqs_loc.f90 from r2270 where we call SSUM with incorrect arguments.
Merge the three different versions of abort_gcm into one
Fix seq, para 3D compilation broken from r5107 onwards
(lint) usual + Remove uneeded fixed-form continuations

  • 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: 658 bytes
RevLine 
[879]1
[2420]2      INTEGER choice, iflag_mix, iflag_mix_adiab
[879]3      REAL  gammas, alphas, betas, Fmax, qqa1, qqa2, qqa3, scut
4      REAL  Qcoef1max,Qcoef2max,Supcrit1,Supcrit2
[2201]5      REAL coef_clos_ls
[5099]6
[963]7      COMMON/YOMCST2/gammas,    alphas, betas, Fmax, scut,              &
[5128]8                     qqa1, qqa2, qqa3,                                  &
9                     Qcoef1max,Qcoef2max,                               &
10                     Supcrit1, Supcrit2,                                &
11                     choice,iflag_mix,coef_clos_ls,iflag_mix_adiab
[987]12!$OMP THREADPRIVATE(/YOMCST2/)
[963]13!    --------------------------------------------------------------------
[879]14
Note: See TracBrowser for help on using the repository browser.