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