startTime = now;
load LULCmaster_50_CC_50.mat
areaM2 = 27944*219.456^2;
areaKM2 = areaM2/1000000;
areaHa = areaM2/10000;
areaAc = areaM2/4046.86;
scen = 1;
if scen == 1;
color = [1 0.114 0.145];
scStr = '50_CC_50';
end
vers = 1;
if vers<10
versStr = ['0' num2str(vers)];
else
versStr = num2str(vers);
end
avgAnn2 = zeros(85,20);
years = (1986:2070)';
s6 = '_85y';
var=5
s0 = 'prunoff';
s01 = 'atotrunp';
s1 = 'Annual Average P yield [kg/ha]';
s2 = ['P YIELD - ' scStr versStr];
s3 = ['Pyield_AvgAnnual_' scStr versStr];
ymin = 0;
ymax = 3.5;
s4 = ['/Users/Kucharikgradcomp/Desktop/Agro-IBIS_output/' scStr '/' s0 '.nc'];
run2 = read_netCDF(s4);
ind = find(strcmp(run2.varnames,s01)==1);
if isempty(ind)==0
ann2 = run2.data{1,ind};
for k=1:size(ann2,3)
count2 = 0;
sum2 = 0;
for i=1:size(ann2,1)
for j=1:size(ann2,2)
if ann2(i,j,k) < 1E20
count2 = count2 + 1;
sum2 = sum2 + ann2(i,j,k);
end
end
end
avgAnn2(k,var) = sum2/count2;
end
end
figure1 = figure;
axes1 = axes('Parent',figure1,'YGrid','on','XGrid','on','FontSize',20);
ylim(axes1,[ymin ymax]);
xlim(axes1,[1980,2080]);
box(axes1,'on');
hold(axes1,'on');
plot(years,avgAnn2(:,var),'LineWidth',2,'Color',[0 0 0]);
hold on
scen = 2;
if scen == 2;
scStr = '50_NW_50';
color2 = [1 0.576 0.118];
end
vers = 1;
if vers<10
versStr = ['0' num2str(vers)];
else
versStr = num2str(vers);
end
avgAnn2 = zeros(85,20);
years = (1986:2070)';
s6 = '_85y';
var=5
s0 = 'prunoff';
s01 = 'atotrunp';
s1 = 'Annual Average P yield [kg/ha]';
s2 = ['P YIELD - ' scStr versStr];
s3 = ['Pyield_AvgAnnual_' scStr versStr];
ymin = 0;
ymax = 3.5;
s4 = ['/Users/Kucharikgradcomp/Desktop/Agro-IBIS_output/' scStr '/' s0 '.nc'];
run2 = read_netCDF(s4);
ind = find(strcmp(run2.varnames,s01)==1);
if isempty(ind)==0
ann2 = run2.data{1,ind};
for k=1:size(ann2,3)
count2 = 0;
sum2 = 0;
for i=1:size(ann2,1)
for j=1:size(ann2,2)
if ann2(i,j,k) < 1E20
count2 = count2 + 1;
sum2 = sum2 + ann2(i,j,k);
end
end
end
avgAnn2(k,var) = sum2/count2;
end
figure2 = figure;
axes1 = axes('Parent',figure2,'YGrid','on','XGrid','on','FontSize',20);
ylim(axes1,[ymin ymax]);
xlim(axes1,[1980,2080]);
box(axes1,'on');
hold(axes1,'on');
plot(years,avgAnn2(:,var),'LineWidth',2,'Color',[0 0 0]);
hold off
xlabel({'Year'});
ylabel({s1},'FontSize',20);
title({s2});
s5 = [scStr versStr s6 s3];
print(s5, '-djpeg', '-r300')
end
0 Comments
Sign in to comment.