FUNCTION define_L2TOGB
; Definition of Un directional products
Nu_par = 99  ;  Nombre
N = 0
U_par = replicate({parametre},Nu_par) 

;U_par[N] = {parametre,'DQX1-1           ',11,13,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX1-2           ',12,13,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX1-3           ',13,13,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX1-4           ',14,13,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX1-5           ',15,13,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX1-6           ',16,13,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX1-7           ',17,13,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX1-8           ',18,13,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;
;U_par[N] = {parametre,'DQX2-1           ',11,14,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX2-2           ',12,14,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX2-3           ',13,14,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX2-4           ',14,14,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX2-5           ',15,14,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX2-6           ',16,14,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX2-7           ',17,14,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX2-8           ',18,14,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;
;U_par[N] = {parametre,'DQX3-1           ',11,15,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX3-2           ',12,15,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX3-3           ',13,15,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX3-4           ',14,15,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX3-5           ',15,15,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX3-6           ',16,15,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX3-7           ',17,15,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX3-8           ',18,15,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;
;U_par[N] = {parametre,'DQX4-1           ',11,16,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX4-2           ',12,16,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX4-3           ',13,16,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX4-4           ',14,16,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX4-5           ',15,16,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX4-6           ',16,16,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX4-7           ',17,16,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1
;U_par[N] = {parametre,'DQX4-8           ',18,16,'no unit ', 1.0 ,  0.  ,  0,0,0} & N=N+1

U_par[N] = {parametre,'Solar Zenith'  , 2,17,'deg.'   ,0.1  ,  0.  ,  0,0,0} & N=N+1
U_par[N] = {parametre,'Solar Azim'    , 1,19,'deg.'   ,1.42 ,  0.  ,  0,0,0} & N=N+1
U_par[N] = {parametre,'Aerosol mod. #', 2,20,'no unit',0.05 ,  1.  ,  0,0,0} & N=N+1
U_par[N] = {parametre,'Angstrom coef.', 1,22,'no unit',0.01 ,-0.5  ,  0,0,0} & N=N+1
U_par[N] = {parametre,'Aer. Opt. Thi.', 1,23,'no unit',0.005,  0.  ,  0,0,0} & N=N+1
U_par[N] = {parametre,'Single Scat. A', 1,24,'no unit',0.005,  0.  ,  0,0,0} & N=N+1
U_par[N] = {parametre,'Foam Reflec.'  , 1,25,'%'      ,0.1  ,-.1   ,  0,0,0} & N=N+1
U_par[N] = {parametre,'Aer. Conf. Ind', 1,26,'no unit',1.   ,  0.  ,  0,0,0} & N=N+1
U_par[N] = {parametre,'Water Ref. 443', 2,27,'%'      ,2.E-2,-1.   ,  0,0,0} & N=N+1 & N1=N-1
U_par[N] = {parametre,'Water Ref. 490', 2,29,'%'      ,2.E-2,-1.   ,  0,0,0} & N=N+1 & N2=N-1
U_par[N] = {parametre,'Water Ref. 565', 2,31,'%'      ,2.E-2,-1.   ,  0,0,0} & N=N+1 & N3=N-1
U_par[N] = {parametre,'Water Ref. 670', 2,33,'%'      ,2.E-2,-1.   ,  0,0,0} & N=N+1
U_par[N] = {parametre,'P-like concen.', 2,35,'mg.m-3' ,5.E-4,0.01  ,  0,0,0} & N=N+1
U_par[n] = {parametre,'S-like concen.', 2,37,'mg.m-3' ,5.E-4,0.01  ,  0,0,0} & N=N+1
U_par[N] = {parametre,'Water Type'    , 1,39,'no unit',1.   ,  0.  ,  0,0,0} & N=N+1
U_par[N] = {parametre,'Conc Qual Ind.', 1,40,'no unit',1.   ,  0.  ,  0,0,0} & N=N+1
U_par[N] = {parametre,'Back Diffusion', 2,41,'no unit',2.E-5,-1.E-3,  0,0,0} & N=N+1
U_par[N] = {parametre,'Absorpt. 443nm', 2,43,'no unit',2.E-4,-1.E-3,  0,0,0} & N=N+1
U_par[N] = {parametre,'Absorpt. 490nm', 2,45,'no unit',2.E-4,-1.E-3,  0,0,0} & N=N+1
U_par[N] = {parametre,'Surf Wind Spd' , 1,47,'m.s-1'  ,0.1  ,  0.  ,  0,0,0} & N=N+1
Nu_par = N  
U_par = U_par[0:N-1]
;--------------------------------------------------------------------------------
; 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) 
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:'L2TOGB',resol:18,Nbyte_tot:48,Nbyte_nd:48,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