open  h:/LH_new/heating/Apr/wave1.ctl

set vpage 0.5 8 0.5 9.5 * Title!!!
set string 1 tc 5 0
set strsiz 0.18
draw string 4.5 9.5 Amplitudes of SPWs in LH (K/day), Apr

set vpage 0.5 4.5 4.5 8.5 * first figure !!!
Set clopts 1 4 0.16
Set xlopts 1 4 0.20
Set ylopts 1 4 0.20
set cint 0.2
set cthick 10

set lon 2
set lat -40 40
set lev 1 15
set t 1

set grads off
set vrange 0 15
set yaxis  0 15 5

set ylab on
set annot 1 5
set font 1
d Aw
draw title SPW1
set strsiz 0.22
set strsiz 0.22 
set string 1 c 5 90
draw string 0.5 5 Altitude (km)
close 1

open  h:/LH_new/heating/apr/wave2.ctl
set lon 2
set lat -40 40
set lev 1 15
set t 1

set vpage 4. 8. 4.5 8.5 * second figure !!!
set cint 0.2
set grads off
set xlab on
set ylab on
set vrange 0 15
set yaxis  0 15 5
set cthick 10
d Aw
set annot 1 5
set font 1
draw title SPW2
close 1

open  h:/LH_new/heating/apr/wave3.ctl
set lon 2
set lat -40 40
set lev 1 15
set t 1

set vpage 0.5 4.5 0.5 4.5 * third figure !!!
Set clopts 1 4 0.16
Set xlopts 1 4 0.20
Set ylopts 1 4 0.20
set cint 0.2
set grads off
set vrange 0 15
set yaxis  0 15 5
set ylab on
set cthick 10

d Aw
set annot 1 5
draw title SPW3
set strsiz 0.22
set font 1
set string 1 c 5 0
draw string 4.8 0.2 Latitude (deg)
set strsiz 0.22
set string 1 c 5 90
draw string 0.5 5 Altitude (km)
close 1

open  h:/LH_new/heating/apr/wave4.ctl
set lon 2
set lat -40 40
set lev 1 15
set t 1

set vpage 4. 8. 0.5 4.5 * forth figure !!!
set cint 0.2
set grads off
set ylab on
set vrange 0 15
set yaxis  0 15 5
set cthick 10

d Aw
set font 1
set annot 1 5
draw title SPW4
set font 1
set strsiz 0.22
set string 1 c 5 0
draw string 4.8 0.2 Latitude (deg)
enable print x.prn
print
disable print
*print d:/LH_ENSO/La/latent_heat_spw.eps
close 1