PRO plot_waccm_tuv_wnfrq1to12w_dens_prof, zplevWACCM, tspcWACCM, uspcWACCM, vspcWACCM

; This procedure was created on Tuesday, June 9th, 2009.
; This procedure was created by SOARS Protege McArthur (Mack) Jones Jr.
; This procedure will produce a contour w/ lat. on the x-axis and altitude on the y-axis

;newcolor

SET_PLOT, 'PS'

;DEVICE, SET_FONT = 'Times Bold', /TT_FONT, /COLOR, bits_per_pixel=8

psfile = '/local/i/joemci/SW/WAM/tuvamp_March_Mean_WN1Frq1to12W_Prof_WACCM_dens.ps'

DEVICE, /COLOR, /LAND, FILENAME = psfile
LOADCT, 39, ncolors = 10
;
; WACCM temperature westward wavenumber 1 and zonal frequencies 1-12 
;
tmpaWACCM1 = REFORM(tspcWACCM[72,1,47,0:80])
tmpaWACCM2 = REFORM(tspcWACCM[72,2,47,0:80])
tmpaWACCM3 = REFORM(tspcWACCM[72,3,47,0:80])
tmpaWACCM4 = REFORM(tspcWACCM[72,4,47,0:80])
tmpaWACCM5 = REFORM(tspcWACCM[72,5,47,0:80])
tmpaWACCM6 = REFORM(tspcWACCM[72,6,47,0:80])
tmpaWACCM7 = REFORM(tspcWACCM[72,7,47,0:80])
tmpaWACCM8 = REFORM(tspcWACCM[72,8,47,0:80])
tmpaWACCM9 = REFORM(tspcWACCM[72,9,47,0:80])
tmpaWACCM10 = REFORM(tspcWACCM[72,10,47,0:80])
tmpaWACCM11 = REFORM(tspcWACCM[72,11,47,0:80])
tmpaWACCM12 = REFORM(tspcWACCM[72,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1, /ylog, /xlog, xrange=[1.E-11,1.E-02], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Westward WN 1 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 1 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(tspcWACCM[70,1,47,0:80])
;tmpaWACCM2 = REFORM(tspcWACCM[70,2,47,0:80])
;tmpaWACCM3 = REFORM(tspcWACCM[70,3,47,0:80])
;tmpaWACCM4 = REFORM(tspcWACCM[70,4,47,0:80])
;tmpaWACCM5 = REFORM(tspcWACCM[70,5,47,0:80])
;tmpaWACCM6 = REFORM(tspcWACCM[70,6,47,0:80])
;tmpaWACCM7 = REFORM(tspcWACCM[70,7,47,0:80])
;tmpaWACCM8 = REFORM(tspcWACCM[70,8,47,0:80])
;tmpaWACCM9 = REFORM(tspcWACCM[70,9,47,0:80])
;tmpaWACCM10 = REFORM(tspcWACCM[70,10,47,0:80])
;tmpaWACCM11 = REFORM(tspcWACCM[70,11,47,0:80])
;tmpaWACCM12 = REFORM(tspcWACCM[70,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-11,1.E-03], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Eastward WN 1 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind westward wavenumber 1 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(uspcWACCM[72,1,47,0:80])
tmpaWACCM2 = REFORM(uspcWACCM[72,2,47,0:80])
tmpaWACCM3 = REFORM(uspcWACCM[72,3,47,0:80])
tmpaWACCM4 = REFORM(uspcWACCM[72,4,47,0:80])
tmpaWACCM5 = REFORM(uspcWACCM[72,5,47,0:80])
tmpaWACCM6 = REFORM(uspcWACCM[72,6,47,0:80])
tmpaWACCM7 = REFORM(uspcWACCM[72,7,47,0:80])
tmpaWACCM8 = REFORM(uspcWACCM[72,8,47,0:80])
tmpaWACCM9 = REFORM(uspcWACCM[72,9,47,0:80])
tmpaWACCM10 = REFORM(uspcWACCM[72,10,47,0:80])
tmpaWACCM11 = REFORM(uspcWACCM[72,11,47,0:80])
tmpaWACCM12 = REFORM(uspcWACCM[72,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.0], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Westward WN 1 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind eastward wavenumber 1 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(uspcWACCM[70,1,47,0:80])
;tmpaWACCM2 = REFORM(uspcWACCM[70,2,47,0:80])
;tmpaWACCM3 = REFORM(uspcWACCM[70,3,47,0:80])
;tmpaWACCM4 = REFORM(uspcWACCM[70,4,47,0:80])
;tmpaWACCM5 = REFORM(uspcWACCM[70,5,47,0:80])
;tmpaWACCM6 = REFORM(uspcWACCM[70,6,47,0:80])
;tmpaWACCM7 = REFORM(uspcWACCM[70,7,47,0:80])
;tmpaWACCM8 = REFORM(uspcWACCM[70,8,47,0:80])
;tmpaWACCM9 = REFORM(uspcWACCM[70,9,47,0:80])
;tmpaWACCM10 = REFORM(uspcWACCM[70,10,47,0:80])
;tmpaWACCM11 = REFORM(uspcWACCM[70,11,47,0:80])
;tmpaWACCM12 = REFORM(uspcWACCM[70,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Eastward WN 1 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM meridional wind westward wavenumber 1 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(vspcWACCM[72,1,47,0:80])
tmpaWACCM2 = REFORM(vspcWACCM[72,2,47,0:80])
tmpaWACCM3 = REFORM(vspcWACCM[72,3,47,0:80])
tmpaWACCM4 = REFORM(vspcWACCM[72,4,47,0:80])
tmpaWACCM5 = REFORM(vspcWACCM[72,5,47,0:80])
tmpaWACCM6 = REFORM(vspcWACCM[72,6,47,0:80])
tmpaWACCM7 = REFORM(vspcWACCM[72,7,47,0:80])
tmpaWACCM8 = REFORM(vspcWACCM[72,8,47,0:80])
tmpaWACCM9 = REFORM(vspcWACCM[72,9,47,0:80])
tmpaWACCM10 = REFORM(vspcWACCM[72,10,47,0:80])
tmpaWACCM11 = REFORM(vspcWACCM[72,11,47,0:80])
tmpaWACCM12 = REFORM(vspcWACCM[72,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.0], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Westward WN 1 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 1 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(vspcWACCM[70,1,47,0:80])
;tmpaWACCM2 = REFORM(vspcWACCM[70,2,47,0:80])
;tmpaWACCM3 = REFORM(vspcWACCM[70,3,47,0:80])
;tmpaWACCM4 = REFORM(vspcWACCM[70,4,47,0:80])
;tmpaWACCM5 = REFORM(vspcWACCM[70,5,47,0:80])
;tmpaWACCM6 = REFORM(vspcWACCM[70,6,47,0:80])
;tmpaWACCM7 = REFORM(vspcWACCM[70,7,47,0:80])
;tmpaWACCM8 = REFORM(vspcWACCM[70,8,47,0:80])
;tmpaWACCM9 = REFORM(vspcWACCM[70,9,47,0:80])
;tmpaWACCM10 = REFORM(vspcWACCM[70,10,47,0:80])
;tmpaWACCM11 = REFORM(vspcWACCM[70,11,47,0:80])
;tmpaWACCM12 = REFORM(vspcWACCM[70,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.0], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Eastward WN 1 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5

DEVICE, /CLOSE

SET_PLOT, 'x'

SET_PLOT, 'PS'

psfile = '/local/i/joemci/SW/WAM/tuvamp_March_Mean_WN2Frq1to12W_Prof_WACCM_dens.ps'

DEVICE, /COLOR, /LAND, FILENAME = psfile
LOADCT, 39, ncolors = 10
;
; WACCM temperature westward wavenumber 2 and zonal frequencies 1-12 
;
tmpaWACCM1 = REFORM(tspcWACCM[73,1,47,0:80])
tmpaWACCM2 = REFORM(tspcWACCM[73,2,47,0:80])
tmpaWACCM3 = REFORM(tspcWACCM[73,3,47,0:80])
tmpaWACCM4 = REFORM(tspcWACCM[73,4,47,0:80])
tmpaWACCM5 = REFORM(tspcWACCM[73,5,47,0:80])
tmpaWACCM6 = REFORM(tspcWACCM[73,6,47,0:80])
tmpaWACCM7 = REFORM(tspcWACCM[73,7,47,0:80])
tmpaWACCM8 = REFORM(tspcWACCM[73,8,47,0:80])
tmpaWACCM9 = REFORM(tspcWACCM[73,9,47,0:80])
tmpaWACCM10 = REFORM(tspcWACCM[73,10,47,0:80])
tmpaWACCM11 = REFORM(tspcWACCM[73,11,47,0:80])
tmpaWACCM12 = REFORM(tspcWACCM[73,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1, /ylog, /xlog, xrange=[1.E-11,6.E-04], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Westward WN 2 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 2 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(tspcWACCM[69,1,47,0:80])
;tmpaWACCM2 = REFORM(tspcWACCM[69,2,47,0:80])
;tmpaWACCM3 = REFORM(tspcWACCM[69,3,47,0:80])
;tmpaWACCM4 = REFORM(tspcWACCM[69,4,47,0:80])
;tmpaWACCM5 = REFORM(tspcWACCM[69,5,47,0:80])
;tmpaWACCM6 = REFORM(tspcWACCM[69,6,47,0:80])
;tmpaWACCM7 = REFORM(tspcWACCM[69,7,47,0:80])
;tmpaWACCM8 = REFORM(tspcWACCM[69,8,47,0:80])
;tmpaWACCM9 = REFORM(tspcWACCM[69,9,47,0:80])
;tmpaWACCM10 = REFORM(tspcWACCM[69,10,47,0:80])
;tmpaWACCM11 = REFORM(tspcWACCM[69,11,47,0:80])
;tmpaWACCM12 = REFORM(tspcWACCM[69,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-11,1.E-03], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Eastward WN 2 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind westward wavenumber 2 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(uspcWACCM[73,1,47,0:80])
tmpaWACCM2 = REFORM(uspcWACCM[73,2,47,0:80])
tmpaWACCM3 = REFORM(uspcWACCM[73,3,47,0:80])
tmpaWACCM4 = REFORM(uspcWACCM[73,4,47,0:80])
tmpaWACCM5 = REFORM(uspcWACCM[73,5,47,0:80])
tmpaWACCM6 = REFORM(uspcWACCM[73,6,47,0:80])
tmpaWACCM7 = REFORM(uspcWACCM[73,7,47,0:80])
tmpaWACCM8 = REFORM(uspcWACCM[73,8,47,0:80])
tmpaWACCM9 = REFORM(uspcWACCM[73,9,47,0:80])
tmpaWACCM10 = REFORM(uspcWACCM[73,10,47,0:80])
tmpaWACCM11 = REFORM(uspcWACCM[73,11,47,0:80])
tmpaWACCM12 = REFORM(uspcWACCM[73,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.0], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Westward WN 2 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind eastward wavenumber 2 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(uspcWACCM[69,1,47,0:80])
;tmpaWACCM2 = REFORM(uspcWACCM[69,2,47,0:80])
;tmpaWACCM3 = REFORM(uspcWACCM[69,3,47,0:80])
;tmpaWACCM4 = REFORM(uspcWACCM[69,4,47,0:80])
;tmpaWACCM5 = REFORM(uspcWACCM[69,5,47,0:80])
;tmpaWACCM6 = REFORM(uspcWACCM[69,6,47,0:80])
;tmpaWACCM7 = REFORM(uspcWACCM[69,7,47,0:80])
;tmpaWACCM8 = REFORM(uspcWACCM[69,8,47,0:80])
;tmpaWACCM9 = REFORM(uspcWACCM[69,9,47,0:80])
;tmpaWACCM10 = REFORM(uspcWACCM[69,10,47,0:80])
;tmpaWACCM11 = REFORM(uspcWACCM[69,11,47,0:80])
;tmpaWACCM12 = REFORM(uspcWACCM[69,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Eastward WN 2 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM meridional wind westward wavenumber 2 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(vspcWACCM[73,1,47,0:80])
tmpaWACCM2 = REFORM(vspcWACCM[73,2,47,0:80])
tmpaWACCM3 = REFORM(vspcWACCM[73,3,47,0:80])
tmpaWACCM4 = REFORM(vspcWACCM[73,4,47,0:80])
tmpaWACCM5 = REFORM(vspcWACCM[73,5,47,0:80])
tmpaWACCM6 = REFORM(vspcWACCM[73,6,47,0:80])
tmpaWACCM7 = REFORM(vspcWACCM[73,7,47,0:80])
tmpaWACCM8 = REFORM(vspcWACCM[73,8,47,0:80])
tmpaWACCM9 = REFORM(vspcWACCM[73,9,47,0:80])
tmpaWACCM10 = REFORM(vspcWACCM[73,10,47,0:80])
tmpaWACCM11 = REFORM(vspcWACCM[73,11,47,0:80])
tmpaWACCM12 = REFORM(vspcWACCM[73,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Westward WN 2 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 2 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(vspcWACCM[69,1,47,0:80])
;tmpaWACCM2 = REFORM(vspcWACCM[69,2,47,0:80])
;tmpaWACCM3 = REFORM(vspcWACCM[69,3,47,0:80])
;tmpaWACCM4 = REFORM(vspcWACCM[69,4,47,0:80])
;tmpaWACCM5 = REFORM(vspcWACCM[69,5,47,0:80])
;tmpaWACCM6 = REFORM(vspcWACCM[69,6,47,0:80])
;tmpaWACCM7 = REFORM(vspcWACCM[69,7,47,0:80])
;tmpaWACCM8 = REFORM(vspcWACCM[69,8,47,0:80])
;tmpaWACCM9 = REFORM(vspcWACCM[69,9,47,0:80])
;tmpaWACCM10 = REFORM(vspcWACCM[69,10,47,0:80])
;tmpaWACCM11 = REFORM(vspcWACCM[69,11,47,0:80])
;tmpaWACCM12 = REFORM(vspcWACCM[69,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Eastward WN 2 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5

DEVICE, /CLOSE

SET_PLOT, 'x'

SET_PLOT, 'PS'

psfile = '/local/i/joemci/SW/WAM/tuvamp_March_Mean_WN3Frq1to12W_Prof_WACCM_dens.ps'

DEVICE, /COLOR, /LAND, FILENAME = psfile
LOADCT, 39, ncolors = 10
;
; WACCM temperature westward wavenumber 3 and zonal frequencies 1-12 
;
tmpaWACCM1 = REFORM(tspcWACCM[74,1,47,0:80])
tmpaWACCM2 = REFORM(tspcWACCM[74,2,47,0:80])
tmpaWACCM3 = REFORM(tspcWACCM[74,3,47,0:80])
tmpaWACCM4 = REFORM(tspcWACCM[74,4,47,0:80])
tmpaWACCM5 = REFORM(tspcWACCM[74,5,47,0:80])
tmpaWACCM6 = REFORM(tspcWACCM[74,6,47,0:80])
tmpaWACCM7 = REFORM(tspcWACCM[74,7,47,0:80])
tmpaWACCM8 = REFORM(tspcWACCM[74,8,47,0:80])
tmpaWACCM9 = REFORM(tspcWACCM[74,9,47,0:80])
tmpaWACCM10 = REFORM(tspcWACCM[74,10,47,0:80])
tmpaWACCM11 = REFORM(tspcWACCM[74,11,47,0:80])
tmpaWACCM12 = REFORM(tspcWACCM[74,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1, /ylog, /xlog, xrange=[1.E-11,6.E-04], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Westward WN 3 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 3 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(tspcWACCM[68,1,47,0:80])
;tmpaWACCM2 = REFORM(tspcWACCM[68,2,47,0:80])
;tmpaWACCM3 = REFORM(tspcWACCM[68,3,47,0:80])
;tmpaWACCM4 = REFORM(tspcWACCM[68,4,47,0:80])
;tmpaWACCM5 = REFORM(tspcWACCM[68,5,47,0:80])
;tmpaWACCM6 = REFORM(tspcWACCM[68,6,47,0:80])
;tmpaWACCM7 = REFORM(tspcWACCM[68,7,47,0:80])
;tmpaWACCM8 = REFORM(tspcWACCM[68,8,47,0:80])
;tmpaWACCM9 = REFORM(tspcWACCM[68,9,47,0:80])
;tmpaWACCM10 = REFORM(tspcWACCM[68,10,47,0:80])
;tmpaWACCM11 = REFORM(tspcWACCM[68,11,47,0:80])
;tmpaWACCM12 = REFORM(tspcWACCM[68,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-11,1.E-03], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Eastward WN 3 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind westward wavenumber 3 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(uspcWACCM[74,1,47,0:80])
tmpaWACCM2 = REFORM(uspcWACCM[74,2,47,0:80])
tmpaWACCM3 = REFORM(uspcWACCM[74,3,47,0:80])
tmpaWACCM4 = REFORM(uspcWACCM[74,4,47,0:80])
tmpaWACCM5 = REFORM(uspcWACCM[74,5,47,0:80])
tmpaWACCM6 = REFORM(uspcWACCM[74,6,47,0:80])
tmpaWACCM7 = REFORM(uspcWACCM[74,7,47,0:80])
tmpaWACCM8 = REFORM(uspcWACCM[74,8,47,0:80])
tmpaWACCM9 = REFORM(uspcWACCM[74,9,47,0:80])
tmpaWACCM10 = REFORM(uspcWACCM[74,10,47,0:80])
tmpaWACCM11 = REFORM(uspcWACCM[74,11,47,0:80])
tmpaWACCM12 = REFORM(uspcWACCM[74,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Westward WN 3 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind eastward wavenumber 3 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(uspcWACCM[68,1,47,0:80])
;tmpaWACCM2 = REFORM(uspcWACCM[68,2,47,0:80])
;tmpaWACCM3 = REFORM(uspcWACCM[68,3,47,0:80])
;tmpaWACCM4 = REFORM(uspcWACCM[68,4,47,0:80])
;tmpaWACCM5 = REFORM(uspcWACCM[68,5,47,0:80])
;tmpaWACCM6 = REFORM(uspcWACCM[68,6,47,0:80])
;tmpaWACCM7 = REFORM(uspcWACCM[68,7,47,0:80])
;tmpaWACCM8 = REFORM(uspcWACCM[68,8,47,0:80])
;tmpaWACCM9 = REFORM(uspcWACCM[68,9,47,0:80])
;tmpaWACCM10 = REFORM(uspcWACCM[68,10,47,0:80])
;tmpaWACCM11 = REFORM(uspcWACCM[68,11,47,0:80])
;tmpaWACCM12 = REFORM(uspcWACCM[68,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Eastward WN 3 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM meridional wind westward wavenumber 3 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(vspcWACCM[74,1,47,0:80])
tmpaWACCM2 = REFORM(vspcWACCM[74,2,47,0:80])
tmpaWACCM3 = REFORM(vspcWACCM[74,3,47,0:80])
tmpaWACCM4 = REFORM(vspcWACCM[74,4,47,0:80])
tmpaWACCM5 = REFORM(vspcWACCM[74,5,47,0:80])
tmpaWACCM6 = REFORM(vspcWACCM[74,6,47,0:80])
tmpaWACCM7 = REFORM(vspcWACCM[74,7,47,0:80])
tmpaWACCM8 = REFORM(vspcWACCM[74,8,47,0:80])
tmpaWACCM9 = REFORM(vspcWACCM[74,9,47,0:80])
tmpaWACCM10 = REFORM(vspcWACCM[74,10,47,0:80])
tmpaWACCM11 = REFORM(vspcWACCM[74,11,47,0:80])
tmpaWACCM12 = REFORM(vspcWACCM[74,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Westward WN 3 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 3 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(vspcWACCM[68,1,47,0:80])
;tmpaWACCM2 = REFORM(vspcWACCM[68,2,47,0:80])
;tmpaWACCM3 = REFORM(vspcWACCM[68,3,47,0:80])
;tmpaWACCM4 = REFORM(vspcWACCM[68,4,47,0:80])
;tmpaWACCM5 = REFORM(vspcWACCM[68,5,47,0:80])
;tmpaWACCM6 = REFORM(vspcWACCM[68,6,47,0:80])
;tmpaWACCM7 = REFORM(vspcWACCM[68,7,47,0:80])
;tmpaWACCM8 = REFORM(vspcWACCM[68,8,47,0:80])
;tmpaWACCM9 = REFORM(vspcWACCM[68,9,47,0:80])
;tmpaWACCM10 = REFORM(vspcWACCM[68,10,47,0:80])
;tmpaWACCM11 = REFORM(vspcWACCM[68,11,47,0:80])
;tmpaWACCM12 = REFORM(vspcWACCM[68,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Eastward WN 3 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5

DEVICE, /CLOSE

SET_PLOT, 'x'

SET_PLOT, 'PS'

psfile = '/local/i/joemci/SW/WAM/tuvamp_March_Mean_WN4Frq1to12W_Prof_WACCM_dens.ps'

DEVICE, /COLOR, /LAND, FILENAME = psfile
LOADCT, 39, ncolors = 10
;
; WACCM temperature westward wavenumber 4 and zonal frequencies 1-12 
;
tmpaWACCM1 = REFORM(tspcWACCM[75,1,47,0:80])
tmpaWACCM2 = REFORM(tspcWACCM[75,2,47,0:80])
tmpaWACCM3 = REFORM(tspcWACCM[75,3,47,0:80])
tmpaWACCM4 = REFORM(tspcWACCM[75,4,47,0:80])
tmpaWACCM5 = REFORM(tspcWACCM[75,5,47,0:80])
tmpaWACCM6 = REFORM(tspcWACCM[75,6,47,0:80])
tmpaWACCM7 = REFORM(tspcWACCM[75,7,47,0:80])
tmpaWACCM8 = REFORM(tspcWACCM[75,8,47,0:80])
tmpaWACCM9 = REFORM(tspcWACCM[75,9,47,0:80])
tmpaWACCM10 = REFORM(tspcWACCM[75,10,47,0:80])
tmpaWACCM11 = REFORM(tspcWACCM[75,11,47,0:80])
tmpaWACCM12 = REFORM(tspcWACCM[75,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1, /ylog, /xlog, xrange=[1.E-11,6.E-04], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Westward WN 4 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 4 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(tspcWACCM[67,1,47,0:80])
;tmpaWACCM2 = REFORM(tspcWACCM[67,2,47,0:80])
;tmpaWACCM3 = REFORM(tspcWACCM[67,3,47,0:80])
;tmpaWACCM4 = REFORM(tspcWACCM[67,4,47,0:80])
;tmpaWACCM5 = REFORM(tspcWACCM[67,5,47,0:80])
;tmpaWACCM6 = REFORM(tspcWACCM[67,6,47,0:80])
;tmpaWACCM7 = REFORM(tspcWACCM[67,7,47,0:80])
;tmpaWACCM8 = REFORM(tspcWACCM[67,8,47,0:80])
;tmpaWACCM9 = REFORM(tspcWACCM[67,9,47,0:80])
;tmpaWACCM10 = REFORM(tspcWACCM[67,10,47,0:80])
;tmpaWACCM11 = REFORM(tspcWACCM[67,11,47,0:80])
;tmpaWACCM12 = REFORM(tspcWACCM[67,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-11,1.E-03], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Eastward WN 4 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind westward wavenumber 4 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(uspcWACCM[75,1,47,0:80])
tmpaWACCM2 = REFORM(uspcWACCM[75,2,47,0:80])
tmpaWACCM3 = REFORM(uspcWACCM[75,3,47,0:80])
tmpaWACCM4 = REFORM(uspcWACCM[75,4,47,0:80])
tmpaWACCM5 = REFORM(uspcWACCM[75,5,47,0:80])
tmpaWACCM6 = REFORM(uspcWACCM[75,6,47,0:80])
tmpaWACCM7 = REFORM(uspcWACCM[75,7,47,0:80])
tmpaWACCM8 = REFORM(uspcWACCM[75,8,47,0:80])
tmpaWACCM9 = REFORM(uspcWACCM[75,9,47,0:80])
tmpaWACCM10 = REFORM(uspcWACCM[75,10,47,0:80])
tmpaWACCM11 = REFORM(uspcWACCM[75,11,47,0:80])
tmpaWACCM12 = REFORM(uspcWACCM[75,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Westward WN 4 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind eastward wavenumber 4 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(uspcWACCM[67,1,47,0:80])
;tmpaWACCM2 = REFORM(uspcWACCM[67,2,47,0:80])
;tmpaWACCM3 = REFORM(uspcWACCM[67,3,47,0:80])
;tmpaWACCM4 = REFORM(uspcWACCM[67,4,47,0:80])
;tmpaWACCM5 = REFORM(uspcWACCM[67,5,47,0:80])
;tmpaWACCM6 = REFORM(uspcWACCM[67,6,47,0:80])
;tmpaWACCM7 = REFORM(uspcWACCM[67,7,47,0:80])
;tmpaWACCM8 = REFORM(uspcWACCM[67,8,47,0:80])
;tmpaWACCM9 = REFORM(uspcWACCM[67,9,47,0:80])
;tmpaWACCM10 = REFORM(uspcWACCM[67,10,47,0:80])
;tmpaWACCM11 = REFORM(uspcWACCM[67,11,47,0:80])
;tmpaWACCM12 = REFORM(uspcWACCM[67,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Eastward WN 4 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM meridional wind westward wavenumber 4 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(vspcWACCM[75,1,47,0:80])
tmpaWACCM2 = REFORM(vspcWACCM[75,2,47,0:80])
tmpaWACCM3 = REFORM(vspcWACCM[75,3,47,0:80])
tmpaWACCM4 = REFORM(vspcWACCM[75,4,47,0:80])
tmpaWACCM5 = REFORM(vspcWACCM[75,5,47,0:80])
tmpaWACCM6 = REFORM(vspcWACCM[75,6,47,0:80])
tmpaWACCM7 = REFORM(vspcWACCM[75,7,47,0:80])
tmpaWACCM8 = REFORM(vspcWACCM[75,8,47,0:80])
tmpaWACCM9 = REFORM(vspcWACCM[75,9,47,0:80])
tmpaWACCM10 = REFORM(vspcWACCM[75,10,47,0:80])
tmpaWACCM11 = REFORM(vspcWACCM[75,11,47,0:80])
tmpaWACCM12 = REFORM(vspcWACCM[75,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Westward WN 4 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 4 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(vspcWACCM[67,1,47,0:80])
;tmpaWACCM2 = REFORM(vspcWACCM[67,2,47,0:80])
;tmpaWACCM3 = REFORM(vspcWACCM[67,3,47,0:80])
;tmpaWACCM4 = REFORM(vspcWACCM[67,4,47,0:80])
;tmpaWACCM5 = REFORM(vspcWACCM[67,5,47,0:80])
;tmpaWACCM6 = REFORM(vspcWACCM[67,6,47,0:80])
;tmpaWACCM7 = REFORM(vspcWACCM[67,7,47,0:80])
;tmpaWACCM8 = REFORM(vspcWACCM[67,8,47,0:80])
;tmpaWACCM9 = REFORM(vspcWACCM[67,9,47,0:80])
;tmpaWACCM10 = REFORM(vspcWACCM[67,10,47,0:80])
;tmpaWACCM11 = REFORM(vspcWACCM[67,11,47,0:80])
;tmpaWACCM12 = REFORM(vspcWACCM[67,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Eastward WN 4 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5

DEVICE, /CLOSE

SET_PLOT, 'x'

SET_PLOT, 'PS'

psfile = '/local/i/joemci/SW/WAM/tuvamp_March_Mean_WN5Frq1to12W_Prof_WACCM_dens.ps'

DEVICE, /COLOR, /LAND, FILENAME = psfile
LOADCT, 39, ncolors = 10
;
; WACCM temperature westward wavenumber 5 and zonal frequencies 1-12 
;
tmpaWACCM1 = REFORM(tspcWACCM[76,1,47,0:80])
tmpaWACCM2 = REFORM(tspcWACCM[76,2,47,0:80])
tmpaWACCM3 = REFORM(tspcWACCM[76,3,47,0:80])
tmpaWACCM4 = REFORM(tspcWACCM[76,4,47,0:80])
tmpaWACCM5 = REFORM(tspcWACCM[76,5,47,0:80])
tmpaWACCM6 = REFORM(tspcWACCM[76,6,47,0:80])
tmpaWACCM7 = REFORM(tspcWACCM[76,7,47,0:80])
tmpaWACCM8 = REFORM(tspcWACCM[76,8,47,0:80])
tmpaWACCM9 = REFORM(tspcWACCM[76,9,47,0:80])
tmpaWACCM10 = REFORM(tspcWACCM[76,10,47,0:80])
tmpaWACCM11 = REFORM(tspcWACCM[76,11,47,0:80])
tmpaWACCM12 = REFORM(tspcWACCM[76,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1, /ylog, /xlog, xrange=[1.E-11,6.E-04], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Westward WN 5 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 5 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(tspcWACCM[66,1,47,0:80])
;tmpaWACCM2 = REFORM(tspcWACCM[66,2,47,0:80])
;tmpaWACCM3 = REFORM(tspcWACCM[66,3,47,0:80])
;tmpaWACCM4 = REFORM(tspcWACCM[66,4,47,0:80])
;tmpaWACCM5 = REFORM(tspcWACCM[66,5,47,0:80])
;tmpaWACCM6 = REFORM(tspcWACCM[66,6,47,0:80])
;tmpaWACCM7 = REFORM(tspcWACCM[66,7,47,0:80])
;tmpaWACCM8 = REFORM(tspcWACCM[66,8,47,0:80])
;tmpaWACCM9 = REFORM(tspcWACCM[66,9,47,0:80])
;tmpaWACCM10 = REFORM(tspcWACCM[66,10,47,0:80])
;tmpaWACCM11 = REFORM(tspcWACCM[66,11,47,0:80])
;tmpaWACCM12 = REFORM(tspcWACCM[66,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-11,1.E-04], xstyle = 1,$
;         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Eastward WN 5 Frqs 1-12 1993 March Mean Equator',$
;         xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;         charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind westward wavenumber 5 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(uspcWACCM[76,1,47,0:80])
tmpaWACCM2 = REFORM(uspcWACCM[76,2,47,0:80])
tmpaWACCM3 = REFORM(uspcWACCM[76,3,47,0:80])
tmpaWACCM4 = REFORM(uspcWACCM[76,4,47,0:80])
tmpaWACCM5 = REFORM(uspcWACCM[76,5,47,0:80])
tmpaWACCM6 = REFORM(uspcWACCM[76,6,47,0:80])
tmpaWACCM7 = REFORM(uspcWACCM[76,7,47,0:80])
tmpaWACCM8 = REFORM(uspcWACCM[76,8,47,0:80])
tmpaWACCM9 = REFORM(uspcWACCM[76,9,47,0:80])
tmpaWACCM10 = REFORM(uspcWACCM[76,10,47,0:80])
tmpaWACCM11 = REFORM(uspcWACCM[76,11,47,0:80])
tmpaWACCM12 = REFORM(uspcWACCM[76,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.0], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Westward WN 5 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind eastward wavenumber 5 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(uspcWACCM[66,1,47,0:80])
;tmpaWACCM2 = REFORM(uspcWACCM[66,2,47,0:80])
;tmpaWACCM3 = REFORM(uspcWACCM[66,3,47,0:80])
;tmpaWACCM4 = REFORM(uspcWACCM[66,4,47,0:80])
;tmpaWACCM5 = REFORM(uspcWACCM[66,5,47,0:80])
;tmpaWACCM6 = REFORM(uspcWACCM[66,6,47,0:80])
;tmpaWACCM7 = REFORM(uspcWACCM[66,7,47,0:80])
;tmpaWACCM8 = REFORM(uspcWACCM[66,8,47,0:80])
;tmpaWACCM9 = REFORM(uspcWACCM[66,9,47,0:80])
;tmpaWACCM10 = REFORM(uspcWACCM[66,10,47,0:80])
;tmpaWACCM11 = REFORM(uspcWACCM[66,11,47,0:80])
;tmpaWACCM12 = REFORM(uspcWACCM[66,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Eastward WN 5 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM meridional wind westward wavenumber 5 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(vspcWACCM[76,1,47,0:80])
tmpaWACCM2 = REFORM(vspcWACCM[76,2,47,0:80])
tmpaWACCM3 = REFORM(vspcWACCM[76,3,47,0:80])
tmpaWACCM4 = REFORM(vspcWACCM[76,4,47,0:80])
tmpaWACCM5 = REFORM(vspcWACCM[76,5,47,0:80])
tmpaWACCM6 = REFORM(vspcWACCM[76,6,47,0:80])
tmpaWACCM7 = REFORM(vspcWACCM[76,7,47,0:80])
tmpaWACCM8 = REFORM(vspcWACCM[76,8,47,0:80])
tmpaWACCM9 = REFORM(vspcWACCM[76,9,47,0:80])
tmpaWACCM10 = REFORM(vspcWACCM[76,10,47,0:80])
tmpaWACCM11 = REFORM(vspcWACCM[76,11,47,0:80])
tmpaWACCM12 = REFORM(vspcWACCM[76,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Westward WN 5 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 5 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(vspcWACCM[66,1,47,0:80])
;tmpaWACCM2 = REFORM(vspcWACCM[66,2,47,0:80])
;tmpaWACCM3 = REFORM(vspcWACCM[66,3,47,0:80])
;tmpaWACCM4 = REFORM(vspcWACCM[66,4,47,0:80])
;tmpaWACCM5 = REFORM(vspcWACCM[66,5,47,0:80])
;tmpaWACCM6 = REFORM(vspcWACCM[66,6,47,0:80])
;tmpaWACCM7 = REFORM(vspcWACCM[66,7,47,0:80])
;tmpaWACCM8 = REFORM(vspcWACCM[66,8,47,0:80])
;tmpaWACCM9 = REFORM(vspcWACCM[66,9,47,0:80])
;tmpaWACCM10 = REFORM(vspcWACCM[66,10,47,0:80])
;tmpaWACCM11 = REFORM(vspcWACCM[66,11,47,0:80])
;tmpaWACCM12 = REFORM(vspcWACCM[66,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Eastward WN 5 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5

DEVICE, /CLOSE

SET_PLOT, 'x'

SET_PLOT, 'PS'

psfile = '/local/i/joemci/SW/WAM/tuvamp_March_Mean_WN6Frq1to12W_Prof_WACCM_dens.ps'

DEVICE, /COLOR, /LAND, FILENAME = psfile
LOADCT, 39, ncolors = 10
;
; WACCM temperature westward wavenumber 6 and zonal frequencies 1-12 
;
tmpaWACCM1 = REFORM(tspcWACCM[77,1,47,0:80])
tmpaWACCM2 = REFORM(tspcWACCM[77,2,47,0:80])
tmpaWACCM3 = REFORM(tspcWACCM[77,3,47,0:80])
tmpaWACCM4 = REFORM(tspcWACCM[77,4,47,0:80])
tmpaWACCM5 = REFORM(tspcWACCM[77,5,47,0:80])
tmpaWACCM6 = REFORM(tspcWACCM[77,6,47,0:80])
tmpaWACCM7 = REFORM(tspcWACCM[77,7,47,0:80])
tmpaWACCM8 = REFORM(tspcWACCM[77,8,47,0:80])
tmpaWACCM9 = REFORM(tspcWACCM[77,9,47,0:80])
tmpaWACCM10 = REFORM(tspcWACCM[77,10,47,0:80])
tmpaWACCM11 = REFORM(tspcWACCM[77,11,47,0:80])
tmpaWACCM12 = REFORM(tspcWACCM[77,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1, /ylog, /xlog, xrange=[1.E-11,6.E-04], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Westward WN 6 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 6 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(tspcWACCM[65,1,47,0:80])
;tmpaWACCM2 = REFORM(tspcWACCM[65,2,47,0:80])
;tmpaWACCM3 = REFORM(tspcWACCM[65,3,47,0:80])
;tmpaWACCM4 = REFORM(tspcWACCM[65,4,47,0:80])
;tmpaWACCM5 = REFORM(tspcWACCM[65,5,47,0:80])
;tmpaWACCM6 = REFORM(tspcWACCM[65,6,47,0:80])
;tmpaWACCM7 = REFORM(tspcWACCM[65,7,47,0:80])
;tmpaWACCM8 = REFORM(tspcWACCM[65,8,47,0:80])
;tmpaWACCM9 = REFORM(tspcWACCM[65,9,47,0:80])
;tmpaWACCM10 = REFORM(tspcWACCM[65,10,47,0:80])
;tmpaWACCM11 = REFORM(tspcWACCM[65,11,47,0:80])
;tmpaWACCM12 = REFORM(tspcWACCM[65,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-11,1.E-03], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Eastward WN 6 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind westward wavenumber 6 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(uspcWACCM[77,1,47,0:80])
tmpaWACCM2 = REFORM(uspcWACCM[77,2,47,0:80])
tmpaWACCM3 = REFORM(uspcWACCM[77,3,47,0:80])
tmpaWACCM4 = REFORM(uspcWACCM[77,4,47,0:80])
tmpaWACCM5 = REFORM(uspcWACCM[77,5,47,0:80])
tmpaWACCM6 = REFORM(uspcWACCM[77,6,47,0:80])
tmpaWACCM7 = REFORM(uspcWACCM[77,7,47,0:80])
tmpaWACCM8 = REFORM(uspcWACCM[77,8,47,0:80])
tmpaWACCM9 = REFORM(uspcWACCM[77,9,47,0:80])
tmpaWACCM10 = REFORM(uspcWACCM[77,10,47,0:80])
tmpaWACCM11 = REFORM(uspcWACCM[77,11,47,0:80])
tmpaWACCM12 = REFORM(uspcWACCM[77,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.0], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Westward WN 6 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind eastward wavenumber 6 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(uspcWACCM[65,1,47,0:80])
;tmpaWACCM2 = REFORM(uspcWACCM[65,2,47,0:80])
;tmpaWACCM3 = REFORM(uspcWACCM[65,3,47,0:80])
;tmpaWACCM4 = REFORM(uspcWACCM[65,4,47,0:80])
;tmpaWACCM5 = REFORM(uspcWACCM[65,5,47,0:80])
;tmpaWACCM6 = REFORM(uspcWACCM[65,6,47,0:80])
;tmpaWACCM7 = REFORM(uspcWACCM[65,7,47,0:80])
;tmpaWACCM8 = REFORM(uspcWACCM[65,8,47,0:80])
;tmpaWACCM9 = REFORM(uspcWACCM[65,9,47,0:80])
;tmpaWACCM10 = REFORM(uspcWACCM[65,10,47,0:80])
;tmpaWACCM11 = REFORM(uspcWACCM[65,11,47,0:80])
;tmpaWACCM12 = REFORM(uspcWACCM[65,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Eastward WN 6 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM meridional wind westward wavenumber 6 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(vspcWACCM[77,1,47,0:80])
tmpaWACCM2 = REFORM(vspcWACCM[77,2,47,0:80])
tmpaWACCM3 = REFORM(vspcWACCM[77,3,47,0:80])
tmpaWACCM4 = REFORM(vspcWACCM[77,4,47,0:80])
tmpaWACCM5 = REFORM(vspcWACCM[77,5,47,0:80])
tmpaWACCM6 = REFORM(vspcWACCM[77,6,47,0:80])
tmpaWACCM7 = REFORM(vspcWACCM[77,7,47,0:80])
tmpaWACCM8 = REFORM(vspcWACCM[77,8,47,0:80])
tmpaWACCM9 = REFORM(vspcWACCM[77,9,47,0:80])
tmpaWACCM10 = REFORM(vspcWACCM[77,10,47,0:80])
tmpaWACCM11 = REFORM(vspcWACCM[77,11,47,0:80])
tmpaWACCM12 = REFORM(vspcWACCM[77,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Westward WN 6 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 6 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(vspcWACCM[65,1,47,0:80])
;tmpaWACCM2 = REFORM(vspcWACCM[65,2,47,0:80])
;tmpaWACCM3 = REFORM(vspcWACCM[65,3,47,0:80])
;tmpaWACCM4 = REFORM(vspcWACCM[65,4,47,0:80])
;tmpaWACCM5 = REFORM(vspcWACCM[65,5,47,0:80])
;tmpaWACCM6 = REFORM(vspcWACCM[65,6,47,0:80])
;tmpaWACCM7 = REFORM(vspcWACCM[65,7,47,0:80])
;tmpaWACCM8 = REFORM(vspcWACCM[65,8,47,0:80])
;tmpaWACCM9 = REFORM(vspcWACCM[65,9,47,0:80])
;tmpaWACCM10 = REFORM(vspcWACCM[65,10,47,0:80])
;tmpaWACCM11 = REFORM(vspcWACCM[65,11,47,0:80])
;tmpaWACCM12 = REFORM(vspcWACCM[65,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Eastward WN 6 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5

DEVICE, /CLOSE

SET_PLOT, 'x'

SET_PLOT, 'PS'

psfile = '/local/i/joemci/SW/WAM/tuvamp_March_Mean_WN7Frq1to12W_Prof_WACCM_dens.ps'

DEVICE, /COLOR, /LAND, FILENAME = psfile
LOADCT, 39, ncolors = 10
;
; WACCM temperature westward wavenumber 7 and zonal frequencies 1-12 
;
tmpaWACCM1 = REFORM(tspcWACCM[78,1,47,0:80])
tmpaWACCM2 = REFORM(tspcWACCM[78,2,47,0:80])
tmpaWACCM3 = REFORM(tspcWACCM[78,3,47,0:80])
tmpaWACCM4 = REFORM(tspcWACCM[78,4,47,0:80])
tmpaWACCM5 = REFORM(tspcWACCM[78,5,47,0:80])
tmpaWACCM6 = REFORM(tspcWACCM[78,6,47,0:80])
tmpaWACCM7 = REFORM(tspcWACCM[78,7,47,0:80])
tmpaWACCM8 = REFORM(tspcWACCM[78,8,47,0:80])
tmpaWACCM9 = REFORM(tspcWACCM[78,9,47,0:80])
tmpaWACCM10 = REFORM(tspcWACCM[78,10,47,0:80])
tmpaWACCM11 = REFORM(tspcWACCM[78,11,47,0:80])
tmpaWACCM12 = REFORM(tspcWACCM[78,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1, /ylog, /xlog, xrange=[1.E-11,6.E-04], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Westward WN 7 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 7 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(tspcWACCM[64,1,47,0:80])
;tmpaWACCM2 = REFORM(tspcWACCM[64,2,47,0:80])
;tmpaWACCM3 = REFORM(tspcWACCM[64,3,47,0:80])
;tmpaWACCM4 = REFORM(tspcWACCM[64,4,47,0:80])
;tmpaWACCM5 = REFORM(tspcWACCM[64,5,47,0:80])
;tmpaWACCM6 = REFORM(tspcWACCM[64,6,47,0:80])
;tmpaWACCM7 = REFORM(tspcWACCM[64,7,47,0:80])
;tmpaWACCM8 = REFORM(tspcWACCM[64,8,47,0:80])
;tmpaWACCM9 = REFORM(tspcWACCM[64,9,47,0:80])
;tmpaWACCM10 = REFORM(tspcWACCM[64,10,47,0:80])
;tmpaWACCM11 = REFORM(tspcWACCM[64,11,47,0:80])
;tmpaWACCM12 = REFORM(tspcWACCM[64,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-11,1.E-03], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Eastward WN 7 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind westward wavenumber 7 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(uspcWACCM[78,1,47,0:80])
tmpaWACCM2 = REFORM(uspcWACCM[78,2,47,0:80])
tmpaWACCM3 = REFORM(uspcWACCM[78,3,47,0:80])
tmpaWACCM4 = REFORM(uspcWACCM[78,4,47,0:80])
tmpaWACCM5 = REFORM(uspcWACCM[78,5,47,0:80])
tmpaWACCM6 = REFORM(uspcWACCM[78,6,47,0:80])
tmpaWACCM7 = REFORM(uspcWACCM[78,7,47,0:80])
tmpaWACCM8 = REFORM(uspcWACCM[78,8,47,0:80])
tmpaWACCM9 = REFORM(uspcWACCM[78,9,47,0:80])
tmpaWACCM10 = REFORM(uspcWACCM[78,10,47,0:80])
tmpaWACCM11 = REFORM(uspcWACCM[78,11,47,0:80])
tmpaWACCM12 = REFORM(uspcWACCM[78,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Westward WN 7 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind eastward wavenumber 7 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(uspcWACCM[64,1,47,0:80])
;tmpaWACCM2 = REFORM(uspcWACCM[64,2,47,0:80])
;tmpaWACCM3 = REFORM(uspcWACCM[64,3,47,0:80])
;tmpaWACCM4 = REFORM(uspcWACCM[64,4,47,0:80])
;tmpaWACCM5 = REFORM(uspcWACCM[64,5,47,0:80])
;tmpaWACCM6 = REFORM(uspcWACCM[64,6,47,0:80])
;tmpaWACCM7 = REFORM(uspcWACCM[64,7,47,0:80])
;tmpaWACCM8 = REFORM(uspcWACCM[64,8,47,0:80])
;tmpaWACCM9 = REFORM(uspcWACCM[64,9,47,0:80])
;tmpaWACCM10 = REFORM(uspcWACCM[64,10,47,0:80])
;tmpaWACCM11 = REFORM(uspcWACCM[64,11,47,0:80])
;tmpaWACCM12 = REFORM(uspcWACCM[64,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Eastward WN 7 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM meridional wind westward wavenumber 7 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(vspcWACCM[78,1,47,0:80])
tmpaWACCM2 = REFORM(vspcWACCM[78,2,47,0:80])
tmpaWACCM3 = REFORM(vspcWACCM[78,3,47,0:80])
tmpaWACCM4 = REFORM(vspcWACCM[78,4,47,0:80])
tmpaWACCM5 = REFORM(vspcWACCM[78,5,47,0:80])
tmpaWACCM6 = REFORM(vspcWACCM[78,6,47,0:80])
tmpaWACCM7 = REFORM(vspcWACCM[78,7,47,0:80])
tmpaWACCM8 = REFORM(vspcWACCM[78,8,47,0:80])
tmpaWACCM9 = REFORM(vspcWACCM[78,9,47,0:80])
tmpaWACCM10 = REFORM(vspcWACCM[78,10,47,0:80])
tmpaWACCM11 = REFORM(vspcWACCM[78,11,47,0:80])
tmpaWACCM12 = REFORM(vspcWACCM[78,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Westward WN 7 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 7 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(vspcWACCM[64,1,47,0:80])
;tmpaWACCM2 = REFORM(vspcWACCM[64,2,47,0:80])
;tmpaWACCM3 = REFORM(vspcWACCM[64,3,47,0:80])
;tmpaWACCM4 = REFORM(vspcWACCM[64,4,47,0:80])
;tmpaWACCM5 = REFORM(vspcWACCM[64,5,47,0:80])
;tmpaWACCM6 = REFORM(vspcWACCM[64,6,47,0:80])
;tmpaWACCM7 = REFORM(vspcWACCM[64,7,47,0:80])
;tmpaWACCM8 = REFORM(vspcWACCM[64,8,47,0:80])
;tmpaWACCM9 = REFORM(vspcWACCM[64,9,47,0:80])
;tmpaWACCM10 = REFORM(vspcWACCM[64,10,47,0:80])
;tmpaWACCM11 = REFORM(vspcWACCM[64,11,47,0:80])
;tmpaWACCM12 = REFORM(vspcWACCM[64,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Eastward WN 7 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5

DEVICE, /CLOSE

SET_PLOT, 'x'

SET_PLOT, 'PS'

psfile = '/local/i/joemci/SW/WAM/tuvamp_March_Mean_WN8Frq1to12W_Prof_WACCM_dens.ps'

DEVICE, /COLOR, /LAND, FILENAME = psfile
LOADCT, 39, ncolors = 10
;
; WACCM temperature westward wavenumber 8 and zonal frequencies 1-12 
;
tmpaWACCM1 = REFORM(tspcWACCM[79,1,47,0:80])
tmpaWACCM2 = REFORM(tspcWACCM[79,2,47,0:80])
tmpaWACCM3 = REFORM(tspcWACCM[79,3,47,0:80])
tmpaWACCM4 = REFORM(tspcWACCM[79,4,47,0:80])
tmpaWACCM5 = REFORM(tspcWACCM[79,5,47,0:80])
tmpaWACCM6 = REFORM(tspcWACCM[79,6,47,0:80])
tmpaWACCM7 = REFORM(tspcWACCM[79,7,47,0:80])
tmpaWACCM8 = REFORM(tspcWACCM[79,8,47,0:80])
tmpaWACCM9 = REFORM(tspcWACCM[79,9,47,0:80])
tmpaWACCM10 = REFORM(tspcWACCM[79,10,47,0:80])
tmpaWACCM11 = REFORM(tspcWACCM[79,11,47,0:80])
tmpaWACCM12 = REFORM(tspcWACCM[79,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1, /ylog, /xlog, xrange=[1.E-11,6.E-04], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Westward WN 8 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 8 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(tspcWACCM[63,1,47,0:80])
;tmpaWACCM2 = REFORM(tspcWACCM[63,2,47,0:80])
;tmpaWACCM3 = REFORM(tspcWACCM[63,3,47,0:80])
;tmpaWACCM4 = REFORM(tspcWACCM[63,4,47,0:80])
;tmpaWACCM5 = REFORM(tspcWACCM[63,5,47,0:80])
;tmpaWACCM6 = REFORM(tspcWACCM[63,6,47,0:80])
;tmpaWACCM7 = REFORM(tspcWACCM[63,7,47,0:80])
;tmpaWACCM8 = REFORM(tspcWACCM[63,8,47,0:80])
;tmpaWACCM9 = REFORM(tspcWACCM[63,9,47,0:80])
;tmpaWACCM10 = REFORM(tspcWACCM[63,10,47,0:80])
;tmpaWACCM11 = REFORM(tspcWACCM[63,11,47,0:80])
;tmpaWACCM12 = REFORM(tspcWACCM[63,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-11,1.E-03], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Eastward WN 8 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind westward wavenumber 8 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(uspcWACCM[79,1,47,0:80])
tmpaWACCM2 = REFORM(uspcWACCM[79,2,47,0:80])
tmpaWACCM3 = REFORM(uspcWACCM[79,3,47,0:80])
tmpaWACCM4 = REFORM(uspcWACCM[79,4,47,0:80])
tmpaWACCM5 = REFORM(uspcWACCM[79,5,47,0:80])
tmpaWACCM6 = REFORM(uspcWACCM[79,6,47,0:80])
tmpaWACCM7 = REFORM(uspcWACCM[79,7,47,0:80])
tmpaWACCM8 = REFORM(uspcWACCM[79,8,47,0:80])
tmpaWACCM9 = REFORM(uspcWACCM[79,9,47,0:80])
tmpaWACCM10 = REFORM(uspcWACCM[79,10,47,0:80])
tmpaWACCM11 = REFORM(uspcWACCM[79,11,47,0:80])
tmpaWACCM12 = REFORM(uspcWACCM[79,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Westward WN 8 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind eastward wavenumber 8 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(uspcWACCM[63,1,47,0:80])
;tmpaWACCM2 = REFORM(uspcWACCM[63,2,47,0:80])
;tmpaWACCM3 = REFORM(uspcWACCM[63,3,47,0:80])
;tmpaWACCM4 = REFORM(uspcWACCM[63,4,47,0:80])
;tmpaWACCM5 = REFORM(uspcWACCM[63,5,47,0:80])
;tmpaWACCM6 = REFORM(uspcWACCM[63,6,47,0:80])
;tmpaWACCM7 = REFORM(uspcWACCM[63,7,47,0:80])
;tmpaWACCM8 = REFORM(uspcWACCM[63,8,47,0:80])
;tmpaWACCM9 = REFORM(uspcWACCM[63,9,47,0:80])
;tmpaWACCM10 = REFORM(uspcWACCM[63,10,47,0:80])
;tmpaWACCM11 = REFORM(uspcWACCM[63,11,47,0:80])
;tmpaWACCM12 = REFORM(uspcWACCM[63,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Eastward WN 8 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM meridional wind westward wavenumber 8 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(vspcWACCM[79,1,47,0:80])
tmpaWACCM2 = REFORM(vspcWACCM[79,2,47,0:80])
tmpaWACCM3 = REFORM(vspcWACCM[79,3,47,0:80])
tmpaWACCM4 = REFORM(vspcWACCM[79,4,47,0:80])
tmpaWACCM5 = REFORM(vspcWACCM[79,5,47,0:80])
tmpaWACCM6 = REFORM(vspcWACCM[79,6,47,0:80])
tmpaWACCM7 = REFORM(vspcWACCM[79,7,47,0:80])
tmpaWACCM8 = REFORM(vspcWACCM[79,8,47,0:80])
tmpaWACCM9 = REFORM(vspcWACCM[79,9,47,0:80])
tmpaWACCM10 = REFORM(vspcWACCM[79,10,47,0:80])
tmpaWACCM11 = REFORM(vspcWACCM[79,11,47,0:80])
tmpaWACCM12 = REFORM(vspcWACCM[79,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Westward WN 8 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 8 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(vspcWACCM[63,1,47,0:80])
;tmpaWACCM2 = REFORM(vspcWACCM[63,2,47,0:80])
;tmpaWACCM3 = REFORM(vspcWACCM[63,3,47,0:80])
;tmpaWACCM4 = REFORM(vspcWACCM[63,4,47,0:80])
;tmpaWACCM5 = REFORM(vspcWACCM[63,5,47,0:80])
;tmpaWACCM6 = REFORM(vspcWACCM[63,6,47,0:80])
;tmpaWACCM7 = REFORM(vspcWACCM[63,7,47,0:80])
;tmpaWACCM8 = REFORM(vspcWACCM[63,8,47,0:80])
;tmpaWACCM9 = REFORM(vspcWACCM[63,9,47,0:80])
;tmpaWACCM10 = REFORM(vspcWACCM[63,10,47,0:80])
;tmpaWACCM11 = REFORM(vspcWACCM[63,11,47,0:80])
;tmpaWACCM12 = REFORM(vspcWACCM[63,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Eastward WN 8 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5

DEVICE, /CLOSE

SET_PLOT, 'x'

SET_PLOT, 'PS'

psfile = '/local/i/joemci/SW/WAM/tuvamp_March_Mean_WN9Frq1to12W_Prof_WACCM_dens.ps'

DEVICE, /COLOR, /LAND, FILENAME = psfile
LOADCT, 39, ncolors = 10
;
; WACCM temperature westward wavenumber 9 and zonal frequencies 1-12 
;
tmpaWACCM1 = REFORM(tspcWACCM[80,1,47,0:80])
tmpaWACCM2 = REFORM(tspcWACCM[80,2,47,0:80])
tmpaWACCM3 = REFORM(tspcWACCM[80,3,47,0:80])
tmpaWACCM4 = REFORM(tspcWACCM[80,4,47,0:80])
tmpaWACCM5 = REFORM(tspcWACCM[80,5,47,0:80])
tmpaWACCM6 = REFORM(tspcWACCM[80,6,47,0:80])
tmpaWACCM7 = REFORM(tspcWACCM[80,7,47,0:80])
tmpaWACCM8 = REFORM(tspcWACCM[80,8,47,0:80])
tmpaWACCM9 = REFORM(tspcWACCM[80,9,47,0:80])
tmpaWACCM10 = REFORM(tspcWACCM[80,10,47,0:80])
tmpaWACCM11 = REFORM(tspcWACCM[80,11,47,0:80])
tmpaWACCM12 = REFORM(tspcWACCM[80,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1, /ylog, /xlog, xrange=[1.E-11,6.E-04], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Westward WN 9 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 9 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(tspcWACCM[62,1,47,0:80])
;tmpaWACCM2 = REFORM(tspcWACCM[62,2,47,0:80])
;tmpaWACCM3 = REFORM(tspcWACCM[62,3,47,0:80])
;tmpaWACCM4 = REFORM(tspcWACCM[62,4,47,0:80])
;tmpaWACCM5 = REFORM(tspcWACCM[62,5,47,0:80])
;tmpaWACCM6 = REFORM(tspcWACCM[62,6,47,0:80])
;tmpaWACCM7 = REFORM(tspcWACCM[62,7,47,0:80])
;tmpaWACCM8 = REFORM(tspcWACCM[62,8,47,0:80])
;tmpaWACCM9 = REFORM(tspcWACCM[62,9,47,0:80])
;tmpaWACCM10 = REFORM(tspcWACCM[62,10,47,0:80])
;tmpaWACCM11 = REFORM(tspcWACCM[62,11,47,0:80])
;tmpaWACCM12 = REFORM(tspcWACCM[62,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-11,1.E-04], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Eastward WN 9 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind westward wavenumber 9 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(uspcWACCM[80,1,47,0:80])
tmpaWACCM2 = REFORM(uspcWACCM[80,2,47,0:80])
tmpaWACCM3 = REFORM(uspcWACCM[80,3,47,0:80])
tmpaWACCM4 = REFORM(uspcWACCM[80,4,47,0:80])
tmpaWACCM5 = REFORM(uspcWACCM[80,5,47,0:80])
tmpaWACCM6 = REFORM(uspcWACCM[80,6,47,0:80])
tmpaWACCM7 = REFORM(uspcWACCM[80,7,47,0:80])
tmpaWACCM8 = REFORM(uspcWACCM[80,8,47,0:80])
tmpaWACCM9 = REFORM(uspcWACCM[80,9,47,0:80])
tmpaWACCM10 = REFORM(uspcWACCM[80,10,47,0:80])
tmpaWACCM11 = REFORM(uspcWACCM[80,11,47,0:80])
tmpaWACCM12 = REFORM(uspcWACCM[80,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Westward WN 9 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind eastward wavenumber 9 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(uspcWACCM[62,1,47,0:80])
;tmpaWACCM2 = REFORM(uspcWACCM[62,2,47,0:80])
;tmpaWACCM3 = REFORM(uspcWACCM[62,3,47,0:80])
;tmpaWACCM4 = REFORM(uspcWACCM[62,4,47,0:80])
;tmpaWACCM5 = REFORM(uspcWACCM[62,5,47,0:80])
;tmpaWACCM6 = REFORM(uspcWACCM[62,6,47,0:80])
;tmpaWACCM7 = REFORM(uspcWACCM[62,7,47,0:80])
;tmpaWACCM8 = REFORM(uspcWACCM[62,8,47,0:80])
;tmpaWACCM9 = REFORM(uspcWACCM[62,9,47,0:80])
;tmpaWACCM10 = REFORM(uspcWACCM[62,10,47,0:80])
;tmpaWACCM11 = REFORM(uspcWACCM[62,11,47,0:80])
;tmpaWACCM12 = REFORM(uspcWACCM[62,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Eastward WN 9 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM meridional wind westward wavenumber 9 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(vspcWACCM[80,1,47,0:80])
tmpaWACCM2 = REFORM(vspcWACCM[80,2,47,0:80])
tmpaWACCM3 = REFORM(vspcWACCM[80,3,47,0:80])
tmpaWACCM4 = REFORM(vspcWACCM[80,4,47,0:80])
tmpaWACCM5 = REFORM(vspcWACCM[80,5,47,0:80])
tmpaWACCM6 = REFORM(vspcWACCM[80,6,47,0:80])
tmpaWACCM7 = REFORM(vspcWACCM[80,7,47,0:80])
tmpaWACCM8 = REFORM(vspcWACCM[80,8,47,0:80])
tmpaWACCM9 = REFORM(vspcWACCM[80,9,47,0:80])
tmpaWACCM10 = REFORM(vspcWACCM[80,10,47,0:80])
tmpaWACCM11 = REFORM(vspcWACCM[80,11,47,0:80])
tmpaWACCM12 = REFORM(vspcWACCM[80,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Westward WN 9 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 9 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(vspcWACCM[62,1,47,0:80])
;tmpaWACCM2 = REFORM(vspcWACCM[62,2,47,0:80])
;tmpaWACCM3 = REFORM(vspcWACCM[62,3,47,0:80])
;tmpaWACCM4 = REFORM(vspcWACCM[62,4,47,0:80])
;tmpaWACCM5 = REFORM(vspcWACCM[62,5,47,0:80])
;tmpaWACCM6 = REFORM(vspcWACCM[62,6,47,0:80])
;tmpaWACCM7 = REFORM(vspcWACCM[62,7,47,0:80])
;tmpaWACCM8 = REFORM(vspcWACCM[62,8,47,0:80])
;tmpaWACCM9 = REFORM(vspcWACCM[62,9,47,0:80])
;tmpaWACCM10 = REFORM(vspcWACCM[62,10,47,0:80])
;tmpaWACCM11 = REFORM(vspcWACCM[62,11,47,0:80])
;tmpaWACCM12 = REFORM(vspcWACCM[62,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Eastward WN 9 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5

DEVICE, /CLOSE

SET_PLOT, 'x'

SET_PLOT, 'PS'

psfile = '/local/i/joemci/SW/WAM/tuvamp_March_Mean_WN10Frq1to12W_Prof_WACCM_dens.ps'

DEVICE, /COLOR, /LAND, FILENAME = psfile
LOADCT, 39, ncolors = 10
;
; WACCM temperature westward wavenumber 10 and zonal frequencies 1-12 
;
tmpaWACCM1 = REFORM(tspcWACCM[81,1,47,0:80])
tmpaWACCM2 = REFORM(tspcWACCM[81,2,47,0:80])
tmpaWACCM3 = REFORM(tspcWACCM[81,3,47,0:80])
tmpaWACCM4 = REFORM(tspcWACCM[81,4,47,0:80])
tmpaWACCM5 = REFORM(tspcWACCM[81,5,47,0:80])
tmpaWACCM6 = REFORM(tspcWACCM[81,6,47,0:80])
tmpaWACCM7 = REFORM(tspcWACCM[81,7,47,0:80])
tmpaWACCM8 = REFORM(tspcWACCM[81,8,47,0:80])
tmpaWACCM9 = REFORM(tspcWACCM[81,9,47,0:80])
tmpaWACCM10 = REFORM(tspcWACCM[81,10,47,0:80])
tmpaWACCM11 = REFORM(tspcWACCM[81,11,47,0:80])
tmpaWACCM12 = REFORM(tspcWACCM[81,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1, /ylog, /xlog, xrange=[1.E-11,6.E-04], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Westward WN 10 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 10 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(tspcWACCM[61,1,47,0:80])
;tmpaWACCM2 = REFORM(tspcWACCM[61,2,47,0:80])
;tmpaWACCM3 = REFORM(tspcWACCM[61,3,47,0:80])
;tmpaWACCM4 = REFORM(tspcWACCM[61,4,47,0:80])
;tmpaWACCM5 = REFORM(tspcWACCM[61,5,47,0:80])
;tmpaWACCM6 = REFORM(tspcWACCM[61,6,47,0:80])
;tmpaWACCM7 = REFORM(tspcWACCM[61,7,47,0:80])
;tmpaWACCM8 = REFORM(tspcWACCM[61,8,47,0:80])
;tmpaWACCM9 = REFORM(tspcWACCM[61,9,47,0:80])
;tmpaWACCM10 = REFORM(tspcWACCM[61,10,47,0:80])
;tmpaWACCM11 = REFORM(tspcWACCM[61,11,47,0:80])
;tmpaWACCM12 = REFORM(tspcWACCM[61,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-11,1.E-04], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Eastward WN 10 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind westward wavenumber 10 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(uspcWACCM[81,1,47,0:80])
tmpaWACCM2 = REFORM(uspcWACCM[81,2,47,0:80])
tmpaWACCM3 = REFORM(uspcWACCM[81,3,47,0:80])
tmpaWACCM4 = REFORM(uspcWACCM[81,4,47,0:80])
tmpaWACCM5 = REFORM(uspcWACCM[81,5,47,0:80])
tmpaWACCM6 = REFORM(uspcWACCM[81,6,47,0:80])
tmpaWACCM7 = REFORM(uspcWACCM[81,7,47,0:80])
tmpaWACCM8 = REFORM(uspcWACCM[81,8,47,0:80])
tmpaWACCM9 = REFORM(uspcWACCM[81,9,47,0:80])
tmpaWACCM10 = REFORM(uspcWACCM[81,10,47,0:80])
tmpaWACCM11 = REFORM(uspcWACCM[81,11,47,0:80])
tmpaWACCM12 = REFORM(uspcWACCM[81,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Westward WN 10 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind eastward wavenumber 10 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(uspcWACCM[61,1,47,0:80])
;tmpaWACCM2 = REFORM(uspcWACCM[61,2,47,0:80])
;tmpaWACCM3 = REFORM(uspcWACCM[61,3,47,0:80])
;tmpaWACCM4 = REFORM(uspcWACCM[61,4,47,0:80])
;tmpaWACCM5 = REFORM(uspcWACCM[61,5,47,0:80])
;tmpaWACCM6 = REFORM(uspcWACCM[61,6,47,0:80])
;tmpaWACCM7 = REFORM(uspcWACCM[61,7,47,0:80])
;tmpaWACCM8 = REFORM(uspcWACCM[61,8,47,0:80])
;tmpaWACCM9 = REFORM(uspcWACCM[61,9,47,0:80])
;tmpaWACCM10 = REFORM(uspcWACCM[61,10,47,0:80])
;tmpaWACCM11 = REFORM(uspcWACCM[61,11,47,0:80])
;tmpaWACCM12 = REFORM(uspcWACCM[61,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Eastward WN 10 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM meridional wind westward wavenumber 10 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(vspcWACCM[81,1,47,0:80])
tmpaWACCM2 = REFORM(vspcWACCM[81,2,47,0:80])
tmpaWACCM3 = REFORM(vspcWACCM[81,3,47,0:80])
tmpaWACCM4 = REFORM(vspcWACCM[81,4,47,0:80])
tmpaWACCM5 = REFORM(vspcWACCM[81,5,47,0:80])
tmpaWACCM6 = REFORM(vspcWACCM[81,6,47,0:80])
tmpaWACCM7 = REFORM(vspcWACCM[81,7,47,0:80])
tmpaWACCM8 = REFORM(vspcWACCM[81,8,47,0:80])
tmpaWACCM9 = REFORM(vspcWACCM[81,9,47,0:80])
tmpaWACCM10 = REFORM(vspcWACCM[81,10,47,0:80])
tmpaWACCM11 = REFORM(vspcWACCM[81,11,47,0:80])
tmpaWACCM12 = REFORM(vspcWACCM[81,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Westward WN 10 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 10 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(vspcWACCM[61,1,47,0:80])
;tmpaWACCM2 = REFORM(vspcWACCM[61,2,47,0:80])
;tmpaWACCM3 = REFORM(vspcWACCM[61,3,47,0:80])
;tmpaWACCM4 = REFORM(vspcWACCM[61,4,47,0:80])
;tmpaWACCM5 = REFORM(vspcWACCM[61,5,47,0:80])
;tmpaWACCM6 = REFORM(vspcWACCM[61,6,47,0:80])
;tmpaWACCM7 = REFORM(vspcWACCM[61,7,47,0:80])
;tmpaWACCM8 = REFORM(vspcWACCM[61,8,47,0:80])
;tmpaWACCM9 = REFORM(vspcWACCM[61,9,47,0:80])
;tmpaWACCM10 = REFORM(vspcWACCM[61,10,47,0:80])
;tmpaWACCM11 = REFORM(vspcWACCM[61,11,47,0:80])
;tmpaWACCM12 = REFORM(vspcWACCM[61,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Eastward WN 10 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5

DEVICE, /CLOSE

SET_PLOT, 'x'

SET_PLOT, 'PS'

psfile = '/local/i/joemci/SW/WAM/tuvamp_March_Mean_WN11Frq1to12W_Prof_WACCM_dens.ps'

DEVICE, /COLOR, /LAND, FILENAME = psfile
LOADCT, 39, ncolors = 10
;
; WACCM temperature westward wavenumber 11 and zonal frequencies 1-12 
;
tmpaWACCM1 = REFORM(tspcWACCM[82,1,47,0:80])
tmpaWACCM2 = REFORM(tspcWACCM[82,2,47,0:80])
tmpaWACCM3 = REFORM(tspcWACCM[82,3,47,0:80])
tmpaWACCM4 = REFORM(tspcWACCM[82,4,47,0:80])
tmpaWACCM5 = REFORM(tspcWACCM[82,5,47,0:80])
tmpaWACCM6 = REFORM(tspcWACCM[82,6,47,0:80])
tmpaWACCM7 = REFORM(tspcWACCM[82,7,47,0:80])
tmpaWACCM8 = REFORM(tspcWACCM[82,8,47,0:80])
tmpaWACCM9 = REFORM(tspcWACCM[82,9,47,0:80])
tmpaWACCM10 = REFORM(tspcWACCM[82,10,47,0:80])
tmpaWACCM11 = REFORM(tspcWACCM[82,11,47,0:80])
tmpaWACCM12 = REFORM(tspcWACCM[82,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1, /ylog, /xlog, xrange=[1.E-11,6.E-04], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Westward WN 11 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 11 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(tspcWACCM[60,1,47,0:80])
;tmpaWACCM2 = REFORM(tspcWACCM[60,2,47,0:80])
;tmpaWACCM3 = REFORM(tspcWACCM[60,3,47,0:80])
;tmpaWACCM4 = REFORM(tspcWACCM[60,4,47,0:80])
;tmpaWACCM5 = REFORM(tspcWACCM[60,5,47,0:80])
;tmpaWACCM6 = REFORM(tspcWACCM[60,6,47,0:80])
;tmpaWACCM7 = REFORM(tspcWACCM[60,7,47,0:80])
;tmpaWACCM8 = REFORM(tspcWACCM[60,8,47,0:80])
;tmpaWACCM9 = REFORM(tspcWACCM[60,9,47,0:80])
;tmpaWACCM10 = REFORM(tspcWACCM[60,10,47,0:80])
;tmpaWACCM11 = REFORM(tspcWACCM[60,11,47,0:80])
;tmpaWACCM12 = REFORM(tspcWACCM[60,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-11,1.E-03], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Eastward WN 11 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind westward wavenumber 11 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(uspcWACCM[82,1,47,0:80])
tmpaWACCM2 = REFORM(uspcWACCM[82,2,47,0:80])
tmpaWACCM3 = REFORM(uspcWACCM[82,3,47,0:80])
tmpaWACCM4 = REFORM(uspcWACCM[82,4,47,0:80])
tmpaWACCM5 = REFORM(uspcWACCM[82,5,47,0:80])
tmpaWACCM6 = REFORM(uspcWACCM[82,6,47,0:80])
tmpaWACCM7 = REFORM(uspcWACCM[82,7,47,0:80])
tmpaWACCM8 = REFORM(uspcWACCM[82,8,47,0:80])
tmpaWACCM9 = REFORM(uspcWACCM[82,9,47,0:80])
tmpaWACCM10 = REFORM(uspcWACCM[82,10,47,0:80])
tmpaWACCM11 = REFORM(uspcWACCM[82,11,47,0:80])
tmpaWACCM12 = REFORM(uspcWACCM[82,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Westward WN 11 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind eastward wavenumber 11 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(uspcWACCM[60,1,47,0:80])
;tmpaWACCM2 = REFORM(uspcWACCM[60,2,47,0:80])
;tmpaWACCM3 = REFORM(uspcWACCM[60,3,47,0:80])
;tmpaWACCM4 = REFORM(uspcWACCM[60,4,47,0:80])
;tmpaWACCM5 = REFORM(uspcWACCM[60,5,47,0:80])
;tmpaWACCM6 = REFORM(uspcWACCM[60,6,47,0:80])
;tmpaWACCM7 = REFORM(uspcWACCM[60,7,47,0:80])
;tmpaWACCM8 = REFORM(uspcWACCM[60,8,47,0:80])
;tmpaWACCM9 = REFORM(uspcWACCM[60,9,47,0:80])
;tmpaWACCM10 = REFORM(uspcWACCM[60,10,47,0:80])
;tmpaWACCM11 = REFORM(uspcWACCM[60,11,47,0:80])
;tmpaWACCM12 = REFORM(uspcWACCM[60,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Eastward WN 11 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM meridional wind westward wavenumber 11 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(vspcWACCM[82,1,47,0:80])
tmpaWACCM2 = REFORM(vspcWACCM[82,2,47,0:80])
tmpaWACCM3 = REFORM(vspcWACCM[82,3,47,0:80])
tmpaWACCM4 = REFORM(vspcWACCM[82,4,47,0:80])
tmpaWACCM5 = REFORM(vspcWACCM[82,5,47,0:80])
tmpaWACCM6 = REFORM(vspcWACCM[82,6,47,0:80])
tmpaWACCM7 = REFORM(vspcWACCM[82,7,47,0:80])
tmpaWACCM8 = REFORM(vspcWACCM[82,8,47,0:80])
tmpaWACCM9 = REFORM(vspcWACCM[82,9,47,0:80])
tmpaWACCM10 = REFORM(vspcWACCM[82,10,47,0:80])
tmpaWACCM11 = REFORM(vspcWACCM[82,11,47,0:80])
tmpaWACCM12 = REFORM(vspcWACCM[82,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Westward WN 11 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 11 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(vspcWACCM[60,1,47,0:80])
;tmpaWACCM2 = REFORM(vspcWACCM[60,2,47,0:80])
;tmpaWACCM3 = REFORM(vspcWACCM[60,3,47,0:80])
;tmpaWACCM4 = REFORM(vspcWACCM[60,4,47,0:80])
;tmpaWACCM5 = REFORM(vspcWACCM[60,5,47,0:80])
;tmpaWACCM6 = REFORM(vspcWACCM[60,6,47,0:80])
;tmpaWACCM7 = REFORM(vspcWACCM[60,7,47,0:80])
;tmpaWACCM8 = REFORM(vspcWACCM[60,8,47,0:80])
;tmpaWACCM9 = REFORM(vspcWACCM[60,9,47,0:80])
;tmpaWACCM10 = REFORM(vspcWACCM[60,10,47,0:80])
;tmpaWACCM11 = REFORM(vspcWACCM[60,11,47,0:80])
;tmpaWACCM12 = REFORM(vspcWACCM[60,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Eastward WN 11 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5

DEVICE, /CLOSE

SET_PLOT, 'x'

SET_PLOT, 'PS'

psfile = '/local/i/joemci/SW/WAM/tuvamp_March_Mean_WN12Frq1to12W_Prof_WACCM_dens.ps'

DEVICE, /COLOR, /LAND, FILENAME = psfile
LOADCT, 39, ncolors = 10
;
; WACCM temperature westward wavenumber 12 and zonal frequencies 1-12 
;
tmpaWACCM1 = REFORM(tspcWACCM[83,1,47,0:80])
tmpaWACCM2 = REFORM(tspcWACCM[83,2,47,0:80])
tmpaWACCM3 = REFORM(tspcWACCM[83,3,47,0:80])
tmpaWACCM4 = REFORM(tspcWACCM[83,4,47,0:80])
tmpaWACCM5 = REFORM(tspcWACCM[83,5,47,0:80])
tmpaWACCM6 = REFORM(tspcWACCM[83,6,47,0:80])
tmpaWACCM7 = REFORM(tspcWACCM[83,7,47,0:80])
tmpaWACCM8 = REFORM(tspcWACCM[83,8,47,0:80])
tmpaWACCM9 = REFORM(tspcWACCM[83,9,47,0:80])
tmpaWACCM10 = REFORM(tspcWACCM[83,10,47,0:80])
tmpaWACCM11 = REFORM(tspcWACCM[83,11,47,0:80])
tmpaWACCM12 = REFORM(tspcWACCM[83,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1, /ylog, /xlog, xrange=[1.E-11,6.E-04], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Westward WN 12 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 12 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(tspcWACCM[59,1,47,0:80])
;tmpaWACCM2 = REFORM(tspcWACCM[59,2,47,0:80])
;tmpaWACCM3 = REFORM(tspcWACCM[59,3,47,0:80])
;tmpaWACCM4 = REFORM(tspcWACCM[59,4,47,0:80])
;tmpaWACCM5 = REFORM(tspcWACCM[59,5,47,0:80])
;tmpaWACCM6 = REFORM(tspcWACCM[59,6,47,0:80])
;tmpaWACCM7 = REFORM(tspcWACCM[59,7,47,0:80])
;tmpaWACCM8 = REFORM(tspcWACCM[59,8,47,0:80])
;tmpaWACCM9 = REFORM(tspcWACCM[59,9,47,0:80])
;tmpaWACCM10 = REFORM(tspcWACCM[59,10,47,0:80])
;tmpaWACCM11 = REFORM(tspcWACCM[59,11,47,0:80])
;tmpaWACCM12 = REFORM(tspcWACCM[59,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-11,1.E-04], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Temperature Eastward WN 12 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Temperature Amplitude/Temperature*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind westward wavenumber 11 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(uspcWACCM[83,1,47,0:80])
tmpaWACCM2 = REFORM(uspcWACCM[83,2,47,0:80])
tmpaWACCM3 = REFORM(uspcWACCM[83,3,47,0:80])
tmpaWACCM4 = REFORM(uspcWACCM[83,4,47,0:80])
tmpaWACCM5 = REFORM(uspcWACCM[83,5,47,0:80])
tmpaWACCM6 = REFORM(uspcWACCM[83,6,47,0:80])
tmpaWACCM7 = REFORM(uspcWACCM[83,7,47,0:80])
tmpaWACCM8 = REFORM(uspcWACCM[83,8,47,0:80])
tmpaWACCM9 = REFORM(uspcWACCM[83,9,47,0:80])
tmpaWACCM10 = REFORM(uspcWACCM[83,10,47,0:80])
tmpaWACCM11 = REFORM(uspcWACCM[83,11,47,0:80])
tmpaWACCM12 = REFORM(uspcWACCM[83,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Westward WN 12 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM zonal wind eastward wavenumber 12 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(uspcWACCM[59,1,47,0:80])
;tmpaWACCM2 = REFORM(uspcWACCM[59,2,47,0:80])
;tmpaWACCM3 = REFORM(uspcWACCM[59,3,47,0:80])
;tmpaWACCM4 = REFORM(uspcWACCM[59,4,47,0:80])
;tmpaWACCM5 = REFORM(uspcWACCM[59,5,47,0:80])
;tmpaWACCM6 = REFORM(uspcWACCM[59,6,47,0:80])
;tmpaWACCM7 = REFORM(uspcWACCM[59,7,47,0:80])
;tmpaWACCM8 = REFORM(uspcWACCM[59,8,47,0:80])
;tmpaWACCM9 = REFORM(uspcWACCM[59,9,47,0:80])
;tmpaWACCM10 = REFORM(uspcWACCM[59,10,47,0:80])
;tmpaWACCM11 = REFORM(uspcWACCM[59,11,47,0:80])
;tmpaWACCM12 = REFORM(uspcWACCM[59,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Zonal Wind Eastward WN 12 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Zonal Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM meridional wind westward wavenumber 12 and zonal frequencies 1-12
;
tmpaWACCM1 = REFORM(vspcWACCM[83,1,47,0:80])
tmpaWACCM2 = REFORM(vspcWACCM[83,2,47,0:80])
tmpaWACCM3 = REFORM(vspcWACCM[83,3,47,0:80])
tmpaWACCM4 = REFORM(vspcWACCM[83,4,47,0:80])
tmpaWACCM5 = REFORM(vspcWACCM[83,5,47,0:80])
tmpaWACCM6 = REFORM(vspcWACCM[83,6,47,0:80])
tmpaWACCM7 = REFORM(vspcWACCM[83,7,47,0:80])
tmpaWACCM8 = REFORM(vspcWACCM[83,8,47,0:80])
tmpaWACCM9 = REFORM(vspcWACCM[83,9,47,0:80])
tmpaWACCM10 = REFORM(vspcWACCM[83,10,47,0:80])
tmpaWACCM11 = REFORM(vspcWACCM[83,11,47,0:80])
tmpaWACCM12 = REFORM(vspcWACCM[83,12,47,0:80])

tmpaWACCM1 = REVERSE(tmpaWACCM1)
tmpaWACCM2 = REVERSE(tmpaWACCM2)
tmpaWACCM3 = REVERSE(tmpaWACCM3)
tmpaWACCM4 = REVERSE(tmpaWACCM4)
tmpaWACCM5 = REVERSE(tmpaWACCM5)
tmpaWACCM6 = REVERSE(tmpaWACCM6)
tmpaWACCM7 = REVERSE(tmpaWACCM7)
tmpaWACCM8 = REVERSE(tmpaWACCM8)
tmpaWACCM9 = REVERSE(tmpaWACCM9)
tmpaWACCM10 = REVERSE(tmpaWACCM10)
tmpaWACCM11 = REVERSE(tmpaWACCM11)
tmpaWACCM12 = REVERSE(tmpaWACCM12)

zplevWACCM1 = REVERSE(zplevWACCM)

plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
         yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Westward WN 12 Frqs 1-12 1993 March Mean Equator',$
         xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
         charsize = 1.3 

oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
oplot, tmpaWACCM4, zplevWACCM1, color=3
oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
oplot, tmpaWACCM7, zplevWACCM1, color=4
oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
oplot, tmpaWACCM10, zplevWACCM1, color=8
oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2

xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5
;
; WACCM temperature eastward wavenumber 12 and zonal frequencies 1-12
;
;tmpaWACCM1 = REFORM(vspcWACCM[59,1,47,0:80])
;tmpaWACCM2 = REFORM(vspcWACCM[59,2,47,0:80])
;tmpaWACCM3 = REFORM(vspcWACCM[59,3,47,0:80])
;tmpaWACCM4 = REFORM(vspcWACCM[59,4,47,0:80])
;tmpaWACCM5 = REFORM(vspcWACCM[59,5,47,0:80])
;tmpaWACCM6 = REFORM(vspcWACCM[59,6,47,0:80])
;tmpaWACCM7 = REFORM(vspcWACCM[59,7,47,0:80])
;tmpaWACCM8 = REFORM(vspcWACCM[59,8,47,0:80])
;tmpaWACCM9 = REFORM(vspcWACCM[59,9,47,0:80])
;tmpaWACCM10 = REFORM(vspcWACCM[59,10,47,0:80])
;tmpaWACCM11 = REFORM(vspcWACCM[59,11,47,0:80])
;tmpaWACCM12 = REFORM(vspcWACCM[59,12,47,0:80])
;
;tmpaWACCM1 = REVERSE(tmpaWACCM1)
;tmpaWACCM2 = REVERSE(tmpaWACCM2)
;tmpaWACCM3 = REVERSE(tmpaWACCM3)
;tmpaWACCM4 = REVERSE(tmpaWACCM4)
;tmpaWACCM5 = REVERSE(tmpaWACCM5)
;tmpaWACCM6 = REVERSE(tmpaWACCM6)
;tmpaWACCM7 = REVERSE(tmpaWACCM7)
;tmpaWACCM8 = REVERSE(tmpaWACCM8)
;tmpaWACCM9 = REVERSE(tmpaWACCM9)
;tmpaWACCM10 = REVERSE(tmpaWACCM10)
;tmpaWACCM11 = REVERSE(tmpaWACCM11)
;tmpaWACCM12 = REVERSE(tmpaWACCM12)
;
;zplevWACCM1 = REVERSE(zplevWACCM)
;
;plot, tmpaWACCM1, zplevWACCM1,  /ylog, /xlog, xrange=[1.E-08,1.E-01], xstyle = 1,$
;	  yrange = [1e3,1e-9],ystyle = 1,title = 'WACCM Meridional Wind Eastward WN 12 Frqs 1-12 1993 March Mean Equator',$
;	  xtitle = 'Meridional Wind Amplitude*SQRT(Density)', ytitle = 'Pressure (hPa)',ycharsize = 1.2, xcharsize = 1.2,$
;	  charsize = 1.3 
;
;oplot, tmpaWACCM2, zplevWACCM1, linestyle=1
;oplot, tmpaWACCM3, zplevWACCM1, linestyle=2
;oplot, tmpaWACCM4, zplevWACCM1, color=3
;oplot, tmpaWACCM5, zplevWACCM1, color=3, linestyle=1
;oplot, tmpaWACCM6, zplevWACCM1, color=3, linestyle=2
;oplot, tmpaWACCM7, zplevWACCM1, color=4
;oplot, tmpaWACCM8, zplevWACCM1, color=4, linestyle=1
;oplot, tmpaWACCM9, zplevWACCM1, color=4, linestyle=2
;oplot, tmpaWACCM10, zplevWACCM1, color=8
;oplot, tmpaWACCM11, zplevWACCM1, color=8, linestyle=1
;oplot, tmpaWACCM12, zplevWACCM1, color=8, linestyle=2
;
;xyouts, /NORMAL, 0.15, 0.48, 'Frequency 1 (Solid) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.45, 'Frequency 2 (Dotted) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.42, 'Frequency 3 (Dashed) ', charsize=1.5
;xyouts, /NORMAL, 0.15, 0.39, 'Frequency 4 (Solid) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.36, 'Frequency 5 (Dotted) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.33, 'Frequency 6 (Dashed) ', color=3, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.30, 'Frequency 7 (Solid) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.27, 'Frequency 8 (Dotted) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.24, 'Frequency 9 (Dashed) ', color=4, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.21, 'Frequency 10 (Solid) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.18, 'Frequency 11 (Dotted) ', color=8, charsize=1.5
;xyouts, /NORMAL, 0.15, 0.15, 'Frequency 12 (Dashed) ', color=8, charsize=1.5

DEVICE, /CLOSE

SET_PLOT, 'x'

END