# plot original and updated eiv reconstructions adjustements are
# related to a) more consistent temperature targets, b) correction of
# an error in setting regpar in one case.

# we plot decadal smoothed data since that was what was archived
# originally. 

# each reconstruction is plotted (new in solid, old in dashed) in a
# separate colour, and slightly offset from each other to aid clarity.

# baseline for each set is the 1856-1980 mean

pdffile="SMR_figextra1.pdf"
pdf(pdffile, width=13, height=10)
par(oma=rep(0,4), mar=c(4,4,.7,.1))

# read in new and originally archived files (in EIV/output and EIV/orig_output)

orig_gkss=matrix(nrow=980,ncol=4) 
orig_csm=matrix(nrow=1131,ncol=4)
new_gkss=matrix(nrow=980,ncol=4)  
new_csm=matrix(nrow=1131,ncol=4) 

num=59
tmp <- read.table(paste("EIV/orig_output/gkssnhrecon_",num,"red_long_eiv",sep = ""), nrows=980)
orig_gkss[,1]=tmp[,1]
tmp <- read.table(paste("EIV/orig_output/gkssnhrecon_",num,"red_long_nohybrid_eiv",sep = ""), nrows=980)
orig_gkss[,2]=tmp[,1]

tmp <- read.table(paste("EIV/orig_output/csmnhrecon_",num,"red_long_eiv",sep = ""), nrows=1131) 
orig_csm[,1]=tmp[,1] 
tmp <- read.table(paste("EIV/orig_output/csmnhrecon_",num,"red_long_nohybrid_eiv",sep = ""), nrows=1131)
orig_csm[,2]=tmp[,1]

tmp <- read.table(paste("EIV/output/eiv_hyb_gkss_",num,"_10yrsmooth",sep = ""), nrows=980)
new_gkss[,1]=tmp[,2] 
tmp <- read.table(paste("EIV/output/eiv_nohyb_gkss_",num,"_10yrsmooth",sep = ""), nrows=980)
new_gkss[,2]=tmp[,2]

tmp <- read.table(paste("EIV/output/eiv_hyb_csm_",num,"_10yrsmooth",sep = ""), nrows=1131) 
new_csm[,1]=tmp[,2] 
tmp <- read.table(paste("EIV/output/eiv_nohyb_csm_",num,"_10yrsmooth",sep = ""), nrows=1131)
new_csm[,2]=tmp[,2]
 
num=104
tmp <- read.table(paste("EIV/orig_output/gkssnhrecon_",num,"red_long_eiv",sep = ""), nrows=980)
orig_gkss[,3]=tmp[,1] 
tmp <- read.table(paste("EIV/orig_output/gkssnhrecon_",num,"red_long_nohybrid_eiv",sep = ""), nrows=980)
orig_gkss[,4]=tmp[,1]

tmp <- read.table(paste("EIV/orig_output/csmnhrecon_",num,"red_long_eiv",sep = ""), nrows=1131)
orig_csm[,3]=tmp[,1] 
tmp <- read.table(paste("EIV/orig_output/csmnhrecon_",num,"red_long_nohybrid_eiv",sep = ""), nrows=1131)
orig_csm[,4]=tmp[,1]

tmp <- read.table(paste("EIV/output/eiv_hyb_gkss_",num,"_10yrsmooth",sep = ""), nrows=980)
new_gkss[,3]=tmp[,2] 
tmp <- read.table(paste("EIV/output/eiv_nohyb_gkss_",num,"_10yrsmooth",sep = ""), nrows=980)
new_gkss[,4]=tmp[,2]

tmp <- read.table(paste("EIV/output/eiv_hyb_csm_",num,"_10yrsmooth",sep = ""), nrows=1131)
new_csm[,3]=tmp[,2]
tmp <- read.table(paste("EIV/output/eiv_nohyb_csm_",num,"_10yrsmooth",sep = ""), nrows=1131)
new_csm[,4]=tmp[,2]

# ensure baseline is consistent (1856-1980)

orig_gkss[,]=orig_gkss[,]-colMeans(orig_gkss[856:980,])
 new_gkss[,]= new_gkss[,]-colMeans( new_gkss[856:980,])

orig_csm[,]=orig_csm[,]-colMeans(orig_csm[1007:1131,])
 new_csm[,]= new_csm[,]-colMeans( new_csm[1007:1131,])

x_gkss=(1001:1980)
x_csm=(850:1980)

# set up plot
pdffile="SMR_figextra1.pdf"
pdf(pdffile, width=16, height=10)

plot( x_csm, orig_csm[,1], type="n", xlab="Year", ylab="Temperature Anomaly (C)", ylim=c(-3.,3), xlim=c(1000,1980), col="grey", main="Original and New Pseudo-Proxy Reconstructions",cex.main=1.5)


# plot each pair in different colour, solid and dash, and offset by 0.5 deg C

lines(x_gkss,new_gkss[,1]+2.0, col=1, lty=1, lwd=2)
lines(x_gkss,orig_gkss[,1]+2.0, col=1, lty=2, lwd=2)

lines(x_gkss,new_gkss[,2]+1.5, col=2, lty=1, lwd=2)
lines(x_gkss,orig_gkss[,2]+1.5, col=2, lty=2, lwd=2)

lines(x_gkss,new_gkss[,3]+1.0, col=3, lty=1, lwd=2)
lines(x_gkss,orig_gkss[,3]+1.0, col=3, lty=2, lwd=2)

lines(x_gkss,new_gkss[,4]+0.5, col=4, lty=1, lwd=2)
lines(x_gkss,orig_gkss[,4]+0.5, col=4, lty=2, lwd=2)


lines(x_csm,new_csm[,1]-0.5, col=5, lty=1, lwd=2)
lines(x_csm,orig_csm[,1]-0.5, col=5, lty=2, lwd=2)

lines(x_csm,new_csm[,2]-1.0, col=6, lty=1, lwd=2)
lines(x_csm,orig_csm[,2]-1.0, col=6, lty=2, lwd=2)

lines(x_csm,new_csm[,3]-1.5, col=7, lty=1, lwd=2)
lines(x_csm,orig_csm[,3]-1.5, col=7, lty=2, lwd=2)

lines(x_csm,new_csm[,4]-2.0, col=8, lty=1, lwd=2)
lines(x_csm,orig_csm[,4]-2.0, col=8, lty=2, lwd=2)

legend(1100,3.2,c("New","Original"),col=c("black","black"),lwd=c(2,2),lty=c(1,2),cex=1.5)
legend(1430,3.2,c("GKSS_59_hyb","GKSS_59_nohyb","GKSS_104_hyb","GKSS_104_nohyb"),col=c(1,2,3,4),lwd=c(2,2,2,2),cex=1.5)
legend(1670,3.2,c("CSM_59_hyb","CSM_59_nohyb","CSM_104_hyb","CSM_104_nohyb"),col=c(5,6,7,8),lwd=c(2,2,2,2),cex=1.5)

dev.off()

print("Extra Fig 1 done...")