open  h:/LH_new/heating/jul/wave0.ctl
set lon 0
set lat -40 40
set lev 1 15
set t 1

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 Latent heating (K/day), amplitudes m=0, Jul


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.005
set cthick 10
set grads off
set vrange 0 15
set yaxis  0 15 5
set ylab on
d A
set annot 1 5
set font 1
draw title T=24 h
set strsiz 0.22
*draw ylab Altitude (km) 
set strsiz 0.22 
set string 1 c 5 90
draw string 0.5 5 Altitude (km)


set vpage 4. 8. 4.5 8.5 * second figure !!!
*set cint 0.001
set grads off
set xlab on
set ylab on
set vrange 0 15
set yaxis  0 15 5
set cthick 10
set lon 1

d A
set annot 1 5
set font 1
draw title T=12 h
draw string 4.8 0.2 Latitude (deg)
print h:/LH_new/heating/LH_td0_Jul.eps
close 1