open  h:/wlt_reconstruction/wave_ini.ctl
set lon 0
set lat -90 90
set lev 0 120
set t 1
set vpage 0.5 4.5 5.5 9.5
Set clopts 1 4 0.16
Set xlopts 1 4 0.20
Set ylopts 1 4 0.20
*set cint 100
set cthick 10
set grads off
set vrange 0 120
set yaxis  0 120 20
set ylab on
d Aw
set annot 1 5
set font 1
draw title Ampl. of DT in temper. (K), initial
set font 1
set strsiz 0.24 
set string 1 c 5 90
draw string 0.5 4.5 Log-isobaric haight (km)
set vpage 4. 8. 5.5 9.5
*set lon 3
set cint 90
set grads off
set yaxis 0 120 20
set ylab off
set cthick 10
d Pw
set annot 1 5
set font 1
draw title Phase of DT in temper. (deg), initial
close 1
open  h:/wlt_reconstruction/wave_rec.ctl
set lon 0
set lat -90 90
set lev 0 120
set t 1
set vpage 0.5 4.5 1.5 5.5
Set clopts 1 4 0.16
Set xlopts 1 4 0.20
Set ylopts 1 4 0.20
*set cint 50
set grads off
set vrange 0 120
set yaxis 0 120 20
set ylab on
set cthick 10
d Aw
set annot 1 5
set font 1
draw title Ampl. of DT in temper. (K), restored
set strsiz 0.24
set font 1
set string 1 c 5 0
draw string 4.8 0.2 Latitude (deg)
set string 1 c 5 90
draw string 0.5 4.5 Log-isobaric haight (km)
set vpage 4. 8. 1.5 5.5
*set lon 1
set cint 90
set grads off
set yaxis 0 120 20
set ylab off
set cthick 10
d Pw
set font 1
set annot 1 5
draw title Phase of DT in temper. (deg), restored
set font 1
set strsiz 0.24
set string 1 c 5 0
draw string 4.8 0.2 Latitude (deg)
enable print xy.prn
print
disable print
close 1