C+
C NAME:
C	b3d_param_3.h
C PURPOSE:
C	Parameters for processing magnetic source surface files
C MODIFICATION HISTORY:
C	JUN-2003, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	integer		 B3D__N			! # different magnetic data output
	integer		 B3D__NN		! # different magnetic data input
C	parameter	(B3D__N = 3)
	parameter	(B3D__N  = 4)
	parameter	(B3D__NN = 16)

	!-------
	! Strings used to identify magnetic data from command line arguments
	! (used in BField_Choose)

C	character	 B3D__STRCMD(B3D__N)*8	/'wso', 'wso_noaa','nso_noaa'/
	character	 B3D__STRCMD(B3D__NN)*8	/'wso_rr', 'wso_rc', 'wso_tc', 'wso_nc', 'nso_adrr' , 'nso_adrc' ,'nso_adtc',
     &	'nso_adnc' ,'nso_sorr', 'nso_sorc', 'nso_sotc', 'nso_sonc', 'nso_gorr', 'nso_gorc', 'nso_gotc', 'nso_gonc'/

	!-------
	! Strings used as prefix to output file names
	! (used in Write3D_bb)

C	character	 B3D__PREFIX(B3D__N)*4	/'wsoo', 'wson','nson'/
	character	 B3D__PREFIX(B3D__N)*4	/'wsoo', 'nsoa', 'nsos', 'nsog'/

	!-------
	! Numbers should run from 1 to B3D__NN
	! (used in BField_Get)

C	integer		 B3D__WSO
C	parameter	(B3D__WSO      = 1)

	integer		 B3D__WSO_RR
	parameter	(B3D__WSO_RR   = 1)	

	integer		 B3D__WSO_RC
	parameter	(B3D__WSO_RC   = 2)

	integer		 B3D__WSO_TC
	parameter	(B3D__WSO_TC   = 3)

	integer		 B3D__WSO_NC
	parameter	(B3D__WSO_NC   = 4)

C	integer		 B3D__WSO_NOAA
C	parameter	(B3D__WSO_NOAA = 2)

	integer		 B3D__NSO_ADRR
	parameter	(B3D__NSO_ADRR = 5)

	integer		 B3D__NSO_ADRC
	parameter	(B3D__NSO_ADRC = 6)

	integer		 B3D__NSO_ADTC
	parameter	(B3D__NSO_ADTC = 7)

	integer		 B3D__NSO_ADNC
	parameter	(B3D__NSO_ADNC = 8)

C	integer		 B3D__NSO_NOAA
C	parameter	(B3D__NSO_NOAA = 3)

	integer		 B3D__NSO_SORR
	parameter	(B3D__NSO_SORR = 9)

	integer		 B3D__NSO_SORC
	parameter	(B3D__NSO_SORC = 10)

	integer		 B3D__NSO_SOTC
	parameter	(B3D__NSO_SOTC = 11)

	integer		 B3D__NSO_SONC
	parameter	(B3D__NSO_SONC = 12)

	integer		 B3D__NSO_GORR
	parameter	(B3D__NSO_GORR = 13)

	integer		 B3D__NSO_GORC
	parameter	(B3D__NSO_GORC = 14)

	integer		 B3D__NSO_GOTC
	parameter	(B3D__NSO_GOTC = 15)

	integer		 B3D__NSO_GONC
	parameter	(B3D__NSO_GONC = 16)