Module ModParameters integer, parameter :: MAX_NTIMES = 2880 integer, parameter :: MAX_EFIELD_FILES = 10 integer, parameter :: MAX_COND_FILES = 5 integer, parameter :: MAX_CURRENT_FILES = 2 integer, parameter :: MAX_MAGNETOMETERS = 250 integer, parameter :: MAX_DATA = 10000 !\ ! This simply means that we want to store latitude and mlt !/ integer, parameter :: mag_lat_ = 1 integer, parameter :: mlt_ = 2 integer, parameter :: NLocations = 2 !\ ! Parameters for conductance related variables !/ integer, parameter :: pedersen_ = 1 integer, parameter :: hall_ = 2 integer, parameter :: avee_ = 3 integer, parameter :: eflux_ = 4 integer, parameter :: nConductanceSolutions = 4 !\ ! Parameters for current related variables !/ integer, parameter :: ddby_ = 1 integer, parameter :: ddbz_ = 2 integer, parameter :: dby_ = 3 integer, parameter :: dbz_ = 4 integer, parameter :: nCurrentFields = 4 !\ ! Parameters for input weighting variables !/ integer, parameter :: htwindow_ = 1 !half-time window of input data integer, parameter :: timeerror1_ = 2 !error over the half-time window integer, parameter :: timeerror2_ = 3 !error over the half-time window integer, parameter :: errorper1_ = 4 !addtional percent error integer, parameter :: errorper2_ = 5 !addtional percent error integer, parameter :: valueper1_ = 6 !addtional error of percent value integer, parameter :: valueper2_ = 7 !addtional error of percent value integer, parameter :: minerror1_ = 8 !minimum error integer, parameter :: minerror2_ = 9 !minimum error integer, parameter :: xwt1_ = 10 !overall weighting factor integer, parameter :: xwt2_ = 11 !overall weighting factor integer, parameter :: nWeightings = 11 !\ ! These horribly named variables are for the conductance background ! models. !/ integer, parameter :: lonmdx = 30 integer, parameter :: latmdx = 40 integer, parameter :: mndx = 10 !\ ! This defines how large the apex work array is: !/ integer, parameter :: apex_parameter = 91*151*6*20 !\ ! These help define the coordinate system of the data !/ integer, parameter :: GSM = 1 integer, parameter :: GSE = 2 integer, parameter :: GEO = 3 end Module ModParameters