Module ModIndices

  use ModAMIE, only : MAX_NTIMES

  integer, parameter :: f107_     =  1
  integer, parameter :: hpi_      =  2
  integer, parameter :: kp_       =  3
  integer, parameter :: au_       =  4
  integer, parameter :: al_       =  5
  integer, parameter :: ae_       =  6
  integer, parameter :: dst_      =  7
  integer, parameter :: imf_bx_   =  8
  integer, parameter :: imf_by_   =  9
  integer, parameter :: imf_bz_   = 10
  integer, parameter :: sw_v_     = 11
  integer, parameter :: sw_n_     = 12
  integer, parameter :: hpi_calc_ = 13
  integer, parameter :: jh_calc_  = 14
  integer, parameter :: hpi_norm_ = 15
  integer, parameter :: dst_in_   = 16

  integer, parameter :: NINDICES  = 16

  real, dimension(MAX_NTIMES, NINDICES) :: Indices

  real, dimension(MAX_NTIMES)    :: HPI_Model, HPI_Calculated, HPI_Input
  real, dimension(MAX_NTIMES)    :: au, al, ae
  real, dimension(MAX_NTIMES)    :: IMF_Bx, IMF_By, IMF_Bz, SW_v, SW_n
  integer, dimension(MAX_NTIMES) :: nae, ndst

  real :: Propagation_Plane_XY, Propagation_Plane_XZ
  real :: Satellite_X_Pos, Satellite_Y_Pos, Satellite_Z_Pos

  integer, parameter :: Max_Upstream_Npts = 25000
  integer :: Upstream_Npts

  real, dimension(Max_Upstream_Npts, 8)   :: Upstream_Data
  real*8, dimension(Max_Upstream_Npts)    :: Upstream_Time

end Module ModIndices