| 1 | MODULE control_mod |
|---|
| 2 | IMPLICIT NONE |
|---|
| 3 | |
|---|
| 4 | REAL,SAVE :: periodav |
|---|
| 5 | REAL,SAVE :: starttime |
|---|
| 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 :: iapp_tracvl ! apply (cumulated) traceur advection every |
|---|
| 10 | ! iapp_tracvl dynamical steps |
|---|
| 11 | INTEGER,SAVE :: nsplit_phys ! number of sub-cycle steps in CALL to physics |
|---|
| 12 | INTEGER,SAVE :: iconser |
|---|
| 13 | INTEGER,SAVE :: iecri |
|---|
| 14 | INTEGER,SAVE :: dissip_period ! apply dissipation every dissip_period |
|---|
| 15 | ! dynamical step |
|---|
| 16 | INTEGER,SAVE :: iphysiq ! CALL physics every iphysiq dynamical steps |
|---|
| 17 | INTEGER,SAVE :: iecrimoy |
|---|
| 18 | INTEGER,SAVE :: dayref |
|---|
| 19 | INTEGER,SAVE :: anneeref ! reference year # |
|---|
| 20 | INTEGER,SAVE :: raz_date |
|---|
| 21 | INTEGER,SAVE :: ip_ebil_dyn |
|---|
| 22 | LOGICAL,SAVE :: offline |
|---|
| 23 | CHARACTER(len=10),SAVE :: planet_type ! planet type ('earth','mars',...) |
|---|
| 24 | LOGICAL,SAVE :: output_grads_dyn ! output dynamics diagnostics in |
|---|
| 25 | ! binary grads file 'dyn.dat' (y/n) |
|---|
| 26 | LOGICAL,SAVE :: ok_dynzon ! output zonal transports in dynzon.nc file |
|---|
| 27 | LOGICAL,SAVE :: ok_dyn_ins ! output instantaneous values of fields |
|---|
| 28 | ! in the dynamics in NetCDF files dyn_hist*nc |
|---|
| 29 | LOGICAL,SAVE :: ok_dyn_ave ! output averaged values of fields in the dynamics |
|---|
| 30 | ! in NetCDF files dyn_hist*ave.nc |
|---|
| 31 | LOGICAL,SAVE :: ok_dyn_xios ! xios outputs in dynamics |
|---|
| 32 | LOGICAL,SAVE :: resetvarc ! allows to reset the variables in sortvarc |
|---|
| 33 | |
|---|
| 34 | END MODULE |
|---|
