source: LMDZ6/branches/blowing_snow/libf/phylmd/cvflag.h

Last change on this file was 3503, checked in by fhourdin, 6 years ago

Ajout de declaration

  • 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: 861 bytes
Line 
1!
2! $Header$
3!
4      logical cvflag_grav
5      logical cvflag_ice
6      logical ok_optim_yield
7      logical ok_entrain
8      logical ok_homo_tend
9      logical ok_convstop
10      logical ok_intermittent
11      logical cvflag_prec_eject
12      logical qsat_depends_on_qt
13      logical adiab_ascent_mass_flux_depends_on_ejectliq
14      logical keepbug_ice_frac
15      integer icvflag_Tpa
16
17      COMMON /cvflag/ icvflag_Tpa, &
18                      cvflag_grav, cvflag_ice, &
19                      ok_optim_yield, &
20                      ok_entrain, &
21                      ok_homo_tend, &
22                      ok_convstop, ok_intermittent, &
23                      cvflag_prec_eject, &
24                      qsat_depends_on_qt, &
25                      adiab_ascent_mass_flux_depends_on_ejectliq, &
26                      keepbug_ice_frac
27!$OMP THREADPRIVATE(/cvflag/)
Note: See TracBrowser for help on using the repository browser.