source: trunk/LMDZ.COMMON/libf/dyn3d_common/control_mod.F90 @ 1523

Last change on this file since 1523 was 1403, checked in by emillour, 10 years ago

All models: Reorganizing the physics/dynamics interface.

  • makelmdz and makelmdz_fcm scripts adapted to handle the new directory settings
  • misc: (replaces what was the "bibio" directory)
  • Should only contain extremely generic (and non physics or dynamics-specific) routines
  • Therefore moved initdynav.F90, initfluxsto.F, inithist.F, writedynav.F90, write_field.F90, writehist.F to "dyn3d_common"
  • dynlonlat_phylonlat: (new interface directory)
  • This directory contains routines relevent to physics/dynamics grid interactions, e.g. routines gr_dyn_fi or gr_fi_dyn and calfis
  • Moreover the dynlonlat_phylonlat contains directories "phy*" corresponding to each physics package "phy*" to be used. These subdirectories should only contain specific interfaces (e.g. iniphysiq) or main programs (e.g. newstart)
  • phy*/dyn1d: this subdirectory contains the 1D model using physics from phy*

EM
File size: 2.4 KB
Line 
1!
2! $Id $
3!
4
5MODULE control_mod
6
7! LF 01/2010
8! Remplacement du fichier et common control
9
10  IMPLICIT NONE
11
12  real,save :: periodav
13  real,save :: starttime
14  integer,save :: nday
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=4),save :: config_inca
32  character(len=10),save :: planet_type ! planet type ('earth','mars',...)
33  logical,save :: output_grads_dyn ! output dynamics diagnostics in
34                                   ! binary grads file 'dyn.dat' (y/n)
35  logical,save :: ok_dynzon  ! output zonal transports in dynzon.nc file
36  logical,save :: ok_dyn_ins ! output instantaneous values of fields
37                             ! in the dynamics in NetCDF files dyn_hist*nc
38  logical,save :: ok_dyn_ave ! output averaged values of fields in the dynamics
39                             ! in NetCDF files dyn_hist*ave.nc
40  logical,save :: resetvarc  ! allows to reset the variables in sortvarc
41  logical,save :: less1day   ! allows to run less than 1 day (for Venus)
42  real,save :: fractday   ! fraction of the day to run in this case
43 
44  integer,save :: ndynstep ! Alternative to using less1day&fractday; user may
45                           ! specify number of dynamical steps to run
46
47  integer,save :: ecritphy ! (Mars/generic) output (writediagfi) every
48                           ! ecritphy dynamical steps
49  integer,save :: ecritstart ! (Mars) output data in "start.nc" every
50                             !ecritstart dynamical steps
51  real,save :: timestart ! (Mars) time start for run in "start.nc"
52
53  ! stuff for compatibility with Mars/Generic old dyn cores. To be cleaned!
54  integer,save :: idissip ! (Mars/old dyn) dissipation freq.
55  real,save :: nday_r ! (Mars/old dyn) number of days to run (possibly including a fraction of day)
56
57
58END MODULE
Note: See TracBrowser for help on using the repository browser.