Module ModData

  use ModAMIE
  use ModParameters

  real, dimension(MAX_MAGNETOMETERS) :: mglat, mglon, amltmg, weights, decmg
  character (len=3), dimension(MAX_MAGNETOMETERS) :: mgname

  real, dimension(MAX_NTIMES, MAX_MAGNETOMETERS) :: &
       zgm, wtzed, hgm, wth, dgm, wtd

  real :: MagPredicted(MAX_NTIMES, MAX_MAGNETOMETERS, 3)

  integer :: iMagErrorFlag(MAX_NTIMES, MAX_MAGNETOMETERS, 3)

  integer :: NAhn
  real, dimension(MAX_MAGNETOMETERS) :: &
       AhnPed, AhnHal, AhnWeight, AhnLat, AhnMLT, &
       AhnWeight_EFlux, AhnWeight_AveE

  integer :: nmagnetometers

  integer :: NAuroralObs

  real :: weight_on_x, weight_on_y, weight_on_z

  real*8, dimension(MAX_COND_FILES, MAX_DATA) :: ConductanceTimes

  real, dimension(MAX_COND_FILES, MAX_DATA, nConductanceSolutions) :: &
       ConductanceData, ConductanceDataError

  real, dimension(MAX_COND_FILES, MAX_DATA, NLocations) :: &
       ConductanceLocations

  integer, dimension(MAX_COND_FILES) :: npts_cond

  real*8, dimension(MAX_EFIELD_FILES, MAX_DATA) :: EfieldTimes

  real, dimension(MAX_EFIELD_FILES, MAX_DATA, 2) :: &
       EfieldData, EfieldDataError

  real, dimension(MAX_EFIELD_FILES, MAX_DATA, NLocations) :: &
       EfieldLocations

  real, dimension(MAX_EFIELD_FILES, MAX_DATA) :: EfieldAngle

  integer, dimension(MAX_EFIELD_FILES) :: npts_efield

  real :: LinearDropOffTimeEfield, LinearDropOffEfield

  real*8, dimension(MAX_EFIELD_FILES, MAX_DATA) :: CurrentTimes

  real, dimension(MAX_CURRENT_FILES, MAX_DATA, nCurrentFields) :: &
       CurrentData, CurrentDataError

  real, dimension(MAX_CURRENT_FILES, MAX_DATA, NLocations) :: &
       CurrentLocations

  real, dimension(MAX_CURRENT_FILES, MAX_DATA) :: &
       CurrentAngle, CurrentDalat, CurrentDalon

  integer, dimension(MAX_CURRENT_FILES) :: npts_current

  real :: LinearDropOffTimeCurrent, LinearDropOffCurrent

end Module ModData