lon=ncread('/Users/yangyang/Aerosol_Variaiton/IRUN/UWND/dat/uwnd.mon.mean.nc','lon');
lat=ncread('/Users/yangyang/Aerosol_Variaiton/IRUN/UWND/dat/uwnd.mon.mean.nc','lat');
year=1:14;
month=1:168;

u_temp=ncread('/Users/yangyang/Extreme_Aerosol/Met_NCEP/WIND850/dat/uwnd.mon.mean.nc','uwnd');

UWND_temp=zeros(144,73,12,length(year));

for yearID=(1+2001-1948):(length(year)+2001-1948)
    UWND_temp(:,:,:,yearID-(2001-1948))=u_temp(:,:,3,(yearID-1)*12+1:(yearID-1)*12+12);
end


UWND_MONTH=zeros(144,73,length(month));


% Deseasonal
for i=1:144
    for j=1:73
        for monthID=1:12
            temp=mean(UWND_temp(i,j,monthID,:),4);
            for yearID=1:length(year)
                UWND_temp(i,j,monthID,yearID)=UWND_temp(i,j,monthID,yearID)-temp;
            end
        end
    end
end

% Change size
for i=1:144
    for j=1:73
        n=0;
        for yearID=1:length(year)
            for monthID=1:12
                n=n+1;
                UWND_MONTH(i,j,n)=UWND_temp(i,j,monthID,yearID);
            end
        end
    end
end



save('UWND_NCEP_monthly.mat','UWND_MONTH')

nccreate('UWND_NCEP_monthly.nc','Month','Dimensions',{'time',Inf},'Format','classic')
ncwrite('UWND_NCEP_monthly.nc','Month', month)
ncwriteatt('UWND_NCEP_monthly.nc','Month','long_name','Month')
nccreate('UWND_NCEP_monthly.nc','lat','Dimensions',{'lat',73},'Format','classic')
ncwrite('UWND_NCEP_monthly.nc','lat', lat)
ncwriteatt('UWND_NCEP_monthly.nc','lat','units','degrees_north')
ncwriteatt('UWND_NCEP_monthly.nc','lat','long_name','Latitude')
nccreate('UWND_NCEP_monthly.nc','lon','Dimensions',{'lon',144},'Format','classic')
ncwrite('UWND_NCEP_monthly.nc','lon', lon)
ncwriteatt('UWND_NCEP_monthly.nc','lon','units','degrees_east')
ncwriteatt('UWND_NCEP_monthly.nc','lon','long_name','Longitude')
nccreate('UWND_NCEP_monthly.nc','UWND_MONTH','Dimensions',{'lon',144,'lat',73,'month',length(month)},'Format','classic')
ncwrite('UWND_NCEP_monthly.nc','UWND_MONTH', UWND_MONTH)
ncdisp('UWND_NCEP_monthly.nc')