*"reinit"
"open /home/cordex_sea/Chi/GS/Stn_List_N2.ctl"
*"set display color white"; "c"
 VN_N2 (); 
* Entire_VN (hgt_m); 

d_Stn(Stn); Sub_R6 

*"gxprint Stn_Map.pdf pdf"

********************************************
function VN_N2 ()
"set lon 106.3 109.2"
"set lat 11 15.7"
"set mpdraw off"; "set grid off"; "set grads off"
return
********************************************
function Topo_map (var)
level1 = " 0 0.2 0.5 1 2 3 5 10 20 30 50 70 100 150 200 250 300 350 400 450 500 550 600 650 700 800 900 1000 1100 1200 1300 1400 1500 1600 1700 1800 1900 2000 2200 2400 2600 2800 3000 3200 "
level2 = " 0 0.2 5 10 15 20 30 50 70 100 200 300 500 1000 1500 2000 250 3000 3500 "
level3 = " 0  200  500 700 1000 "
levels = level1
"set mpdraw off"; "set grid off"
"set grads off"
"run My_Color.gs -gxout shaded -kind white-(0)->lightgray->gray->black -levs " levels
"d "var
"cbarn"
 "set line 0 1 4";
 "set digsiz 0.1"
 "set shpopts -1 3 0.05"
 "draw shp Vietnam7.shp"
return
********************************************
function Entire_VN (var)
"set vpage 1.75 3.3 0.614 2.1"
"set lon 101 120 "
"set lat 5.7 24 "
level2 = " 0 5000 "
"run My_Color.gs -gxout shaded -kind white-(0)->lightgray->lightgray -levs " level2
*"set mpdraw on"; "set mpdset mres"
"set grid off";"set xlab off";"set ylab off";
"set grads off"
"d "var
*"draw shp RG_VNHSTS_ellipse.shp"
"set line 1 1 2";
"draw shp RG_VNHSTS_polyline.shp"
"set vpage off"
return
********************************************
function d_Stn(var)
    "run color.gs -gxout shaded -kind blue->blue -levs " 1 500
    "set gxout stnmark"
    "set digsiz 0.2"
    "set cmark 3"
    "set cthick 7"
*    "set ccolor 4"
    "d "var
    "set grads off"
return
********************************************
function Boder_Subreg ()
 "set line 1 1 5";
 "set digsiz 0.1"
 "set shpopts -1 3 0.05"
 "draw shp Vietnam7.shp"
return
********************************************