!
! $Id $
!

MODULE control_mod

! LF 01/2010
! Remplacement du fichier et common control

  IMPLICIT NONE

  REAL    :: periodav, starttime
  INTEGER :: nday,day_step,iperiod,iapp_tracvl,nsplit_phys
  INTEGER :: iconser,iecri,dissip_period,iphysiq,iecrimoy
  INTEGER :: dayref,anneeref, raz_date, ip_ebil_dyn
  LOGICAL :: offline
  CHARACTER (len=4)  :: config_inca
  CHARACTER (len=10) :: planet_type ! planet type ('earth','mars',...)
  LOGICAL output_grads_dyn ! output dynamics diagnostics in
                           ! binary grads file 'dyn.dat' (y/n)
  LOGICAL ok_dynzon  ! output zonal transports in dynzon.nc file
  LOGICAL ok_dyn_ins ! output instantaneous values of fields
                     ! in the dynamics in NetCDF files dyn_hist*nc
  LOGICAL ok_dyn_ave ! output averaged values of fields in the dynamics
                     ! in NetCDF files dyn_hist*ave.nc
  LOGICAL :: resetvarc  ! allows to reset the variables in sortvarc
  LOGICAL :: less1day   ! allows to run less than 1 day (for Venus)
  REAL    :: fractday   ! fraction of the day to run in this case

END MODULE
