require "numru/gphys"
require "numru/ggraph"
require "numru/dcl"

include NumRu

filename = "3dMars_dx200dz100_02_VorZ.nc"
varname = "VorZ"
gphys0 = GPhys::IO.open(filename,varname)
gphys0 = gphys0[83,0..99,0..49,6]

filename = "3dMars_dx200dz100_02_VelX.nc"
varname = "VelX"
gphys1 = GPhys::IO.open(filename,varname)
gphys1 = gphys1[83,0..99,0..49,6]

filename = "3dMars_dx200dz100_02_VorZ.nc"
varname = "VorZ"
gphys2 = GPhys::IO.open(filename,varname)
gphys2 = gphys2[83,0..99,0..49,6]


DCL::gropn(-2)

xmin = 100.0
xmax = 19900.0
zmin = 50.0
zmax = 4950.0

vxmin = 0.1
vxmax = 0.8
vzmin = 0.3
vzmax = 0.5

x_title = ""
x_unit = "m"
z_title = ""
z_unit = "m"

DCL::sglset("LCNTL", false )
DCL::udlset("LMSG", false )
DCL::uglset("LMSG", false )
DCL::gllset("LMISS", true )

DCL::grfrm
DCL::grswnd(xmin,xmax,zmin,zmax)
DCL::grsvpt(vxmin,vxmax,vzmin,vzmax)
DCL::grstrn(1)
DCL::grstrf

DCL::sglset("LCLIP", true )
DCL::uwsgxa(gphys0.coord(0).val)
DCL::uwsgya(gphys0.coord(1).val)
DCL::ueitlv
DCL::uegtla(-0.05, 0.05, 0.002 )
#DCL::udiclv
#DCL::udgcla(-10.0, 15.0, 5.0 )
DCL::uetone(gphys0.val)
#DCL::udcntz(gphys0.val)
DCL::ussttl(x_title, x_unit, z_title, z_unit)
DCL::usdaxs
DCL::sglset("LCLIP", false )
DCL::uzrset("ROFFXT", 0.06)
GGraph.color_bar('vlength'=>0.2, 'tickintv'=>0)


DCL::grcls