Module ModEField

  use ModSize
  use ModAMIE

  integer, parameter :: potential_          = 1
  integer, parameter :: efield_east_        = 2
  integer, parameter :: efield_north_       = 3
  integer, parameter :: efield_magnitude_   = 4
  integer, parameter :: current_function_   = 5
  integer, parameter :: magnetic_potential_ = 6
  integer, parameter :: current_potential_  = 7
  integer, parameter :: vertical_magnetic_  = 8
  integer, parameter :: current_east_       = 9
  integer, parameter :: current_north_      = 10
  integer, parameter :: current_horizontal_ = 11
  integer, parameter :: current_fa_         = 12

  integer, parameter :: NEfield_Solutions = 12
  integer, parameter :: NEfield_BGModel = efield_magnitude_

  real, dimension(0:LONMX,0:ITHMX,NEfield_Solutions) ::               &
       Efield_Solution

  real, dimension(0:LONMX,0:ITHMX, NEfield_BGModel) ::                  &
       Efield_BGModel

  real, dimension(0:lonmx,0:ithmx) :: rms_pot, err_pot, JouleHeating

  real, dimension(0:LONMX,0:ITHMX,MAX_NTIMES) ::               &
       OldPotential, OldEFieldNorth, OldEFieldEast

end Module ModEField