Lying skeptics is all that I would say to them.
How convenient that they have only included selected snippets of the code.
In all the fuss around the supposed smoking gun inside one of the source code files from the CRU Hack no one seems to be pointing something out... the so called fudge factor that is in the program isn't used.
Here's the full listing of osborn-tree6/briffa_sep98_d.pro
;; Now prepare for plotting;loadct,39multi_plot,nrow=3,layout='caption'if !d.name eq 'X' then begin window,ysize=800 !p.font=-1endif else begin !p.font=0 device,/helvetica,/bold,font_size=18endelsedef_1color,20,color='red'def_1color,21,color='blue'def_1color,22,color='black';restore,'compbest_fixed1950.idlsave';plot,timey,comptemp(*,3),/nodata,$ /xstyle,xrange=[1881,1994],xtitle='Year',$ /ystyle,yrange=[-3,3],ytitle='Normalised anomalies',$; title='Northern Hemisphere temperatures, MXD and corrected MXD' title='Northern Hemisphere temperatures and MXD reconstruction';yyy=reform(comptemp(*,2));mknormal,yyy,timey,refperiod=[1881,1940]filter_cru,5.,/nan,tsin=yyy,tslow=tslowoplot,timey,tslow,thick=5,color=22yyy=reform(compmxd(*,2,1));mknormal,yyy,timey,refperiod=[1881,1940];; Apply a VERY ARTIFICAL correction for decline!!;yrloc=[1400,findgen(19)*5.+1904]valadj=[0.,0.,0.,0.,0.,-0.1,-0.25,-0.3,0.,-0.1,0.3,0.8,1.2,1.7,2.5,2.6,2.6,$ 2.6,2.6,2.6]*0.75 ; fudge factorif n_elements(yrloc) ne n_elements(valadj) then message,'Oooops!';yearlyadj=interpol(valadj,yrloc,timey);;filter_cru,5.,/nan,tsin=yyy+yearlyadj,tslow=tslow;oplot,timey,tslow,thick=5,color=20;filter_cru,5.,/nan,tsin=yyy,tslow=tslowoplot,timey,tslow,thick=5,color=21;oplot,!x.crange,[0.,0.],linestyle=1;plot,[0,1],/nodata,xstyle=4,ystyle=4;legend,['Northern Hemisphere April-September instrumental temperature',$; 'Northern Hemisphere MXD',$; 'Northern Hemisphere MXD corrected for decline'],$; colors=[22,21,20],thick=[3,3,3],margin=0.6,spacing=1.5legend,['Northern Hemisphere April-September instrumental temperature',$ 'Northern Hemisphere MXD'],$ colors=[22,21],thick=[3,3],margin=0.6,spacing=1.5;end
This code is written in a language called IDL and IDL uses a semicolon for a comment. So any line beginning with ; is ignored. Here's the same code without those ignored lines:
loadct,39multi_plot,nrow=3,layout='caption'if !d.name eq 'X' then begin window,ysize=800 !p.font=-1endif else begin !p.font=0 device,/helvetica,/bold,font_size=18endelsedef_1color,20,color='red'def_1color,21,color='blue'def_1color,22,color='black'restore,'compbest_fixed1950.idlsave'plot,timey,comptemp(*,3),/nodata,$ /xstyle,xrange=[1881,1994],xtitle='Year',$ /ystyle,yrange=[-3,3],ytitle='Normalised anomalies',$ title='Northern Hemisphere temperatures and MXD reconstruction'yyy=reform(comptemp(*,2))filter_cru,5.,/nan,tsin=yyy,tslow=tslowoplot,timey,tslow,thick=5,color=22yyy=reform(compmxd(*,2,1))yrloc=[1400,findgen(19)*5.+1904]valadj=[0.,0.,0.,0.,0.,-0.1,-0.25,-0.3,0.,-0.1,0.3,0.8,1.2,1.7,2.5,2.6,2.6,$ 2.6,2.6,2.6]*0.75if n_elements(yrloc) ne n_elements(valadj) then message,'Oooops!'yearlyadj=interpol(valadj,yrloc,timey)filter_cru,5.,/nan,tsin=yyy,tslow=tslowoplot,timey,tslow,thick=5,color=21oplot,!x.crange,[0.,0.],linestyle=1plot,[0,1],/nodata,xstyle=4,ystyle=4legend,['Northern Hemisphere April-September instrumental temperature',$ 'Northern Hemisphere MXD'],$ colors=[22,21],thick=[3,3],margin=0.6,spacing=1.5end
The critical thing to look for is yearlyadj which is the magic value that everyone is so excited about. But guess what? It's never referenced in the rest of the program. So much for a smoking gun.
- - - - - - - - - - - - - - - -
EDIT: TO RIO
You're missing the point I'm making. The 'fudge' variable IS NOT part of the programme.