FUNCTION define_L3TOGB
; DÚfinition des parametres non directionnels
Nu_par = 99  ;  Nombre En fait, le nombre est reduit apres avoir dÚfini la liste
U_par = replicate({parametre},Nu_par) ; Definition of Un directional products

; parametres les plus significatifs
N = 0
;U_par[ N] = {parametre,'D1 Ref 443 nm',2,17 ,'%'      ,2.E-2 ,-1.   ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D1 Ref 490 nm',2,19 ,'%'      ,2.E-2 ,-1.   ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D1 Ref 565 nm',2,21 ,'%'      ,2.E-2 ,-1.   ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D1 Ref 670 nm',2,23 ,'%'      ,2.E-2 ,-1.   ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D1 P-like C.' ,2,25 ,'mg.m-3' ,5.E-4 ,0.01  ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D1 S-like C.' ,2,27 ,'mg.m-3' ,5.E-4 ,0.01  ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D1 Opt. Thic.',1,29 ,'no unit',5.E-3 ,0.    ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D1 Ang. Coef.',1,30 ,'no unit',1.E-2 ,-0.5  ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D1 Aer. index',1,31 ,'no unit',1.E-2 ,-0.5  ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D1 S Scat Alb',1,32 ,'no unit',5.E-3 ,0.    ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D1 back.coef ',2,33 ,'no unit',2.E-5 ,-1.E-3,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D1 abs. 443  ',2,35 ,'no unit',2.E-4 ,-1.E-3,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D1 abs. 490  ',2,37 ,'no unit',2.E-4 ,-1.E-3,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D1 Numb. Obs.',1,39 ,'no unit',1.    ,0.    ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D1 N.Ob.Water',1,40 ,'no unit',1.    ,0.    ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D1 Conf. Ind.',1,41 ,'no unit',0.01  ,0.    ,  0,0,0} & N=N+1
;
;U_par[ N] = {parametre,'D2 Ref 443 nm',2,42 ,'%'      ,2.E-2 ,-1.   ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D2 Ref 490 nm',2,44 ,'%'      ,2.E-2 ,-1.   ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D2 Ref 565 nm',2,46 ,'%'      ,2.E-2 ,-1.   ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D2 Ref 670 nm',2,48 ,'%'      ,2.E-2 ,-1.   ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D2 P-like C.' ,2,50 ,'mg.m-3' ,5.E-4 ,0.01  ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D2 S-like C.'  ,2,52 ,'mg.m-3' ,5.E-4 ,0.01  ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D2 Opt. Thic.',1,54 ,'no unit',5.E-3 ,0.    ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D2 Ang. Coef.',1,55 ,'no unit',1.E-2 ,-0.5  ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D2 Aer. index',1,56 ,'no unit',1.E-2 ,-0.5  ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D2 S Scat Alb',1,57 ,'no unit',5.E-3 ,0.    ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D2 back.coef ',2,58 ,'no unit',2.E-5 ,-1.E-3,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D2 abs. 443  ',2,60 ,'no unit',2.E-4 ,-1.E-3,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D2 abs. 490  ',2,62 ,'no unit',2.E-4 ,-1.E-3,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D2 Numb. Obs.',1,64 ,'no unit',1.    ,0.    ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D2 N.Ob.Water',1,65 ,'no unit',1.    ,0.    ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D2 Conf. Ind.',1,66 ,'no unit',0.01  ,0.    ,  0,0,0} & N=N+1
;
;U_par[ N] = {parametre,'D3 Ref 443 nm',2,67 ,'%'      ,2.E-2 ,-1.   ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D3 Ref 490 nm',2,69 ,'%'      ,2.E-2 ,-1.   ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D3 Ref 565 nm',2,71 ,'%'      ,2.E-2 ,-1.   ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D3 Ref 670 nm',2,73 ,'%'      ,2.E-2 ,-1.   ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D3 P-like C.' ,2,75 ,'mg.m-3' ,5.E-4 ,0.01  ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D3 S-like C.' ,2,77 ,'mg.m-3' ,5.E-4 ,0.01  ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D3 Opt. Thic.',1,79 ,'no unit',5.E-3 ,0.    ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D3 Ang. Coef.',1,80 ,'no unit',1.E-2 ,-0.5  ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D3 Aer. index',1,81 ,'no unit',1.E-2 ,-0.5  ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D3 S Scat Alb',1,82 ,'no unit',5.E-3 ,0.    ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D3 back.coef ',2,83 ,'no unit',2.E-5 ,-1.E-3,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D3 abs. 443  ',2,85 ,'no unit',2.E-4 ,-1.E-3,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D3 abs. 490  ',2,87 ,'no unit',2.E-4 ,-1.E-3,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D3 Numb. Obs.',1,89 ,'no unit',1.    ,0.    ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D3 N.Ob.Water',1,90 ,'no unit',1.    ,0.    ,  0,0,0} & N=N+1
;U_par[ N] = {parametre,'D3 Conf. Ind.',1,91 ,'no unit',0.01  ,0.    ,  0,0,0} & N=N+1

U_par[ N] = {parametre,'MM Ref 443 nm',2,92 ,'%'      ,2.E-2 ,-1.   ,  0,0,0} & N=N+1 & N1=N-1
U_par[ N] = {parametre,'MM Ref 490 nm',2,94 ,'%'      ,2.E-2 ,-1.   ,  0,0,0} & N=N+1 & N2=N-1
U_par[ N] = {parametre,'MM Ref 565 nm',2,96 ,'%'      ,2.E-2 ,-1.   ,  0,0,0} & N=N+1 & N3=N-1
U_par[ N] = {parametre,'MM Ref 670 nm',2,98 ,'%'      ,2.E-2 ,-1.   ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Std Ref443',2,100,'%'      ,2.E-2 , 0.   ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Std Ref490',2,102,'%'      ,2.E-2 , 0.   ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Std Ref565',2,104,'%'      ,2.E-2 , 0.   ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Std Ref670',2,106,'%'      ,2.E-2 , 0.   ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM P-like C. ',2,108,'mg.m-3' ,5.E-4 ,0.01  ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM S-like C. ',2,110,'mg.m-3' ,5.E-4 ,0.01  ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM StD. P-L C',2,112,'mg.m-3' ,5.E-4 ,0.    ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM StD. S-L C',2,114,'mg.m-3' ,5.E-4 ,0.    ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Min P-L C'  ,2,116,'mg.m-3' ,5.E-4 ,0.01  ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Max P-L C'  ,2,118,'mg.m-3' ,5.E-4 ,0.01  ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Min S-L C',2,120,'mg.m-3' ,5.E-4 ,0.01  ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Max S-L C',2,122,'mg.m-3' ,5.E-4 ,0.01  ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Opt. Thic.',1,124,'no unit',5.E-3 ,0.    ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Std.Opt.Th',1,125,'no unit',5.E-3 ,0.    ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Min.Opt.Th',1,126,'no unit',5.E-3 ,0.    ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Max.Opt.Th',1,127,'no unit',5.E-3 ,0.    ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM ang.coef  ',1,128,'no unit',0.01  ,-0.5  ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Std.ang.cf',1,129,'no unit',0.01  ,0.    ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Aer. index',1,130,'no unit',0.01  ,-0.5  ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Std Aer In',1,131,'no unit',0.01  ,0.    ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM S Scat Alb',1,132,'no unit',0.005 ,0.    ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Std.albedo',1,133,'no unit',0.005 ,0.    ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM back.coef ',2,134,'no unit',2.E-5 ,-1.E-3,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM abs. 443  ',2,136,'no unit',2.E-4 ,-1.E-3,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM abs. 490  ',2,138,'no unit',2.E-4 ,-1.E-3,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Std.back. ',2,140,'no unit',2.E-5 ,0.    ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Std.ab.443',2,142,'no unit',2.E-4 ,0.    ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Std.ab.490',2,144,'no unit',2.E-4 ,0.    ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Numb. Obs.',1,146,'no unit',1.    ,0.    ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM N.Ob.Water',1,147,'no unit',1.    ,0.    ,  0,0,0} & N=N+1
U_par[ N] = {parametre,'MM Conf. Ind.',1,148,'no unit',0.01  ,0.    ,  0,0,0} & N=N+1

; Ci dessous, on rÚduit le nombre de param¶tre en fonction de ce qui a ÚtÚ gardÚ
U_par = U_par[0:N-1] & Nu_par=N
;--------------------------------------------------------------------------------
; DÚfinition des parametres directionnels
Nd_par = 0   ;  Number of directional products
D_par = {parametre}
;--------------------------------------------------------------------------------
; DÚfinition des combinaisons non-directionnels
Nc_par = 1    ;  Number of Multi-parameter non directional
C_par = replicate({combi},Nc_par) ; Definition of Un directional products
C_par[0] = {combi,'CompColor VIS'  ,N3,N2,N1}
;--------------------------------------------------------------------------------
; DÚfinition des combinaisons "directionnel"
Ncd_par = 0    ;  Number of Multi-parameter non directional
Cd_par = {combi}
;
product={type:'L3TOGB',resol:18,Nbyte_tot:149,Nbyte_nd:149,Nbyte_d:0,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