source: LMDZ5/branches/testing/libf/dyn3dmem/logic_mod.F90 @ 5049

Last change on this file since 5049 was 2720, checked in by Laurent Fairhead, 8 years ago

Merged trunk changes r2664:2719 into testing branch

  • 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
File size: 1.9 KB
Line 
1!
2! $Id: $
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
36!$OMP THREADPRIVATE(purmats,forward,leapf,apphys,statcl,conser, &
37!$OMP     apdiss,apdelq,saison,ecripar,fxyhypb,ysinus, &
38!$OMP     read_start,ok_guide,ok_strato,ok_gradsfile, &
39!$OMP     ok_limit,ok_etat0,hybrid)
40!$OMP THREADPRIVATE(iflag_phys,iflag_trac)
41
42!WARNING: when adding a threadprivate variable in this module
43!        do not forget to add it to the copyin clause when opening an OpenMP
44!        parallel section. e.g. in gcm before call leapfrog_loc
45
46END MODULE logic_mod
Note: See TracBrowser for help on using the repository browser.