#RSS
#version 3 used by me first in 2011
#http://www.remss.com/data/msu/monthly_time_series/RSS_Monthly_MSU_AMSU_Channel_TLS_Anomalies_Land_and_Ocean_v03_3.txt
#http://www.remss.com/data/msu/monthly_time_series/RSS_Monthly_MSU_AMSU_Channel_TLT_Anomalies_Ocean_v03_2.txt"
#http://data.remss.com/msu/monthly_time_series/RSS_Monthly_MSU_AMSU_Channel_TLT_Anomalies_Land_and_Ocean_v04_0.txt"
#http://data.remss.com/msu/monthly_time_series/RSS_Monthly_MSU_AMSU_Channel_TLS_Anomalies_Land_and_Ocean_v03_3.txt
#http://data.remss.com/msu/monthly_time_series/RSS_Monthly_MSU_AMSU_Channel_TMT_Anomalies_Land_and_Ocean_v04_0.txt
#Dec 16: TLT version 3_3
#Dec 16  TMT versions 3_3, 4_0

#TTT definition http://www.remss.com/measurements/upper-air-temperature

###
### tropo - TLT, TLS, TMT, TTS
##  firma - Land, Ocean, Land_and_Ocean 
#Year  mon  -70.0/   -20.0/    20.0/   -70.0/    60.0/   -70.0/    Cont.      0.0/    -70.0/
#            82.5     20.0     82.5    -20.0     82.5    -60.0     USA       82.5       0.0
#year  mon  -82.5/   -20.0/    20.0/   -82.5/    60.0/   -82.5/
#            82.5     20.0     82.5    -20.0     82.5    -60.0 

 
get_rss=function(tropo="TLT",firma="Land_and_Ocean",version="3_3") {
##  tropo="TLT";firma="Land_and_Ocean"; version="3_3" # version="4_0"
 ##loc=paste("http://www.remss.com/data/msu/monthly_time_series/RSS_Monthly_MSU_AMSU_Channel_",tropo,"_Anomalies_",firma,"_v0",version,".txt",sep="")
	loc=paste( "http://data.remss.com/msu/monthly_time_series/RSS_Monthly_MSU_AMSU_Channel_",tropo,"_Anomalies_",firma,"_v0",version,".txt",sep="")
	rss=read.table(loc, skip=3)
	name0=c("year","month","82.82","20.20","20.82N","20.82S","60.80N","60.80S")
	if(firma=="Land_and_Ocean") dimnames(rss)[[2]]=c(name0,"US","NH","SH") else dimnames(rss)[[2]] =name0 
	rss=ts(rss,start=1979,freq=12)
	return(rss)
	}

# rss=get_rss(tropo="TLT")
# land=get_rss(tropo="TLT",firma="Land")