source: LMDZ6/branches/Amaury_dev/libf/phylmd/cvflag.h @ 5136

Last change on this file since 5136 was 5117, checked in by abarral, 2 months ago

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

  • 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: 859 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.