! ! $Id $ ! MODULE control_mod ! LF 01/2010 ! Remplacement du fichier et common control IMPLICIT NONE REAL,SAVE :: periodav REAL,SAVE :: starttime INTEGER,SAVE :: nday ! # of days to run INTEGER,SAVE :: day_step ! # of dynamical time steps per day INTEGER,SAVE :: iperiod ! make a Matsuno step before avery iperiod-1 LF steps INTEGER,SAVE :: iapp_tracvl ! apply (cumulated) traceur advection every ! iapp_tracvl dynamical steps INTEGER,SAVE :: nsplit_phys ! number of sub-cycle steps in call to physics INTEGER,SAVE :: iconser INTEGER,SAVE :: iecri INTEGER,SAVE :: dissip_period ! apply dissipation every dissip_period ! dynamical step INTEGER,SAVE :: iphysiq ! call physics every iphysiq dynamical steps INTEGER,SAVE :: iecrimoy INTEGER,SAVE :: dayref INTEGER,SAVE :: anneeref ! reference year # INTEGER,SAVE :: raz_date INTEGER,SAVE :: ip_ebil_dyn LOGICAL,SAVE :: offline CHARACTER(len=10),SAVE :: planet_type ! planet type ('earth','mars',...) LOGICAL,SAVE :: output_grads_dyn ! output dynamics diagnostics in ! binary grads file 'dyn.dat' (y/n) LOGICAL,SAVE :: ok_dynzon ! output zonal transports in dynzon.nc file LOGICAL,SAVE :: ok_dyn_ins ! output instantaneous values of fields ! in the dynamics in NetCDF files dyn_hist*nc LOGICAL,SAVE :: ok_dyn_ave ! output averaged values of fields in the dynamics ! in NetCDF files dyn_hist*ave.nc LOGICAL,SAVE :: ok_dyn_xios ! xios outputs in dynamics LOGICAL,SAVE :: resetvarc ! allows to reset the variables in sortvarc END MODULE