FUNCTION define_L1TBG1,PARASOL=parasol

IF NOT KEYWORD_SET(parasol) THEN parasol=0
Ndir = 14
IF parasol EQ 1 THEN Ndir = 16
IF parasol EQ 2 THEN Ndir = 26

; D.AŽéfinition des parametres non directionnels
Nu_par = 3  ;  Nombre
U_par = replicate({parametre},Nu_par) ; Definition of Un directional products
U_par[0] = {parametre,'Altitude'   ,-2,10       ,'meters',1.  ,0.,  0,0,0}
U_par[1] = {parametre,'Solar Azim.', 1,14+2*Ndir,'deg.'  ,1.42,0.,  0,0,0}
U_par[2] = {parametre,'Numb Direc.', 1,15+2*Ndir,' -  '  ,1.  ,0.,  0,0,0}
;--------------------------------------------------------------------------------
; DŽéfinition des parametres directionnels
Nd_par = 0   ;  Number of directional products
D_par = replicate({parametre},100) ; Definition of directional products
D_par[Nd_par] = {parametre,'Ref_443'   ,-2,15,   '%',0.01,0.,  0,0,0} & Nd_par=Nd_par+1 & IF parasol NE 0 THEN D_par[Nd_par-1].name='Ref_490'
D_par[Nd_par] = {parametre,'Ref_565'   ,-2,19,   '%',0.01,0.,  0,0,0} & Nd_par=Nd_par+1
D_par[Nd_par] = {parametre,'Ref_670'   ,-2,21,   '%',0.01,0.,  0,0,0} & Nd_par=Nd_par+1
D_par[Nd_par] = {parametre,'Ref_865'   ,-2,27,   '%',0.01,0.,  0,0,0} & Nd_par=Nd_par+1
D_par[Nd_par] = {parametre,'RefPol_443',-2,31,   '%',0.01,0.,  0,0,0} & Nd_par=Nd_par+1 & IF parasol NE 0 THEN D_par[Nd_par-1].name='RefPol_490'
D_par[Nd_par] = {parametre,'RefPol_670',-2,33,   '%',0.01,0.,  0,0,0} & Nd_par=Nd_par+1
D_par[Nd_par] = {parametre,'RefPol_865',-2,35,   '%',0.01,0.,  0,0,0} & Nd_par=Nd_par+1
D_par[Nd_par] = {parametre,'DirPol_443',-2,31,'deg.',0.01,0.,  0,0,0} & Nd_par=Nd_par+1 & IF parasol NE 0 THEN D_par[Nd_par-1].name='DirPol_490'
D_par[Nd_par] = {parametre,'DirPol_670',-2,33,'deg.',0.01,0.,  0,0,0} & Nd_par=Nd_par+1
D_par[Nd_par] = {parametre,'DirPol_865',-2,35,'deg.',0.01,0.,  0,0,0} & Nd_par=Nd_par+1

D_par = D_par[0:Nd_par-1]
;--------------------------------------------------------------------------------
; DŽéfinition des combinaisons non-directionnels
Nc_par = 0    ;  Number of Multi-parameter non directional
C_par = replicate({combi},Nc_par>1)
;--------------------------------------------------------------------------------
; DŽéfinition des combinaisons "directionnel"
Ncd_par = 4    ;  Number of Multi-parameter non directional
Cd_par = replicate({combi},Ncd_par) ; Definition of directional products
Cd_par[0] = {combi,'CompColor VIS'  ,2,1,0}
Cd_par[1] = {combi,'CompColor 3CHAN',3,2,0}
Cd_par[2] = {combi,'CompColor Polar',Nd_par-4,Nd_par-5,Nd_par-6}
Cd_par[3] = {combi,'Comp DirPol'    ,Nd_par-1,Nd_par-2,Nd_par-3}

product={type:'L1TBG1',resol:18,Nbyte_tot:18+45*Ndir,Nbyte_nd:18+2*Ndir,Nbyte_d:43,Nu_par:Nu_par,U_par:U_par,$
         Nd_par:Nd_par,D_par:D_par,Nc_par:Nc_par,C_par:C_par,Ncd_par:Ncd_par,Cd_par:Cd_par}

RETURN,product
END