source: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/control_mod.F90 @ 5099

Last change on this file since 5099 was 5099, checked in by abarral, 16 months ago

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line
  • 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
Line 
1
2! $Id $
3
4MODULE control_mod
5
6! LF 01/2010
7! Remplacement du fichier et common control
8
9  IMPLICIT NONE
10
11  REAL,SAVE :: periodav
12  REAL,SAVE :: starttime
13  INTEGER,SAVE :: nday ! # of days to run
14  INTEGER,SAVE :: day_step ! # of dynamical time steps per day
15  INTEGER,SAVE :: iperiod ! make a Matsuno step before avery iperiod-1 LF steps
16  INTEGER,SAVE :: iapp_tracvl ! apply (cumulated) traceur advection every
17                              ! iapp_tracvl dynamical steps
18  INTEGER,SAVE :: nsplit_phys ! number of sub-cycle steps in call to physics
19  INTEGER,SAVE :: iconser
20  INTEGER,SAVE :: iecri
21  INTEGER,SAVE :: dissip_period ! apply dissipation every dissip_period
22                                ! dynamical step
23  INTEGER,SAVE :: iphysiq ! call physics every iphysiq dynamical steps
24  INTEGER,SAVE :: iecrimoy
25  INTEGER,SAVE :: dayref
26  INTEGER,SAVE :: anneeref ! reference year #
27  INTEGER,SAVE :: raz_date
28  INTEGER,SAVE :: ip_ebil_dyn
29  LOGICAL,SAVE :: offline
30  CHARACTER(len=10),SAVE :: planet_type ! planet type ('earth','mars',...)
31  LOGICAL,SAVE :: output_grads_dyn ! output dynamics diagnostics in
32                                   ! binary grads file 'dyn.dat' (y/n)
33  LOGICAL,SAVE :: ok_dynzon  ! output zonal transports in dynzon.nc file
34  LOGICAL,SAVE ::  ok_dyn_ins ! output instantaneous values of fields
35                              ! in the dynamics in NetCDF files dyn_hist*nc
36  LOGICAL,SAVE :: ok_dyn_ave ! output averaged values of fields in the dynamics
37                             ! in NetCDF files dyn_hist*ave.nc
38  LOGICAL,SAVE :: ok_dyn_xios ! xios outputs in dynamics
39  LOGICAL,SAVE :: resetvarc  ! allows to reset the variables in sortvarc
40
41END MODULE
Note: See TracBrowser for help on using the repository browser.