C+
C NAME:
C	t3d_array
C PURPOSE:
C	Defines paramater constants for entries in header for tomography output files
C CALLING SEQUENCE:
C	include 't3d_array.h'
C PROCEDURE:
C MODIFICATION HISTORY:
C	???-????, Paul Hick (UCSD/CASS)
C	OCT-2002, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C		Added T3D_MARKER
C-
	!-------
	! Element T3D__MODE is used to store bitwise switches (on/off)
	! The meaning of individual bits is at the end of this include file.

	integer		 T3D__MODE
	parameter	(T3D__MODE	=  1)	! Dummy variable (not used yet)


	integer		 T3D__NLNG
	parameter	(T3D__NLNG	=  2)	! # longitudes

	integer		 T3D__NLAT
	parameter	(T3D__NLAT	=  3)	! # latitudes

	integer		 T3D__NRAD
	parameter	(T3D__NRAD	=  4)	! # radial distances

	integer		 T3D__NTIM
	parameter	(T3D__NTIM	=  5)	! # times 

	integer		 T3D__NCOFF
	parameter	(T3D__NCOFF	=  6)	! Carrington offset to be added to Time, XCrange and XCroi

	integer		 T3D__ITERATION
	parameter	(T3D__ITERATION	=  7)	! Iteration (0 or t3d(T3D__ITERATIONS)+1 for final result)

	integer		 T3D__ITERATIONS
	parameter	(T3D__ITERATIONS=  8)	! Total # iterations

	integer		 T3D__ITIME
	parameter	(T3D__ITIME	=  9)	! Time index

	! t3d(T3D__TIME): Carrington time assigned to current time index in time-dependent
	! tomography. For co-rotating tomogrophy this is set to the Carrington variable
	! at the center of the array

	integer		 T3D__TIME
	parameter	(T3D__TIME	= 10)	! Carrington time assigned to current time index

	! t3d(T3D__NOW): The forecast Carrington time. When the tomography is run in
	! forecast mode this specifies the 'forecast time' (usually the system time
	! when the program is started).

	integer		 T3D__TNOW
	parameter	(T3D__TNOW	= 11)	! Forecast time (Carrington time)

	integer		 T3D__XCMAT
	parameter	(T3D__XCMAT	= 12)	! Start and end Carrington variable of array

	integer		 T3D__XCROI		! Start and end Carrington variable for 'region of interest'
	parameter	(T3D__XCROI	= 14)	! Subrange of XCMAT; should should cover exactly 1 rotation

	integer		 T3D__LAT		! Range of latitudes covered (degrees)
	parameter	(T3D__LAT	= 16)	! (usually -90 to +90 degrees)

	integer		 T3D__RR
	parameter	(T3D__RR	= 18)	! Source surface distance (AU)

	integer		 T3D__DRR
	parameter	(T3D__DRR	= 19)	! Resolution in radial dist (AU)

	integer		 T3D__TT
	parameter	(T3D__TT	= 20)	! Start time (Carrington time)

	integer		 T3D__DTT
	parameter	(T3D__DTT	= 21)	! Time resolution (Carrington time)

	integer		 T3D__PWN_V
	parameter	(T3D__PWN_V	= 22)	! power used to convert g-level to normalized density

	integer		 T3D__PWN_G
	parameter	(T3D__PWN_G	= 23)	! power used to convert g-level to normalized density

	integer		 T3D__PWR_V
	parameter	(T3D__PWR_V	= 24)	! power used to set dependence of g-level on heliocentric distance

	integer		 T3D__PWR_G
	parameter	(T3D__PWR_G	= 25)	! power used to set dependence of g-level on heliocentric distance

	integer		 T3D__D1AU
	parameter	(T3D__D1AU	= 26)	! Density at 1 AU

	integer		 T3D__SMOOTH_V
	parameter	(T3D__SMOOTH_V	= 27)	! Spatial filter for velocities (used by GridSphere)

	integer		 T3D__SMOOTH_D
	parameter	(T3D__SMOOTH_D	= 28)	! Spatial filter for densities (used by GridSphere)

	integer		 T3D__FILL_V
	parameter	(T3D__FILL_V	= 29)	! Spatial filter for filling holes in velocity map

	integer		 T3D__FILL_D
	parameter	(T3D__FILL_D	= 30)	! Spatial filter for filling holes in density map

	integer		 T3D__SMOOTH_TIME_V
	parameter	(T3D__SMOOTH_TIME_V = 31)! Time filter ???? (ignored for co-rotating tomography)

	integer		 T3D__SMOOTH_TIME_D
	parameter	(T3D__SMOOTH_TIME_D = 32)! Time filter ???? (ignored for co-rotating tomography)

	integer		 T3D__CLIPLNG
	parameter	(T3D__CLIPLNG	= 33)	! 'clip longitude' (used by GridSphere)

	integer		 T3D__SCALE		! Scaling factors: y-intercept and slope
	parameter	(T3D__SCALE	= 34)	! Also uses T3D__SCALE+1, +2 and +3

	integer		 T3D__R_PWR		! Power of r used in normalization
	parameter	(T3D__R_PWR	= 38)	! Also uses T3D__R_PWR+1

	integer		 T3D__NL_V
	parameter	(T3D__NL_V	= 40)	! # lines of sight

	integer		 T3D__NL_G
	parameter	(T3D__NL_G	= 41)	! # lines of sight

	integer		 T3D__DLOS_V
	parameter	(T3D__DLOS_V	= 42)	! Step size along line of sight

	integer		 T3D__DLOS_G
	parameter	(T3D__DLOS_G	= 43)	! Step size along line of sight

	integer		 T3D__NLOS_V		! # steps along lines of sight
	parameter	(T3D__NLOS_V	= 44)

	integer		 T3D__NLOS_G		! # steps along lines of sight
	parameter	(T3D__NLOS_G	= 45)

	integer		 T3D__BINX_V
	parameter	(T3D__BINX_V	= 46)

	integer		 T3D__BINX_D
	parameter	(T3D__BINX_D	= 47)

	integer		 T3D__MARKER
	parameter	(T3D__MARKER	= 48)

	integer		 T3D__NELEMENTS
	parameter	(T3D__NELEMENTS	= 48)


	!-------
	! Definitions of bit settings in element T3D__MODE
	! DON'T USE THE SIGN BIT 31 

	integer		 T3D__MODE_TIME			! Bit 30: 0 for corotating tomography
	parameter	(T3D__MODE_TIME	= 30)		!	: 1 for time-dependent tomography

	integer		 T3D__MODE_MOD360
	parameter	(T3D__MODE_MOD360= 29)		! Bit 29: 0 for no mod360 on line-of-sight projection
							!	: 1 for mod360 on line-of-sight projection

	integer		 T3D__MODE_WSO
	parameter	(T3D__MODE_WSO	= 28)		! Bit 28: bit for WSO source surface files

	integer		 T3D__MODE_WSO_NOAA
	parameter	(T3D__MODE_WSO_NOAA= 27)	! Bit 27: bit for Nicks WSO source surface files

	integer		 T3D__MODE_NSO_NOAA
	parameter	(T3D__MODE_NSO_NOAA= 26)	! Bit 26: bit for Nicks NSO source surface files