function [] = Contour_Mod_Dir ( Module, Direction , Profondeur , prof_min, prof_max , pas ,borne_min,borne_max, val )
%UNTITLED Summary of this function goes here
%   Detailed explanation goes here

 colormap(jet);
 val = [val;val(end)];
 type_trace = 1;
 
 
 zz = abs(Profondeur); % recherche des profondeurs
 ind_res = find(zz >= prof_min & zz <= prof_max);

 zz_res=[zz;zz(end)];
 zz_res1 = zz_res(ind_res);
 
 U_abs= Module;
 V_abs= Direction;
 %% V_abs = V_abs*100;

 hh1 = figure('NumberTitle','off','Name','Contourage section module direction');
 set(hh1,'PaperType','A4','PaperOrientation','portrait',...
        'PaperUnits','centimeters','PaperPosition',[1,1,19,27.7]);
 set(hh1,'Units','normalized');
 set(hh1,'position',[0.0539    0.1455    0.4375    0.4102]);
 ax(1) = subplot(2,1,1);
 tab_pltU =[ [U_abs U_abs(:,end)];[U_abs(end,:) U_abs(end,end)]];
 [~,b]=size(tab_pltU);
 if b~=2 
   tab_pltU1 = tab_pltU(ind_res,:);
   if (type_trace==1)
	[cs, h]=contourf(val,zz_res1,tab_pltU1,[borne_min:pas:borne_max]);
      shading flat;
      set(h,'EdgeColor','none');
   else
      pcolor(val,zz_res1,double(tab_pltU1));
      shading flat;
   end
   hold on;

   caxis([borne_min borne_max]);
 %  set(gca,'YLim',[zz_res1(1) prof_max],'Ydir','reverse');
   colorbar;
 %  chaine_sec = sprintf('%s%i\n%s%s','Section : ',section_choisie,eval(['ce_txt_U_abs_' g_txt_lang]),' (cm/s)');
 %  title(chaine_sec)
   ylabel(eval(['ce_txt_profondeur_' g_txt_lang]));
   xlabel(chaine)


end

