Module ModAMIE

  use ModQset
  use ModParameters

  real, parameter :: Version = 2.21

  integer :: me_world, numprocs, ira, erno
  integer :: iteration_number

  real*8 :: starttime, currenttime, timelist(MAX_NTIMES)
  real   :: ut

  integer :: dt, dt_window, window_dt, ntimes, ntimes_total

  integer :: DebugLevel

  logical :: UseExperimentalCode = .false.
  logical :: UseAEHPIMix = .false.

  !\
  ! Define the grid:
  !/

  real :: dlon, dth
  real, dimension(0:lonmx) :: mlt
  real, dimension(0:ithmx) :: clatd

  logical :: OutputBinary        = .true.
  logical :: OutputMagnetometers = .false.
  logical :: OutputData          = .false.

  logical :: north  = .true.
  integer :: ihsoln = 1

  logical :: ReplaceXNORM = .false.
  logical :: Calculate_Errors = .false.

  logical :: use_magnetometers = .false.
  logical :: use_ahn           = .true. 
  logical :: use_zed           = .true.
  character (len=100) :: ahn_model = '98'
  logical :: UseMinMaxDst = .false.
  logical :: UseMinMaxAe  = .false.

  !\
  ! This is a work array for the apex interpolation grid:
  !/

  real, dimension(apex_parameter) :: wkap

  real :: time_delay

  character (len=100) :: efield_model = 'zero'
  character (len=100) :: cond_model   = 'ihp'
  character (len=100) :: solar_model  = 'kroehl'

  real :: pole_colat, pole_east_lon, vp
  real :: subsolar_lat, subsolar_lon, apex_lon_midnight
  real :: subsol_mag_colat
  real :: cos_subsol_mag_colat, sin_subsol_mag_colat

  real :: minSolarPedersen = 0.4
  real :: minSolarHall     = 0.8

end Module ModAMIE