#CHRISTY
 	#url<-"ftp://ghrc.nsstc.nasa.gov/pub/data/msu/t2lt/uahncdc.lt"#obsolete
	url="http://vortex.nsstc.uah.edu/data/msu/t2lt/uahncdc.lt"
	fred=readLines(url);N=length(fred)
	msu<-read.table(url,header=TRUE,nrow= N-4)
	msu<-ts(msu,start=c(1978,12),freq=12)
	msu.glb=msu[,"Globe"]
	name0=c("year","mo",c(t(outer(c("GLB","NH","SH","Trpcs","NoExt","SoExt","NoPol","SoPol"),c("","_land","_ocean"),function(x,y) paste(x,y,sep="")))),"USA48")
	dimnames(msu)[[2]]=name0