year=2001:2014;
lat=-89.5:1:89.5;
lon=-179.5:1:179.5;
month=1:168;
load ~/Aerosol_Variaiton/IRUN/SST/ncfile/ENSO_Month_NCEP.mat
load ~/Aerosol_Variaiton/IRUN/AOD/ncfile/AOD_MODIS_monthly.mat

a=sum(EN_Month);
b=sum(LL_Month);

AOD_EN_month=zeros(length(lon),length(lat),a);
AOD_LL_month=zeros(length(lon),length(lat),b);

n=0;
m=0;
for monthID=1:length(month)
    if EN_Month(monthID)==1
        n=n+1;
        AOD_EN_month(:,:,n)=AOD_MONTH(:,:,monthID);
    end
    if LL_Month(monthID)==1
        m=m+1;
        AOD_LL_month(:,:,m)=AOD_MONTH(:,:,monthID);
    end
end

AOD_EN=mean(AOD_EN_month,3);
AOD_LL=mean(AOD_LL_month,3);

AOD_ENSO=AOD_EN-AOD_LL;

%for i=1:360
%    for j=1:180
%        if AOD_MONTH(i,j,1)<0
%            AOD_EN(i,j)=-999;
%            AOD_LL(i,j)=-999;
%            AOD_ENSO(i,j)=-999;
%        end
%    end
%end

AOD_EN(isnan(AOD_EN))=-999;
AOD_LL(isnan(AOD_LL))=-999;
AOD_ENSO(isnan(AOD_ENSO))=-999;

save('AOD_MODIS_ENSO_composite_monthly.mat','AOD_EN','AOD_LL','AOD_ENSO')

nccreate('AOD_MODIS_ENSO_composite_monthly.nc','lat','Dimensions',{'lat',length(lat)},'Format','classic')
ncwrite('AOD_MODIS_ENSO_composite_monthly.nc','lat', lat)
ncwriteatt('AOD_MODIS_ENSO_composite_monthly.nc','lat','units','degrees_north')
ncwriteatt('AOD_MODIS_ENSO_composite_monthly.nc','lat','long_name','Latitude')
nccreate('AOD_MODIS_ENSO_composite_monthly.nc','lon','Dimensions',{'lon',length(lon)},'Format','classic')
ncwrite('AOD_MODIS_ENSO_composite_monthly.nc','lon', lon)
ncwriteatt('AOD_MODIS_ENSO_composite_monthly.nc','lon','units','degrees_east')
ncwriteatt('AOD_MODIS_ENSO_composite_monthly.nc','lon','long_name','Longitude')
nccreate('AOD_MODIS_ENSO_composite_monthly.nc','AOD_EN','Dimensions',{'lon',length(lon),'lat',length(lat)},'Format','classic')
ncwrite('AOD_MODIS_ENSO_composite_monthly.nc','AOD_EN', AOD_EN)
nccreate('AOD_MODIS_ENSO_composite_monthly.nc','AOD_LL','Dimensions',{'lon',length(lon),'lat',length(lat)},'Format','classic')
ncwrite('AOD_MODIS_ENSO_composite_monthly.nc','AOD_LL', AOD_LL)
nccreate('AOD_MODIS_ENSO_composite_monthly.nc','AOD_ENSO','Dimensions',{'lon',length(lon),'lat',length(lat)},'Format','classic')
ncwrite('AOD_MODIS_ENSO_composite_monthly.nc','AOD_ENSO', AOD_ENSO)
ncdisp('AOD_MODIS_ENSO_composite_monthly.nc')
