| 1 | % |
|---|
| 2 | |
|---|
| 3 | % initialisation |
|---|
| 4 | clear; |
|---|
| 5 | close all; |
|---|
| 6 | |
|---|
| 7 | fid=fopen('olrint.80.dat','r'); |
|---|
| 8 | siz=25*17*10500; |
|---|
| 9 | v=fread(fid,siz,'float'); |
|---|
| 10 | fclose(fid); |
|---|
| 11 | olr1=reshape(v,25,17,10500); |
|---|
| 12 | clear v; |
|---|
| 13 | |
|---|
| 14 | % on selectionne les mois d ete (attention aux annees bixestiles!) |
|---|
| 15 | olr=zeros(25,17,92,28); |
|---|
| 16 | siz1=31+28+31+30+31+30+1; |
|---|
| 17 | siz1bis=31+28+31+30+31+30+92; |
|---|
| 18 | siz2=siz1+366; siz2bis=siz2+91; % 1980 |
|---|
| 19 | siz3=siz2+365; siz3bis=siz3+91; % 1981 |
|---|
| 20 | siz4=siz3+365; siz4bis=siz4+91; % 1982 |
|---|
| 21 | siz5=siz4+365; siz5bis=siz5+91; % 1983 |
|---|
| 22 | siz6=siz5+366; siz6bis=siz6+91; % 1984 |
|---|
| 23 | siz7=siz6+365; siz7bis=siz7+91; % 1985 |
|---|
| 24 | siz8=siz7+365; siz8bis=siz8+91; % 1986 |
|---|
| 25 | siz9=siz8+365; siz9bis=siz9+91; % 1987 |
|---|
| 26 | siz10=siz9+366; siz10bis=siz10+91; % 1988 |
|---|
| 27 | siz11=siz10+365; siz11bis=siz11+91; % 1989 |
|---|
| 28 | siz12=siz11+365; siz12bis=siz12+91; % 1990 |
|---|
| 29 | siz13=siz12+365; siz13bis=siz13+91; % 1991 |
|---|
| 30 | siz14=siz13+366; siz14bis=siz14+91; % 1992 |
|---|
| 31 | siz15=siz14+365; siz15bis=siz15+91; % 1993 |
|---|
| 32 | siz16=siz15+365; siz16bis=siz16+91; % 1994 |
|---|
| 33 | siz17=siz16+365; siz17bis=siz17+91; % 1995 |
|---|
| 34 | siz18=siz17+366; siz18bis=siz18+91; % 1996 |
|---|
| 35 | siz19=siz18+365; siz19bis=siz19+91; % 1997 |
|---|
| 36 | siz20=siz19+365; siz20bis=siz20+91; % 1998 |
|---|
| 37 | siz21=siz20+365; siz21bis=siz21+91; % 1999 |
|---|
| 38 | siz22=siz21+366; siz22bis=siz22+91; % 2000 |
|---|
| 39 | siz23=siz22+365; siz23bis=siz23+91; % 2001 |
|---|
| 40 | siz24=siz23+365; siz24bis=siz24+91; % 2002 |
|---|
| 41 | siz25=siz24+365; siz25bis=siz25+91; % 2003 |
|---|
| 42 | siz26=siz25+366; siz26bis=siz26+91; % 2004 |
|---|
| 43 | siz27=siz26+365; siz27bis=siz27+91; % 2005 |
|---|
| 44 | siz28=siz27+365; siz28bis=siz28+91; % 2006 |
|---|
| 45 | |
|---|
| 46 | olr(:,:,:,1)=olr1(:,:,siz1:siz1bis); % 1979 |
|---|
| 47 | olr(:,:,:,2)=olr1(:,:,siz2:siz2bis); % 1980 |
|---|
| 48 | olr(:,:,:,3)=olr1(:,:,siz3:siz3bis); % 1981 |
|---|
| 49 | olr(:,:,:,4)=olr1(:,:,siz4:siz4bis); % 1982 |
|---|
| 50 | olr(:,:,:,5)=olr1(:,:,siz5:siz5bis); % 1983 |
|---|
| 51 | olr(:,:,:,6)=olr1(:,:,siz6:siz6bis); % 1984 |
|---|
| 52 | olr(:,:,:,7)=olr1(:,:,siz7:siz7bis); % 1985 |
|---|
| 53 | olr(:,:,:,8)=olr1(:,:,siz8:siz8bis); % 1986 |
|---|
| 54 | olr(:,:,:,9)=olr1(:,:,siz9:siz9bis); % 1987 |
|---|
| 55 | olr(:,:,:,10)=olr1(:,:,siz10:siz10bis); % 1988 |
|---|
| 56 | olr(:,:,:,11)=olr1(:,:,siz11:siz11bis); % 1989 |
|---|
| 57 | olr(:,:,:,12)=olr1(:,:,siz12:siz12bis); % 1990 |
|---|
| 58 | olr(:,:,:,13)=olr1(:,:,siz13:siz13bis); % 1991 |
|---|
| 59 | olr(:,:,:,14)=olr1(:,:,siz14:siz14bis); % 1992 |
|---|
| 60 | olr(:,:,:,15)=olr1(:,:,siz15:siz15bis); % 1993 |
|---|
| 61 | olr(:,:,:,16)=olr1(:,:,siz16:siz16bis); % 1994 |
|---|
| 62 | olr(:,:,:,17)=olr1(:,:,siz17:siz17bis); % 1995 |
|---|
| 63 | olr(:,:,:,18)=olr1(:,:,siz18:siz18bis); % 1996 |
|---|
| 64 | olr(:,:,:,19)=olr1(:,:,siz19:siz19bis); % 1997 |
|---|
| 65 | olr(:,:,:,20)=olr1(:,:,siz20:siz20bis); % 1998 |
|---|
| 66 | olr(:,:,:,21)=olr1(:,:,siz21:siz21bis); % 1999 |
|---|
| 67 | olr(:,:,:,22)=olr1(:,:,siz22:siz22bis); % 2000 |
|---|
| 68 | olr(:,:,:,23)=olr1(:,:,siz23:siz23bis); % 2001 |
|---|
| 69 | olr(:,:,:,24)=olr1(:,:,siz24:siz24bis); % 2002 |
|---|
| 70 | olr(:,:,:,25)=olr1(:,:,siz25:siz25bis); % 2003 |
|---|
| 71 | olr(:,:,:,26)=olr1(:,:,siz26:siz26bis); % 2004 |
|---|
| 72 | olr(:,:,:,27)=olr1(:,:,siz27:siz27bis); % 2005 |
|---|
| 73 | olr(:,:,:,28)=olr1(:,:,siz28:siz28bis); % 2006 |
|---|
| 74 | |
|---|
| 75 | clear siz1 siz1bis; |
|---|
| 76 | clear siz2 siz2bis; |
|---|
| 77 | clear siz3 siz3bis; |
|---|
| 78 | clear siz4 siz4bis; |
|---|
| 79 | clear siz5 siz5bis; |
|---|
| 80 | clear siz6 siz6bis; |
|---|
| 81 | clear siz7 siz7bis; |
|---|
| 82 | clear siz8 siz8bis; |
|---|
| 83 | clear siz9 siz9bis; |
|---|
| 84 | clear siz10 siz10bis; |
|---|
| 85 | clear siz11 siz11bis; |
|---|
| 86 | clear siz12 siz12bis; |
|---|
| 87 | clear siz13 siz13bis; |
|---|
| 88 | clear siz14 siz14bis; |
|---|
| 89 | clear siz15 siz15bis; |
|---|
| 90 | clear siz16 siz16bis; |
|---|
| 91 | clear siz17 siz17bis; |
|---|
| 92 | clear siz18 siz18bis; |
|---|
| 93 | clear siz19 siz19bis; |
|---|
| 94 | clear siz20 siz20bis; |
|---|
| 95 | clear siz21 siz21bis; |
|---|
| 96 | clear siz22 siz22bis; |
|---|
| 97 | clear siz23 siz23bis; |
|---|
| 98 | clear siz24 siz24bis; |
|---|
| 99 | clear siz25 siz25bis; |
|---|
| 100 | clear siz26 siz26bis; |
|---|
| 101 | clear siz27 siz27bis; |
|---|
| 102 | clear siz28 siz28bis; |
|---|
| 103 | |
|---|
| 104 | clear olr1; |
|---|
| 105 | |
|---|
| 106 | olr=reshape(olr,425,92,28); |
|---|
| 107 | olr1=permute(olr,[2 1 3]); |
|---|
| 108 | clear olr; |
|---|
| 109 | olr(:,:)=mean(olr1); |
|---|
| 110 | clear olr1; |
|---|
| 111 | %olr=reshape(olr,25,17,28); |
|---|
| 112 | % size olr : 425 28 |
|---|
| 113 | fid=fopen('olr_noaa_annuel.dat','w'); |
|---|
| 114 | fwrite(fid,olr,'float'); |
|---|
| 115 | fclose(fid); |
|---|
