|
Last change
on this file since 2236 was
1594,
checked in by emillour, 8 years ago
|
|
Mars and Generic "old" dynamics: to further harmonize with LMDZ.COMMON, replace "idissip" with "dissip_period".
EM
|
|
File size:
718 bytes
|
| Rev | Line | |
|---|
| [135] | 1 | |
|---|
| [1216] | 2 | module control_mod |
|---|
| [135] | 3 | |
|---|
| [1216] | 4 | implicit none |
|---|
| [135] | 5 | |
|---|
| [1216] | 6 | integer,save :: nday ! # of days to run |
|---|
| 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 |
|---|
| [1216] | 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 |
|---|
| [1416] | 15 | character(len=10),save :: planet_type ! planet type ('earth','mars',...) |
|---|
| 16 | character(len=4),save :: config_inca |
|---|
| [1216] | 17 | |
|---|
| 18 | end module control_mod |
|---|
Note: See
TracBrowser
for help on using the repository browser.
