source: LMDZ5/branches/IPSLCM5A2.1/libf/dyn3d/logic_mod.F90 @ 5017

Last change on this file since 5017 was 2603, checked in by Ehouarn Millour, 8 years ago

Cleanup in the dynamics: turn logic.h into module logic_mod.F90
EM
  • 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: 1.2 KB
Line 
1!
2! $Id: logic_mod.F90 2603 2016-07-25 09:31:56Z dcugnet $
3!
4MODULE logic_mod
5
6IMPLICIT NONE
7
8  LOGICAL purmats ! true if time stepping is purely Matsuno scheme
9                  ! false implies Matsuno-Leapfrog time stepping scheme
10  LOGICAL forward ! true if during forward phase of Matsuno step
11  LOGICAL leapf ! true if during a leapfrog time stepping step
12  LOGICAL apphys ! true if during a time step when physics will be called
13  LOGICAL statcl
14  LOGICAL conser
15  LOGICAL apdiss ! true if during a time step when dissipation will be called
16  LOGICAL apdelq
17  LOGICAL saison
18  LOGICAL ecripar
19  LOGICAL fxyhypb ! true if using hyperbolic function discretization
20                  ! for latitudinal grid
21  LOGICAL ysinus ! true if using sine function discretiation
22                 ! for latitudinal grid
23  LOGICAL read_start ! true if reading a start.nc file to initialize fields
24  LOGICAL ok_guide ! true if nudging
25  LOGICAL ok_strato
26  LOGICAL ok_gradsfile
27  LOGICAL ok_limit
28  LOGICAL ok_etat0
29  LOGICAL hybrid ! vertical coordinate is hybrid if true (sigma otherwise)
30                 ! (only used if disvert_type==2)
31  INTEGER iflag_phys ! type of physics to call: 0 none, 1: phy*** package,
32                     ! 2: Held & Suarez, 101-200: aquaplanets & terraplanets
33  INTEGER iflag_trac
34
35END MODULE logic_mod
Note: See TracBrowser for help on using the repository browser.