Ignore:
Timestamp:
01/06/09 10:53:18 (15 years ago)
Author:
pinsard
Message:

remove trailing blanks, split lines with multiple statements

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/SIMULS_IRCAAM/prepare_olr_filtre.m

    r10 r16  
     1% 
    12 
    23% initialisation 
    3 clear; close all; 
     4clear; 
     5close all; 
    46 
    57fid=fopen('olrint.80.dat','r'); 
     
    79v=fread(fid,siz,'float'); 
    810fclose(fid); 
    9 olr1=reshape(v,25,17,10500); clear v; 
    10  
     11olr1=reshape(v,25,17,10500); 
     12clear v; 
    1113 
    1214% on selectionne les mois d ete (attention aux annees bixestiles!) 
     
    100102clear siz28 siz28bis; 
    101103 
    102  
    103  
    104104clear olr1; 
    105105 
    106106olr=reshape(olr,425,92,28); 
    107 olr1=permute(olr,[2 1 3]); clear olr 
    108 olr(:,:)=mean(olr1); clear olr1; 
     107olr1=permute(olr,[2 1 3]); 
     108clear olr; 
     109olr(:,:)=mean(olr1); 
     110clear olr1; 
    109111%olr=reshape(olr,25,17,28); 
    110112% size olr : 425 28 
Note: See TracChangeset for help on using the changeset viewer.