% Lecture d'un fichier NetCDF
% Emmanuelle Thivolle-Cazat (8/06/01)

clear all;
nc=netcdf('ck_etat009.nc','nowrite');  % Open NetCDF file

title=nc.title (:)           % Global attribute
author=nc.author (:)
date=nc.date (:)

variables = var(nc);   % Get variable data
for i=1:length(variables)
    disp([name(variables{i}) ' =']),disp(' ');
    disp((variables{i}(:)));
    pause;
end

Z1=variables{5}(:); %vitesse radiale couche 1 et 2
Z2=variables{6}(:); %vitesse azimuthale couche 1 et 2

Z1bis(1:100,1:100)=Z1(1,:,:); %vitesse radiale couche 1




nc = close(nc);    % Close the file

contourf(Z1bis);  %representation vitesse radiale couche 1
