; ; Now prepare for plotting ; loadct,39 multi_plot,nrow=3,ncol=2,layout='caption' if !d.name eq 'X' then begin window,ysize=800 !p.font=-1 endif else begin !p.font=0 device,/helvetica,/bold,font_size=14 endelse def_1color,20,color='deepblue' def_1color,21,color='red' ; for i = 0 , nreg-1 do begin pause x=findgen(24) yy=reform(regr(i,*)) y=fltarr(24)*!values.f_nan yloc=[indgen(12)+1,indgen(5)*2+14] y(yloc)=yy(*) plot,x,y,/nodata,$ /ystyle,yrange=[-0.6,0.6],ytitle='Correlation',$ xstyle=5,title=regname(i)+' r(temp,prec)' for j = -6 , 6 , 2 do oplot,!x.crange,replicate(float(j)*0.1,2),linestyle=1 oplot,!x.crange,[0.,0.] cpl_barts,x,y,outline=-1,/overplot,bar_color=[21,20],thick=2 if !d.name eq 'PS' then device,font_size=8 for j = 0 , ncorr-1 do begin x1=x(yloc(j))+0.25 y1=y(yloc(j)) if y1 lt 0 then y1=+0.05 else y1=y1+0.05 xyouts,x1,y1,corrname(j),align=0.,orient=90. endfor if !d.name eq 'PS' then device,font_size=14 endfor ; end