source: trunk/LMDZ.COMMON/libf/dyn3d/logic_mod.F90 @ 3553

Last change on this file since 3553 was 1650, checked in by emillour, 8 years ago

Dynamical core: Further adaptations to stick with LMDZ5 (up to rev r2750)

  • libf
  • makelmdz[_fcm] : added Earth-specific "dust" and "strataer" cases and

-arch_path option

  • bld.cfg : added dust and strataer cases
  • dyn3d[par]
  • conf_gcm.F90 : added read_orop parameter (Earth-related) for

loading subgrid orography parameters.

  • guide[_p]_mod.F90: added output of nudging coefficients for winds

and temperature

  • temps_mod.F90 : cosmetics/comments
  • logic_mod.F90 : cosmetics/comments
  • dyn3d_common
  • comconst_mod.F90 : cosmetics/comments + added year_day module variable
  • conf_planete.F90 : added year_day from comconst_mod as done in LMDZ5
  • comvert_mod.F90 : cosmetics/comments
  • infotrac.F90 : added "startAer" case to follow up with LMDZ5
  • misc
  • wxios.F90 : follow up on changes in LMDZ5

EM

File size: 1.5 KB
Line 
1MODULE logic_mod
2
3IMPLICIT NONE 
4
5  LOGICAL purmats ! true if time stepping is purely Matsuno scheme
6                  ! false implies Matsuno-Leapfrog time stepping scheme
7  LOGICAL forward ! true if during forward phase of Matsuno step
8  LOGICAL leapf ! true if during a leapfrog time stepping step
9  LOGICAL apphys ! true if during a time step when physics will be called
10  LOGICAL statcl
11  LOGICAL conser
12  LOGICAL apdiss ! true if during a time step when dissipation will be called
13  LOGICAL apdelq
14  LOGICAL saison
15  LOGICAL ecripar
16  LOGICAL fxyhypb ! true if using hyperbolic function discretization
17                  ! for latitudinal grid
18  LOGICAL ysinus ! true if using sine function discretiation
19                 ! for latitudinal grid
20  LOGICAL read_start ! true if reading a start.nc file to initialize fields
21  LOGICAL ok_guide ! true if nudging
22  LOGICAL ok_strato
23  LOGICAL tidal  ! true if adding tidal forces (for Titan)
24  LOGICAL ok_gradsfile
25  LOGICAL ok_limit  ! true for boundary conditions file creation (limit.nc)
26  LOGICAL ok_etat0  ! true for initial states creation (start.nc, startphy.nc)
27  LOGICAL read_orop ! true for sub-cell scales orographic params read in file
28  LOGICAL hybrid ! vertical coordinate is hybrid if true (sigma otherwise)
29                 ! (only used if disvert_type==2)
30  LOGICAL moyzon_mu,moyzon_ch ! used for zonal averages in Titan
31
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.