source: LMDZ6/branches/Ocean_skin/libf/phylmd/YOMCST2.h @ 3747

Last change on this file since 3747 was 2420, checked in by crio, 9 years ago

Nouvelle option d'epluchage de l'ascendance adiabatique dans le schema d'Emanuel: epluchage fonction de B/w2 au lieu de w. S'active avec iflag_mix_adiab=1 (valeur par defaut iflag_mix_adiab=0). Fonctionne avec iflag_mix=0 et iflag_mix=1.
Correction de bugs dans le schema de convection pour le calcul de inb, cape et buoy (sous le meme flag pour l'instant).
New option for the erosion of the adiabatic ascent in the Emanuel scheme: erosion function of B/w2 instead of w. Activated by iflag_mix_adiab=1 (standard value iflag_mix_adiab=0). Should work with iflag_mix=0 and iflag_mix=1.
Various bug corrections in the convection scheme for the computation of inb, cape, buoy (protected by the same flag for now).

  • 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: 659 bytes
Line 
1
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!    --------------------------------------------------------------------
14
Note: See TracBrowser for help on using the repository browser.