%

clear;
close all;

fid=fopen('olrint.80.dat','r');
siz=25*17*10500;
v=fread(fid,siz,'float');
fclose(fid);
olr1=reshape(v,25,17,10500);
clear v;

% on selectionne les mois d ete (attention aux annees bixestiles!)
olr=zeros(25,17,92,28);
siz1=31+28+31+30+31+30+1;
siz1bis=31+28+31+30+31+30+92;
siz2=siz1+366; siz2bis=siz2+91; % 1980
siz3=siz2+365; siz3bis=siz3+91; % 1981
siz4=siz3+365; siz4bis=siz4+91; % 1982
siz5=siz4+365; siz5bis=siz5+91; % 1983
siz6=siz5+366; siz6bis=siz6+91; % 1984
siz7=siz6+365; siz7bis=siz7+91; % 1985
siz8=siz7+365; siz8bis=siz8+91; % 1986
siz9=siz8+365; siz9bis=siz9+91; % 1987
siz10=siz9+366; siz10bis=siz10+91; % 1988
siz11=siz10+365; siz11bis=siz11+91; % 1989
siz12=siz11+365; siz12bis=siz12+91; % 1990
siz13=siz12+365; siz13bis=siz13+91; % 1991
siz14=siz13+366; siz14bis=siz14+91; % 1992
siz15=siz14+365; siz15bis=siz15+91; % 1993
siz16=siz15+365; siz16bis=siz16+91; % 1994
siz17=siz16+365; siz17bis=siz17+91; % 1995
siz18=siz17+366; siz18bis=siz18+91; % 1996
siz19=siz18+365; siz19bis=siz19+91; % 1997
siz20=siz19+365; siz20bis=siz20+91; % 1998
siz21=siz20+365; siz21bis=siz21+91; % 1999
siz22=siz21+366; siz22bis=siz22+91; % 2000
siz23=siz22+365; siz23bis=siz23+91; % 2001
siz24=siz23+365; siz24bis=siz24+91; % 2002
siz25=siz24+365; siz25bis=siz25+91; % 2003
siz26=siz25+366; siz26bis=siz26+91; % 2004
siz27=siz26+365; siz27bis=siz27+91; % 2005
siz28=siz27+365; siz28bis=siz28+91; % 2006

olr(:,:,:,1)=olr1(:,:,siz1:siz1bis); % 1979
olr(:,:,:,2)=olr1(:,:,siz2:siz2bis); % 1980
olr(:,:,:,3)=olr1(:,:,siz3:siz3bis); % 1981
olr(:,:,:,4)=olr1(:,:,siz4:siz4bis); % 1982
olr(:,:,:,5)=olr1(:,:,siz5:siz5bis); % 1983
olr(:,:,:,6)=olr1(:,:,siz6:siz6bis); % 1984
olr(:,:,:,7)=olr1(:,:,siz7:siz7bis); % 1985
olr(:,:,:,8)=olr1(:,:,siz8:siz8bis); % 1986
olr(:,:,:,9)=olr1(:,:,siz9:siz9bis); % 1987
olr(:,:,:,10)=olr1(:,:,siz10:siz10bis); % 1988
olr(:,:,:,11)=olr1(:,:,siz11:siz11bis); % 1989
olr(:,:,:,12)=olr1(:,:,siz12:siz12bis); % 1990
olr(:,:,:,13)=olr1(:,:,siz13:siz13bis); % 1991
olr(:,:,:,14)=olr1(:,:,siz14:siz14bis); % 1992
olr(:,:,:,15)=olr1(:,:,siz15:siz15bis); % 1993
olr(:,:,:,16)=olr1(:,:,siz16:siz16bis); % 1994
olr(:,:,:,17)=olr1(:,:,siz17:siz17bis); % 1995
olr(:,:,:,18)=olr1(:,:,siz18:siz18bis); % 1996
olr(:,:,:,19)=olr1(:,:,siz19:siz19bis); % 1997
olr(:,:,:,20)=olr1(:,:,siz20:siz20bis); % 1998
olr(:,:,:,21)=olr1(:,:,siz21:siz21bis); % 1999
olr(:,:,:,22)=olr1(:,:,siz22:siz22bis); % 2000
olr(:,:,:,23)=olr1(:,:,siz23:siz23bis); % 2001
olr(:,:,:,24)=olr1(:,:,siz24:siz24bis); % 2002
olr(:,:,:,25)=olr1(:,:,siz25:siz25bis); % 2003
olr(:,:,:,26)=olr1(:,:,siz26:siz26bis); % 2004
olr(:,:,:,27)=olr1(:,:,siz27:siz27bis); % 2005
olr(:,:,:,28)=olr1(:,:,siz28:siz28bis); % 2006

clear siz1 siz1bis;
clear siz2 siz2bis;
clear siz3 siz3bis;
clear siz4 siz4bis;
clear siz5 siz5bis;
clear siz6 siz6bis;
clear siz7 siz7bis;
clear siz8 siz8bis;
clear siz9 siz9bis;
clear siz10 siz10bis;
clear siz11 siz11bis;
clear siz12 siz12bis;
clear siz13 siz13bis;
clear siz14 siz14bis;
clear siz15 siz15bis;
clear siz16 siz16bis;
clear siz17 siz17bis;
clear siz18 siz18bis;
clear siz19 siz19bis;
clear siz20 siz20bis;
clear siz21 siz21bis;
clear siz22 siz22bis;
clear siz23 siz23bis;
clear siz24 siz24bis;
clear siz25 siz25bis;
clear siz26 siz26bis;
clear siz27 siz27bis;
clear siz28 siz28bis;

clear olr1;

olr=reshape(olr,425,92,28);
olr1=permute(olr,[2 1 3]);
clear olr;
olr(:,:)=mean(olr1);
clear olr1;

% calcul de la matrice de covariance
vaudou=zeros(425,425);
for a=1:425;
    for b=1:425;
      clear e d covaria;
      e=olr(b,:);
      d=olr(a,:);
      covaria=cov(e,d);
      vaudou(a,b)=covaria(2,1);
    end;
end;

% on diagonalise la matrice de covariance
[C,L]=eig(vaudou);

delete('eof_olr_noaa_annuel_jas_1020.mat');
save('eof_olr_noaa_annuel_jas_1020.mat','C','L','olr')