|
Last change
on this file since 1974 was
1594,
checked in by emillour, 9 years ago
|
|
Mars and Generic "old" dynamics: to further harmonize with LMDZ.COMMON, replace "idissip" with "dissip_period".
EM
|
|
File size:
1.0 KB
|
| Rev | Line | |
|---|
| [1130] | 1 | |
|---|
| 2 | module control_mod |
|---|
| 3 | |
|---|
| 4 | implicit none |
|---|
| 5 | |
|---|
| 6 | integer,save :: ndynstep ! # of dynamical time steps to run (if negative or not specified in run.def, nday_r is used instead) |
|---|
| 7 | integer,save :: day_step ! # of dynamical time steps per day |
|---|
| 8 | integer,save :: iperiod ! make a Matsuno step before avery iperiod-1 LF steps |
|---|
| 9 | integer,save :: iconser ! |
|---|
| [1594] | 10 | integer,save :: dissip_period ! apply dissipation every dissip_period dynamical step |
|---|
| [1130] | 11 | integer,save :: iphysiq ! call physics every iphysiq dynamical steps |
|---|
| 12 | integer,save :: anneeref ! reference year # ! not used |
|---|
| 13 | real,save :: periodav |
|---|
| [1593] | 14 | ! integer,save :: ecritphy ! output data in "diagfi.nc" every ecritphy dynamical steps |
|---|
| [1130] | 15 | integer,save :: ecritstart ! output data in "start.nc" every ecritstart dynamical steps |
|---|
| 16 | real,save :: timestart ! time start for run in "start.nc" |
|---|
| 17 | real,save :: nday_r ! number of days to run (possibly including a fraction of day) |
|---|
| [1416] | 18 | character(len=10),save :: planet_type ! planet type ('earth','mars',...) |
|---|
| 19 | character(len=4),save :: config_inca |
|---|
| [1130] | 20 | |
|---|
| 21 | end module control_mod |
|---|
Note: See
TracBrowser
for help on using the repository browser.
