source: LMDZ6/trunk/libf/phylmd/cvflag_mod_h.f90 @ 5403

Last change on this file since 5403 was 5275, checked in by abarral, 7 weeks ago

Turn cvflag.h into a module

  • 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: 891 bytes
RevLine 
[5275]1! Replaces cvflag.h
[524]2
[5275]3MODULE cvflag_mod_h
4  IMPLICIT NONE; PRIVATE
5  PUBLIC  icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
6          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
7
8  LOGICAL cvflag_grav
9  LOGICAL cvflag_ice
10  LOGICAL ok_optim_yield
11  LOGICAL ok_entrain
12  LOGICAL ok_homo_tend
13  LOGICAL ok_convstop
14  LOGICAL ok_intermittent
15  LOGICAL cvflag_prec_eject
16  LOGICAL qsat_depends_on_qt
17  LOGICAL adiab_ascent_mass_flux_depends_on_ejectliq
18  LOGICAL keepbug_ice_frac
19  INTEGER icvflag_Tpa
20
21  !$OMP THREADPRIVATE(icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
22  !$OMP      ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac)
23END MODULE cvflag_mod_h
Note: See TracBrowser for help on using the repository browser.