Module ModFiles

  use ModParameters

  character (len=100) :: apex_file             = 'apxntrp.grid.1965-2005'
  character (len=100) :: qset_file             = 'qsetcrayascii.'
  character (len=100) :: ihp_file              = 'hpke.noaa'
  character (len=100) :: pem_file              = 'hpke2.pem'
  character (len=100) :: izmem_file            = 'iz94.cofcnts'
  character (len=100) :: hepner_maynard_file   = 'hmr89.cofcnts'
  character (len=100) :: millstone_hill_i_file = 'mhi.cofcnts'
  character (len=100) :: millstone_hill_s_file = 'mhs.cofcnts'
  character (len=100) :: stat_amie_file        = 'amie.ascii'
  character (len=100) :: weimer96_file         = 'wei96.cofcnts'
  character (len=100) :: weimer01_file         = 'wei01.cofcnts'

  character (len=100) :: magnetometer_file
  character (len=100) :: output_file
  logical :: IsOutputBinary
  character (len=100) :: psi_file

  integer :: nefield_files = 0
  character (len=100) :: efield_dir
  character (len=100), dimension(MAX_EFIELD_FILES) :: efield_file
  character (len=1), dimension(MAX_EFIELD_FILES) :: efield_flag
  real, dimension(MAX_EFIELD_FILES,nWeightings) :: Efield_Weightings

  integer :: ncond_files = 0
  character (len=100) :: cond_dir
  character (len=100), dimension(MAX_COND_FILES) :: cond_file

  integer :: ncurrent_files = 0
  character (len=100) :: current_dir
  character (len=100), dimension(MAX_CURRENT_FILES) :: current_file
  character (len=2), dimension(MAX_CURRENT_FILES) :: current_flag
  real, dimension(MAX_CURRENT_FILES,nWeightings) :: Current_Weightings

  character (len=100) :: models_dir

  integer :: nMHDFiles = 0
  character (len=100) :: cMHDFile(10)
  character (len=100) :: cNGDCFile
  character (len=100) :: cOldFile
  character (len=100) :: cNOAAFile

  integer             :: lun_indices      = 55
  integer             :: LunMainOutput    = 60
  integer             :: lun_dataoutput   = 61
  integer             :: lun_conductivity = 70
  integer             :: lun_efield       = 75
  integer             :: lun_current      = 78
  integer             :: lun_magnetometer = 80
  integer             :: lun_apex         = 90
  integer             :: lun_qset         = 91


end Module ModFiles