clear
reset graphics

set parea off

*open f:/muam/EL2_SA/averh/kondr/W_hsa.ctl
*open f:/muam/EL2_SA/averh/kondr/W_lsa.ctl
*open f:/muam/EL2_SA/averh/kondr/disp_W_dif.ctl
open f:/muam/Muam_Mar_eQBO/resid/resid_wqbo.ctl
open f:/muam/Muam_Mar_eQBO/resid/resid_eqbo.ctl
open f:/muam/Muam_Mar_eQBO/resid/resid_disp.ctl

set lat 0 90
set lev 0 100
set lon 0
set t 1
set font 1
Set clopts 1 5 0.16
Set xlopts 1 5 0.16
Set ylopts 1 5 0.16

set parea 1 6.5 1 6.5

set frame on
set strsiz 0.2

set vpage 0.5 8. 1. 7.65
*set parea 0.75 6.25 1 6.5
set grid off
set grads off

set rgb 89 255 255 255
set rgb 90 180 220 255
set rgb 91 150 200 245
set rgb 92 150 170 200
set rgb 93 110 175 100
set rgb 94 70 175 80
set rgb 95 205 100 0
set rgb 96 195 90 0
set rgb 97 170 30 155
set rgb 98 160 0 160
set rgb 99 150 0 0
set rgb 75 0 0 0

set rbcols 90 91 92 93 94 95 96 97 98 99

set rgb 75 0 0 0


set clevs 0 10000 
set ccols 92 89 93 

set gxout shaded
d   (Vres.1-Vres.2)

*d smth9(U.1-U.2)*100
*d smth9(U.1)*1

set annot 1 8
draw ylab Altitude, km
draw xlab Latitude, deg

set gxout vector

set strmden 3
set arrowhead 0.12
set cthick 7
set arrscl 1 2
set ccolor 75

set cterp on
d skip((Vres.1-Vres.2),2,1);(Wres.1-Wres.2)*100


enable print f:/muam/Muam_Mar_eQBO/resid/BD_w-e_vect_mar.prn
print
disable print

close 3
close 2
close 1