source: LMDZ6/branches/Ocean_skin/libf/dyn3dmem/logic_mod.F90 @ 5435

Last change on this file since 5435 was 2665, checked in by dcugnet, 8 years ago
  • A (re)startphy.nc file (standard name: "startphy0.nc") can be read by ce0l to get land mask, so mask can be defined (in decreasing priority order) from: 1) "o2a.nc file" if this file is found 2) "startphy0.nc" if this file is found 3) "Relief.nc" otherwise
  • Sub-cell scales parameters for orographic gravity waves can be read from file "oro_params.nc" if the configuration key "read_orop" is TRUE. The effect is to bypass the "grid_noro" routine in ce0l, so that any pre-defined mask (from o2a.nc or startphy0.nc) is then overwritten.
  • The gcm stops if the "limit.nc" records number differs from the current year number of days. A warning is issued in case the gcm calendar does not match the time axis attribute "calendar" (if available) from the "limit.nc" file. This attribute is now added to the "limit.nc" time axis.
  • Few simplifications in grid_noro
  • Few parameters changes in acama_gwd and flott_gwd.
  • Variable d_u can be saved in the outputs.
  • 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.