source: dynamico_lmdz/aquaplanet/LMDZ5/libf/dyn3d/logic_mod.F90 @ 3990

Last change on this file since 3990 was 3990, checked in by millour, 8 years ago

An updated LMDZ5 (based on LMDZ rev 2786) to play with.
EM
File size: 1.5 KB
Line 
1!
2! $Id: logic_mod.F90 2665 2016-10-12 12:53:20Z 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  ! true for boundary conditions file creation (limit.nc)
28  LOGICAL ok_etat0  ! true for initial states creation (start.nc, startphy.nc)
29  LOGICAL read_orop ! true for sub-cell scales orographic params read in file
30  LOGICAL hybrid ! vertical coordinate is hybrid if true (sigma otherwise)
31                 ! (only used if disvert_type==2)
32  INTEGER iflag_phys ! type of physics to call: 0 none, 1: phy*** package,
33                     ! 2: Held & Suarez, 101-200: aquaplanets & terraplanets
34  INTEGER iflag_trac
35
36END MODULE logic_mod
Note: See TracBrowser for help on using the repository browser.