| 1 | ! |
|---|
| 2 | ! $Id $ |
|---|
| 3 | ! |
|---|
| 4 | |
|---|
| 5 | MODULE control_mod |
|---|
| 6 | |
|---|
| 7 | ! LF 01/2010 |
|---|
| 8 | ! Remplacement du fichier et common control |
|---|
| 9 | |
|---|
| 10 | IMPLICIT NONE |
|---|
| 11 | |
|---|
| 12 | real,save :: periodav |
|---|
| 13 | real,save :: starttime |
|---|
| 14 | integer,save :: nday |
|---|
| 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 | logical,save :: cpofT |
|---|
| 32 | logical,save :: force_conserv_tracer ! enforce conservation of tracer mass |
|---|
| 33 | character(len=4),save :: config_inca |
|---|
| 34 | character(len=10),save :: planet_type ! planet type ('earth','mars',...) |
|---|
| 35 | logical,save :: output_grads_dyn ! output dynamics diagnostics in |
|---|
| 36 | ! binary grads file 'dyn.dat' (y/n) |
|---|
| 37 | logical,save :: ok_dynzon ! output zonal transports in dynzon.nc file |
|---|
| 38 | logical,save :: ok_dyn_ins ! output instantaneous values of fields |
|---|
| 39 | ! in the dynamics in NetCDF files dyn_hist*nc |
|---|
| 40 | logical,save :: ok_dyn_ave ! output averaged values of fields in the dynamics |
|---|
| 41 | ! in NetCDF files dyn_hist*ave.nc |
|---|
| 42 | logical,save :: resetvarc ! allows to reset the variables in sortvarc |
|---|
| 43 | logical,save :: less1day ! allows to run less than 1 day (for Venus) |
|---|
| 44 | real,save :: fractday ! fraction of the day to run in this case |
|---|
| 45 | |
|---|
| 46 | integer,save :: ndynstep ! Alternative to using less1day&fractday; user may |
|---|
| 47 | ! specify number of dynamical steps to run |
|---|
| 48 | |
|---|
| 49 | ! integer,save :: ecritphy ! (Mars/generic) output (writediagfi) every |
|---|
| 50 | ! ecritphy dynamical steps |
|---|
| 51 | integer,save :: ecritstart ! (Mars) output data in "start.nc" every |
|---|
| 52 | !ecritstart dynamical steps |
|---|
| 53 | real,save :: timestart ! (Mars) time start for run in "start.nc" |
|---|
| 54 | |
|---|
| 55 | ! stuff for compatibility with Mars/Generic old dyn cores. To be cleaned! |
|---|
| 56 | integer,save :: idissip ! (Mars/old dyn) dissipation freq. |
|---|
| 57 | real,save :: nday_r ! (Mars/old dyn) number of days to run (possibly including a fraction of day) |
|---|
| 58 | |
|---|
| 59 | |
|---|
| 60 | END MODULE |
|---|
