# Create 2002 ozone profile 

  pozone02_rbind(poz02sep,poz02oct,poz02nov,poz02dec)									
	
					
# Make ascii file of profile ozone data
	po3 <- pozone02		
									
# Get rid of NAs values in the file
	 	po3[ is.na(po3)]_ -99999
		po3[po3 == NA]_ -99999
		write.table(po3, file="pozone02.dat",sep=",",append=F, dimnames.write = "colnames")
				
	rm(po3)				

	#-------------------------------------------------------------------------
#  2003						
	
  pozone03_rbind(poz03jan,poz03feb,poz03mar,poz03apr,poz03may,poz03jun,poz03jul,poz03aug,
	poz03sep,poz03oct,poz03nov,poz03dec)									
	
					
# Make ascii file of profile ozone data
	po3 <- pozone03		
									
# Get rid of NAs values in the file
	 	po3[ is.na(po3)]_ -99999
		po3[po3 == NA]_ -99999
		write.table(po3, file="pozone03.dat",sep=",",append=F, dimnames.write = "colnames")
				
	rm(po3)	
					
	#-------------------------------------------------------------------------
#  2004						
	
  pozone04_rbind(poz04jan,poz04apr,poz04may,poz04jun,poz04jul,poz04aug,
	poz04sep,poz04oct,poz04nov,poz04dec)									
	
					
# Make ascii file of profile ozone data
	po3 <- pozone04		
									
# Get rid of NAs values in the file
	 	po3[ is.na(po3)]_ -99999
		po3[po3 == NA]_ -99999
		write.table(po3, file="pozone04.dat",sep=",",append=F, dimnames.write = "colnames")
				
	rm(po3)	
	
	#-------------------------------------------------------------------------
#  2005						
	  pozone05_rbind(poz05jan,poz05feb,poz05mar,poz05apr,poz05may,poz05jun,poz05jul,
	poz05aug,poz05sep)									
	
					
# Make ascii file of profile ozone data
	po3 <- pozone05		
									
# Get rid of NAs values in the file
	 	po3[ is.na(po3)]_ -99999
		po3[po3 == NA]_ -99999
		write.table(po3, file="pozone05.dat",sep=",",append=F, dimnames.write = "colnames")
				
	rm(po3)		

	#-------------------------------------------------------------------------
#  2006						
	  pozone06_rbind(poz06jul,poz06aug,poz06sep,poz06oct,poz06dec)									
	
					
# Make ascii file of profile ozone data
	po3 <- pozone06		
									
# Get rid of NAs values in the file
	 	po3[ is.na(po3)]_ -99999
		po3[po3 == NA]_ -99999
		write.table(po3, file="pozone06.dat",sep=",",append=F, dimnames.write = "colnames")
				
	rm(po3)	
	
		#-------------------------------------------------------------------------
#  2007						
	  pozone07_rbind(poz07jan,poz07feb)									
	
					
# Make ascii file of profile ozone data
	po3 <- pozone07		
									
# Get rid of NAs values in the file
	 	po3[ is.na(po3)]_ -99999
		po3[po3 == NA]_ -99999
		write.table(po3, file="pozone07.dat",sep=",",append=F, dimnames.write = "colnames")
				
	rm(po3)	
	
#  BEARPEX 2007						
	  pozone07BP_rbind(poz07aug,poz07sep,poz07oct)									
	
					
# Make ascii file of profile ozone data
	po3 <- pozone07BP		
									
# Get rid of NAs values in the file
	 	po3[ is.na(po3)]_ -99999
		po3[po3 == NA]_ -99999
		write.table(po3, file="pozone07BP.dat",sep=",",append=F, dimnames.write = "colnames")
				
	rm(po3)	

		
# End script