|
Last change
on this file since 1423 was
1416,
checked in by milmd, 10 years ago
|
|
Update newstart and start2archive programs to work with LMDZ.GENERIC or LMDZ.MARS dynamics. Modification of makegcm_ifort to compile on Ada.
|
|
File size:
705 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 ! |
|---|
| 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 |
|---|
| [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.
