require "numru/ggraph"
include NumRu

dir = "../0017"

#gphys = GPhys::IO.open( ncfn, vname )
url = dir + "/U_rank??????.nc@U"
gpu = GPhys::IO.open_gturl( url )
url = dir + "/V_rank??????.nc@V"
gpv = GPhys::IO.open_gturl( url )
url = dir + "/Temp_rank??????.nc@Temp"
gpt = GPhys::IO.open_gturl( url )

gpu = gpu.cut('sig'=>1e-3)
gpv = gpv.cut('sig'=>1e-3)
gpt = gpt.cut('sig'=>1e-3)

iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
DCL.gropn(iws)

#DCL.sldiv('y',1,4)
DCL.sgpset('isub', 96)     # control character of subscription: '_' --> '`'
DCL.sgpset('lfull',true)
DCL.uzfact(0.6)            # font size
#DCL.sgpset('lclip', true)  # clip graph
#DCL.udlset('LMSG', false)  # flag for message of contour interval
DCL.glpset('lmiss',true)   # missing value

#DCL.sgscmn(4)  # blue-cyan-white-yellow-red
#DCL.sgscmn(5)  # gray-scale
#DCL.sgscmn(14) # blue-white-red

#levels = [110,120,130,140,150,160,170,180,190,200,210,220,230,240]
#patterns = [10999,15999,20999,25999,30999,35999,40999,50999,60999,65999,70999,75999,80999,90999,95999]

GGraph.set_fig 'itr'=> 1, 'viewport'=>[0.15,0.85,0.2,0.55], 'window'=>[0,360,-90,90]
GGraph.set_axes('xlabelint'=>90)
GGraph.set_axes('ylabelint'=>30)


GGraph.tone gpt, true     #, 'lev'=>levels, 'pat'=>patterns
#GGraph.contour gpt, false #, 'lev'=>levels
GGraph.vector gpu, gpv, false, "xintv"=>1, "yintv"=>1, "unit_vect"=>true, "keep"=>true
GGraph.color_bar 'landscape'=>true


DCL.grcls