load ~/NC/grid
load ~/NC/area_1.9_2.5.mat
load ~/NC/OCNFRAC.mat

year=1:150;
month=1:1800;

SSLT_temp=ncread('~/Aerosol_Variaiton/ERUN/read_nc/ncfile/read_nc_SSLT.nc','SSLT');

SSLT_MONTH=zeros(144,96,1800);


% Deseasonal
for i=1:144
    for j=1:96
        for monthID=1:12
            temp=mean(SSLT_temp(i,j,monthID,:),4);
            for yearID=1:150
                SSLT_temp(i,j,monthID,yearID)=SSLT_temp(i,j,monthID,yearID)-temp;
            end
        end
    end
end

% Change size
for i=1:144
    for j=1:96
        n=0;
        for yearID=1:150
            for monthID=1:12
                n=n+1;
                SSLT_MONTH(i,j,n)=SSLT_temp(i,j,monthID,yearID);
            end
        end
    end
end

%Global mean
SSLT_GLOBAL_MONTH=zeros(1800,1);
for yearID=1:1800
    SSLT_GLOBAL_MONTH(yearID)=sum(sum(SSLT_MONTH(:,:,yearID).*area,2),1)/sum(area(:));
end

%TPO mean
TPO=zeros(144,96);
TPO(lon>=125&lon<=290,lat>-20&lat<20)=1;
for i=1:144
    for j=1:96
        if OCNFRAC(i,j)~=1;
            TPO(i,j)=0;
        end
    end
end

SSLT_TPO_MONTH=zeros(1800,1);
for yearID=1:1800
    for i=1:144
    for j=1:96
        if TPO(i,j)==1;
            SSLT_TPO_MONTH(yearID)=SSLT_TPO_MONTH(yearID)+SSLT_MONTH(i,j,yearID)*area(i,j);
        end
    end
    end
end
SSLT_TPO_MONTH=SSLT_TPO_MONTH/sum(sum(TPO.*area,2),1);


save('SSLT_monthly.mat','SSLT_MONTH')

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