#HADAT TROPICS
   #JAn 1958 to MAr 2008 in Kuly 2008
	url="http://hadobs.metoffice.com/hadat/hadat2/hadat2_monthly_global_mean.txt"
	fred=readLines(url)
	temp=!is.na(as.numeric(substr(fred,5,8)))
	M=min((1:length(fred))[temp]);M
	hadat=read.table(url,skip=M-1)
	name0=scan(url,skip=M-3,n=11,what="");name0
	names(hadat)=name0
	hadat=ts(hadat[,3:11],start=c(hadat[1,2],1),freq=12)
	temp= (hadat== -999); hadat[temp]=NA
	K=ncol(hadat)
	id=dimnames(hadat)[[2]];n=nchar(id)
	alt=as.numeric(substr(id,1,n-3))