source: LMDZ6/trunk/libf/dyn3d_common/control_mod.F90 @ 4401

Last change on this file since 4401 was 4358, checked in by dcugnet, 2 years ago
  • remove "config_inca" variable from "control_mod" and "infotrac_phy" (read in infotrac)
  • only kept version of "type_trac" is in tracinca ; few tests are moved from infotrac to this module.
  • simplify and generalize a bit the routines "phyetat0_get" and "phyetat0_srf" from phyetat0, converted to a module.
  • fix the isotopic version: few "USE … » were misplaced between ISOVERIF CPP keys
  • fix the old water and derived isotopes names in the ISOTRAC case
  • 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.7 KB
RevLine 
[1299]1!
[1357]2! $Id $
[1299]3!
4
5MODULE control_mod
6
7! LF 01/2010
8! Remplacement du fichier et common control
9
10  IMPLICIT NONE
11
[2083]12  REAL,SAVE :: periodav
13  REAL,SAVE :: starttime
14  INTEGER,SAVE :: nday ! # of days to run
15  INTEGER,SAVE :: day_step ! # of dynamical time steps per day
16  INTEGER,SAVE :: iperiod ! make a Matsuno step before avery iperiod-1 LF steps
17  INTEGER,SAVE :: iapp_tracvl ! apply (cumulated) traceur advection every
18                              ! iapp_tracvl dynamical steps
19  INTEGER,SAVE :: nsplit_phys ! number of sub-cycle steps in call to physics
20  INTEGER,SAVE :: iconser
21  INTEGER,SAVE :: iecri
22  INTEGER,SAVE :: dissip_period ! apply dissipation every dissip_period
23                                ! dynamical step
24  INTEGER,SAVE :: iphysiq ! call physics every iphysiq dynamical steps
25  INTEGER,SAVE :: iecrimoy
26  INTEGER,SAVE :: dayref
27  INTEGER,SAVE :: anneeref ! reference year #
28  INTEGER,SAVE :: raz_date
29  INTEGER,SAVE :: ip_ebil_dyn
30  LOGICAL,SAVE :: offline
31  CHARACTER(len=10),SAVE :: planet_type ! planet type ('earth','mars',...)
32  LOGICAL,SAVE :: output_grads_dyn ! output dynamics diagnostics in
33                                   ! binary grads file 'dyn.dat' (y/n)
34  LOGICAL,SAVE :: ok_dynzon  ! output zonal transports in dynzon.nc file
35  LOGICAL,SAVE ::  ok_dyn_ins ! output instantaneous values of fields
36                              ! in the dynamics in NetCDF files dyn_hist*nc
37  LOGICAL,SAVE :: ok_dyn_ave ! output averaged values of fields in the dynamics
38                             ! in NetCDF files dyn_hist*ave.nc
[4146]39  LOGICAL,SAVE :: ok_dyn_xios ! xios outputs in dynamics
[2083]40  LOGICAL,SAVE :: resetvarc  ! allows to reset the variables in sortvarc
[1299]41
42END MODULE
Note: See TracBrowser for help on using the repository browser.