|
Last change
on this file since 1540 was
1532,
checked in by emillour, 9 years ago
|
|
Mars GCM:
- Some fixes for buggy outputs in 1D introduced by previous code modifications.
- made statto.h a module.
- ecritphy in dyn3d/control_mod.F90 should be an integer, not a real.
EM
|
|
File size:
1.0 KB
|
| Line | |
|---|
| 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 ! |
|---|
| 10 | integer,save :: idissip ! apply dissipation every idissip dynamical step |
|---|
| 11 | integer,save :: iphysiq ! call physics every iphysiq dynamical steps |
|---|
| 12 | integer,save :: anneeref ! reference year # ! not used |
|---|
| 13 | real,save :: periodav |
|---|
| 14 | integer,save :: ecritphy ! output data in "diagfi.nc" every ecritphy dynamical steps |
|---|
| 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) |
|---|
| 18 | character(len=10),save :: planet_type ! planet type ('earth','mars',...) |
|---|
| 19 | character(len=4),save :: config_inca |
|---|
| 20 | |
|---|
| 21 | end module control_mod |
|---|
Note: See
TracBrowser
for help on using the repository browser.
