[1299] | 1 | ! |
---|
[1357] | 2 | ! $Id $ |
---|
[1299] | 3 | ! |
---|
| 4 | |
---|
| 5 | MODULE control_mod |
---|
| 6 | |
---|
| 7 | ! LF 01/2010 |
---|
| 8 | ! Remplacement du fichier et common control |
---|
| 9 | |
---|
| 10 | IMPLICIT NONE |
---|
| 11 | |
---|
[2083] | 12 | REAL,SAVE :: periodav |
---|
| 13 | REAL,SAVE :: starttime |
---|
| 14 | INTEGER,SAVE :: nday ! # of days to run |
---|
| 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 |
---|
[4146] | 40 | LOGICAL,SAVE :: ok_dyn_xios ! xios outputs in dynamics |
---|
[2083] | 41 | LOGICAL,SAVE :: resetvarc ! allows to reset the variables in sortvarc |
---|
[1299] | 42 | |
---|
| 43 | END MODULE |
---|