gphys 1.2.2.1 → 1.4.3

data/lib/numru/ganalysis/sigma_coord.rb

@@ -0,0 +1,90 @@
+
+require "numru/ganalysis/planet"
+require "numru/ganalysis/met"
+
+module NumRu
+  module GAnalysis
+
+    # Library to handle the sigma coordinate of atmospheric GCMs
+    # 
+    module SigmaCoord
+
+      module_function
+
+      # Find the sigma coordinate in a GPhys object (empirically)
+      # 
+      # ARGUMENT
+      # * gphys [GPhys]
+      # * error [nil/false or true] change the behavior if a
+      #   pressure coordinate is not found. Default: returns nil;
+      #   if error is true, an exception is raised.
+      # RETURN VALUE
+      # * Integer to indicate the dimension of the sigma coordinate,
+      #   or nil if not found (by default; see above)
+      def find_sigma_d(gphys, error=nil)
+        un0 = Units.new("1")
+        (gphys.rank-1).downto(0) do |d|
+          crd = gphys.coord(d)
+          if crd.units =~ un0 and 
+             ( crd.get_att('standard_name')=="atmosphere_sigma_coordinate" or
+               /sigma/i =~ crd.long_name or /^sig/i =~ crd.name )
+            # then, it's assumed that this is the sigma coordinate
+            return(d)
+          end
+        end
+        if error
+          raise("Could not find a pressure coordinate.")
+        else
+          nil
+        end
+      end
+
+      # Derive pressure from sigma and surface pressure
+      # 
+      # ARGUMENTS
+      # * ps [GPhys or VArray or NArray] : surface pressure (multi-D)
+      # * sig [GPhys or VArray or NArray] : sigma (1D)
+      # * zdim [Integer] : dimension at which the vertical dim is incorpolated
+      # RETURN VALUE
+      # * pressure [GPhys or VArray or NArray depending the class of ps]
+      def sig_ps2p(ps, sig, zdim)
+        if sig.is_a?(VArray) or sig.is_a?(GPhys)
+          sigval = sig.val
+        else
+          sigval = sig
+        end
+        if ps.is_a?(VArray) or ps.is_a?(GPhys)
+          psval = ps.val
+        else
+          psval = ps
+        end
+        psval = psval.newdim(zdim)
+        zdim.times{sigval = sigval.newdim(0)}
+        (ps.rank-zdim).times{sigval = sigval.newdim(-1)}
+        pval = psval * sigval
+        case ps
+        when VArray, GPhys
+          p = VArray.new(pval, 
+                         {"long_name"=>"pressure","units"=>ps.units.to_s}, "p")
+          if ps.is_a?(GPhys)
+            case sig
+            when GPhys
+              sigax = sig.axis(0)
+            when VArray
+              sigax =  Axis.new().set_pos(sig)
+            else
+              sigc = VArray.new(sig,{"units"=>"","long_name"=>"sigma"},"sigma")
+              sigax =  Axis.new().set_pos(sigc)
+            end
+            grid = ps.grid.insert_axis(zdim,sigax)
+            p = GPhys.new(grid, p)
+          end
+          p
+        else
+          pval
+        end
+      end
+
+    end
+  end
+end

data/lib/numru/gdir.rb

@@ -946,7 +946,8 @@ module NumRu
 
     def __can_be_a_gdir(path)
       ftype = __ftype(path)
-      if ftype=="directory" || ftype=="file" && GPhys::IO::file2type(path)
+      if ftype=="directory" || ftype=="file" && 
+          ( GPhys::IO::file2type(path) rescue false )
 	true
       else
 	false

data/lib/numru/ggraph.rb

@@ -1,4 +1,4 @@
-# -*- coding: cp932 -*-
+# -*- coding: utf-8 -*-
 require "numru/gphys"
 require "numru/misc"
 require "date"
@@ -49,8 +49,16 @@ require "numru/dclext"
   * ((<line>))
     Plot a poly-line by selecting the first dimension (with GPhys#first1D)
     if (({gphys})) is more than 2D.
+  * ((<set_line>))
+    Change the default option values for ((<line>)).
+  * ((<next_line>))
+    Set the option values effective only in the next call of ((<line>))
   * ((<mark>))
     Similar to ((<line>)) but plots marks instead of drawing a poly-line.
+  * ((<set_mark>))
+    Change the default option values for ((<mark>)).
+  * ((<next_mark>))
+    Set the option values effective only in the next call of ((<mark>))
   * ((<scatter>))
     Scatter diagram (using uumrkz, as in ((<mark>))).
   * ((<color_scatter>))
@@ -1072,8 +1080,10 @@ module NumRu
 
   module GGraph
 
-    TONE_TONF_THRES = 10000  # thresfold to swith uetonf and uetone under
-                             # the auto=true option in the tone method
+    # thresfold to swith uetonf and uetone under
+    # the auto=true option in the tone method
+    TONE_TONF_THRES_LEN = 100     # thresfold of length of each dimension
+    TONE_TONF_THRES_SIZE = 20000  # thresfold of total size
 
     @@nannot = 0
 
@@ -1096,9 +1106,7 @@ module NumRu
     module_function
 
     def gropn_1_if_not_yet
-      begin
-        DCL.stqwrc
-      rescue
+      if DCL.sgpget("iws") == 0
         DCL.gropn(1)
       end
     end
@@ -1190,7 +1198,8 @@ module NumRu
       ['map_radius', nil, '(for itr>=20: conical/azimuhal map projections) raidus around the tangential point. (units: degrees)'],
       ['map_fit',nil,'(Only for itr=10(cylindrical) and 11 (Mercator)) true: fit the plot to the data window (overrides map_window and map_axis); false: do not fit (then map_window and map_axis are used); nil: true if itr==10, false if itr==11'],
       ['map_rsat',nil,'(Only for itr=30) satellite distance from the earth\'s center (Parameter "RSAT" for sgpack)'],
-      ['map_window', [-180,180,-75,75], '(for itr<20: cylindrical map projections) lon-lat window [lon_min, lon_max, lat_min, lat_max ] to draw the map (units: degres)']
+      ['map_window', [-180,180,-75,75], '(for itr<20: cylindrical map projections) lon-lat window [lon_min, lon_max, lat_min, lat_max ] to draw the map (units: degrees)'],
+      ['keep_axis_offset', false, 'keep offset of titles/labels from each axis (ROFFzs in UZPACK, effective only when new_frame is false)']
     )
 
     def set_fig(options)
@@ -1213,12 +1222,7 @@ module NumRu
       else
         itr = DCL.sgqtrn
       end
-      case itr
-      when 1..9,51..99
-        false
-      else
-        true
-      end
+      !((1..9).include?(itr) || (51..99).include?(itr))
     end
 
     def itr_is?( itr, fig_yet_to_be_called=false )
@@ -1235,13 +1239,7 @@ module NumRu
     end
 
     def sim_trn?
-      itr = DCL.sgqtrn
-      case itr
-      when 5..7
-        true
-      else
-        false
-      end
+      (5..7).include?(DCL.sgqtrn)
     end
 
     def fig(xax=nil, yax=nil, options=nil)
@@ -1259,6 +1257,9 @@ module NumRu
       elsif opts['new_frame']
         DCL.grfrm
       else
+        if opts['keep_axis_offset'] # SAVE OFFSET VALUES
+          offset_org = (%w(XT XB YL YR)).map{|zs| DCL::uzpget("ROFF#{zs}")}
+        end
         DCL.grfig
       end
       raise "viewport's length must be 4" if opts['viewport'].length != 4
@@ -1484,6 +1485,9 @@ module NumRu
 
       DCL.grstrf
       DCL.umpset('lglobe', sv)
+      if (!opts['new_frame']) && opts['keep_axis_offset'] # RESTORE OFFSET VALUES
+        (%w(XT XB YL YR)).each_with_index{|zs, izs| DCL::uzpset("ROFF#{zs}", offset_org[izs])}
+      end
       nil
     end
 
@@ -1561,45 +1565,49 @@ module NumRu
         t0 = window[2]
         t1 = window[3]
       end
-      time = UNumeric.new(t0,sunits)
+      ts = [t0,t1].min
+      time = UNumeric.new(ts,sunits)
       tstr = time.to_datetime(0.1,calendar)
       jd0 = tstr.strftime('%Y%m%d').to_i
-      tlen = tun.convert( t1-t0, dayun )
-      if !axtype
-        if tlen < 5
-          axtype = 'h'
-        else
-          axtype = 'ymd'
-        end
-      end
+      tlen = tun.convert( t1-t0, dayun ).abs
+      axtype ||= (tlen < 5) ? 'h' : 'ymd'
+      reverse = t1 < t0
 
       if xax
-        DCL.grswnd(0.0, tlen, window[2], window[3] )
+        unless(reverse)
+          DCL.grswnd(0.0, tlen, window[2], window[3] )
+        else
+          DCL.grswnd(tlen, 0.0, window[2], window[3] )
+        end
         DCL.grstrf
+        opts = {'cside'=>side}
+        opts['dtick1'] = tickint if tickint
+        opts['dtick2'] = labelint if labelint
         if axtype == 'h'
-          opts = {'cside'=>side}
-          opts['dtick1'] = tickint if tickint
-          opts['dtick2'] = labelint if labelint
           DCLExt.datetime_ax(tstr, tstr+tlen, opts )
         else
-          DCL.ucxacl(side,jd0,tlen)
+          DCLExt.date_ax(tstr, tstr+tlen, opts )
+          ## DCL.ucxacl(side,jd0,tlen)  #Old: use it again if UCPACK is improved
         end
-        DCL.grswnd(*window)
-        DCL.grstrf
       else
-        DCL.grswnd(window[0], window[1], 0.0, tlen)
+        unless(reverse)
+          DCL.grswnd(window[0], window[1], 0.0, tlen)
+        else
+          DCL.grswnd(window[0], window[1], tlen, 0.0)
+        end
         DCL.grstrf
+        opts = {'yax'=>true, 'cside'=>side}
+        opts['dtick1'] = tickint if tickint
+        opts['dtick2'] = labelint if labelint
         if axtype == 'h'
-          opts = {'yax'=>true, 'cside'=>side}
-          opts['dtick1'] = tickint if tickint
-          opts['dtick2'] = labelint if labelint
           DCLExt.datetime_ax(tstr, tstr+tlen, opts )
         else
-          DCL.ucyacl(side,jd0,tlen)
+          DCLExt.date_ax(tstr, tstr+tlen, opts )
+          ## DCL.ucyacl(side,jd0,tlen)  #Old: use it again if UCPACK is improved
         end
-        DCL.grswnd(*window)
-        DCL.grstrf
       end
+      DCL.grswnd(*window)
+      DCL.grstrf
     end
     private :__calendar_ax
 
@@ -1891,10 +1899,10 @@ module NumRu
           yd = gps[0].coord(1)
         end
         # <-- ///
-        gps.collect!{|gp| gp.cyclic_ext(0, 360.0)} #cyclic extentn along lon
+        gps.collect!{|gp| gp.cyclic_ext(0)} #cyclic extentn along lon
         xd = gps[0].coord(0)
       elsif itr_is?(5, newframe)
-        gps.collect!{|gp| gp.cyclic_ext(1, 360.0)} #cyclic ext along azimuth
+        gps.collect!{|gp| gp.cyclic_ext_with_modulo(1, 360.0)} #cyclic ext along azimuth
         yd = gps[0].coord(1)
       end
       [xd, yd, closer, *gps]
@@ -2012,14 +2020,47 @@ module NumRu
       ['legend_vy', nil, '(effective if legend) viewport y value of the legend (Float; or nil for automatic settting)'],
       ['legend_size', nil, '(effective if legend) character size of the legend'],
       ['map_axes', false, '[USE IT ONLY WHEN itr=10 (cylindrical)] If true, draws axes by temprarilly switching to itr=1 and calling GGraph::axes.'],
+      ['step_plot', false, 'If true, draw stair step plot (piecewise constant line plot).'],
+      # ['step_extend_ends', false, 'If true, extend both ends of stair step plot.'], # NOT YET IMPLEMENTED
+      ['step_position', 0, 'Data point will be at the right corner of each step if negative, center if 0, and left corner if positive.'],
       @@data_prep_options
     )
 
+    def set_line(options)
+      @@line_options.set(options)
+    end
+
+    @@next_line = nil
+    def next_line(options)
+      if options.is_a?(Hash)
+        @@next_line = options
+      else
+        raise TypeError,"Hash expected"
+      end
+      nil
+    end
+
+    def set_step_plot_position(val, postype)
+      if postype == 0
+        val = NArray.to_na([val[0]] + (val[0..-2] + val[1..-1]).mul!(0.5).to_a + [val[-1]])
+      elsif postype > 0
+        val = NArray.to_na([val[0]] + val.to_a)
+      else
+        val = NArray.to_na(val.to_a + [val[-1]])
+      end
+      return val
+    end
+    private :set_step_plot_position
+
     def line(gphys, newframe=true, options=nil)
       gropn_1_if_not_yet
       if newframe!=true && newframe!=false
         raise ArgumentError, "2nd arg (newframe) must be true or false"
       end
+      if @@next_line
+        options = ( options ? @@next_line.update(options) : @@next_line )
+        @@next_line = nil
+      end
       opts = @@line_options.interpret(options)
       x, y, closer, gp, window = data_prep_1D(gphys, opts)
       if newframe
@@ -2032,7 +2073,17 @@ module NumRu
         DCL.sgpset('lchar',true)
         DCL.sgsplc(opts['label'])
       end
-      DCL.uulinz(x.val, y.val, opts['type'], opts['index'])
+      if opts['step_plot']
+        if opts['exchange']
+          yval = set_step_plot_position(y.val, opts['step_position'])
+          DCL.uhbxlz(x.val, yval, opts['type'], opts['index'])
+        else
+          xval = set_step_plot_position(x.val, opts['step_position'])
+          DCL.uvbxlz(xval, y.val, opts['type'], opts['index'])
+        end
+      else
+        DCL.uulinz(x.val, y.val, opts['type'], opts['index'])
+      end
       DCL.sgpset('lchar',lcharbk) if opts['label']
 
       legend = opts['legend']
@@ -2087,6 +2138,7 @@ module NumRu
                        opts['legend_size'],opts['legend_vx'],opts['legend_dx'],
                        opts['legend_vy'],newframe)
       end
+      closer.call if closer
       nil
     end
 #-----------------------------------------------------------------------------
@@ -2107,11 +2159,29 @@ module NumRu
       @@data_prep_options
         )
 
+    def set_mark(options)
+      @@mark_options.set(options)
+    end
+
+    @@next_mark = nil
+    def next_mark(options)
+      if options.is_a?(Hash)
+        @@next_mark = options
+      else
+        raise TypeError,"Hash expected"
+      end
+      nil
+    end
+
     def mark(gphys, newframe=true, options=nil)
       gropn_1_if_not_yet
       if newframe!=true && newframe!=false
         raise ArgumentError, "2nd arg (newframe) must be true or false"
       end
+      if @@next_mark
+        options = ( options ? @@next_mark.update(options) : @@next_mark )
+        @@next_mark = nil
+      end
       opts = @@mark_options.interpret(options)
       x, y, closer, gp, window = data_prep_1D(gphys, opts)
       if newframe
@@ -2441,9 +2511,9 @@ module NumRu
           end
           trn = DCL.sgqtrn
           if map_fit
-            fig(xax,yax, {'itr'=>1, 'new_frame'=>false, 'viewport'=>vpt})
+            fig(xax,yax, {'itr'=>1, 'new_frame'=>false, 'viewport'=>vpt, 'keep_axis_offset'=>true})
             axes(xax, yax, 'title'=>ttl)
-            fig(xax,yax,{'itr'=>trn, 'new_frame'=>false, 'viewport'=>vpt, 'map_fit'=>true})
+            fig(xax,yax,{'itr'=>trn, 'new_frame'=>false, 'viewport'=>vpt, 'map_fit'=>true, 'keep_axis_offset'=>true})
           else
             xax_map = xax[0..1].copy
             xax_map[0] = cnt[0] + wnd[0]
@@ -2451,9 +2521,9 @@ module NumRu
             yax_map = yax[0..1].copy
             yax_map[0] = wnd[2]
             yax_map[1] = wnd[3]
-            fig(xax_map,yax_map,{'itr'=>1, 'new_frame'=>false, 'viewport'=>vpt})
+            fig(xax_map,yax_map,{'itr'=>1, 'new_frame'=>false, 'viewport'=>vpt, 'keep_axis_offset'=>true})
             axes(xax_map, yax_map, 'title'=>ttl)
-            fig(xax_map,yax_map,{'itr'=>trn, 'new_frame'=>false, 'viewport'=>vpt, 'map_fit'=>false, 'map_axis'=>cnt, 'map_window'=>wnd})
+            fig(xax_map,yax_map,{'itr'=>trn, 'new_frame'=>false, 'viewport'=>vpt, 'map_fit'=>false, 'map_axis'=>cnt, 'map_window'=>wnd, 'keep_axis_offset'=>true})
           end
         else
           title( ttl )
@@ -2598,8 +2668,8 @@ module NumRu
     @@tone_options = Misc::KeywordOptAutoHelp.new(
       ['title', nil, 'Title of the figure(if nil, internally determined)'],
       ['annotate', true, 'if false, do not put texts on the right margin even when newframe==true'],
-      ['ltone', true, 'Same as udpack parameter ltone'],
-      ['auto', false, 'Swith DCL.uetone and DCL.uetonf depending on the data size'],
+      ['ltone', true, 'Same as uepack parameter ltone'],
+      ['auto', true, 'Swith DCL.uetone and DCL.uetonf depending on the data size'],
       ['tonf', false, 'Use DCL.uetonf instead of DCL.uetone'],
       ['tonb', false, 'Use DCL.uetonb instead of DCL.uetone'],
       ['tonc', false, 'Use DCL.uetonc instead of DCL.uetone'],
@@ -2668,7 +2738,8 @@ module NumRu
 
       val = gp.data.val
       if ( opts['ltone'] && 
-          ( opts['tonf'] || opts['auto'] && val.length > TONE_TONF_THRES ) )
+          ( opts['tonf'] || opts['auto'] && 
+            ( val.length >= TONE_TONF_THRES_SIZE || val.shape.min >= TONE_TONF_THRES_LEN ) ) )
         DCL.uetonf(val)
       elsif opts['tonb'] && opts['ltone']
         DCL.uetonb(val)
@@ -2948,8 +3019,20 @@ module NumRu
     @@vxfxratio=nil    # for flow_vect
     @@vyfyratio=nil    # for flow_vect
     @@vfratio=nil      # for flow_vect_anyproj
+    @@flenmax=nil      # for flow_vect_anyproj
+    %w!vxfxratio vyfyratio vfratio flenmax!.each do |param|
+      eval <<-EOS
+        def #{param}
+          @@#{param}
+        end
+        def #{param}=(x)
+          @@#{param} = x
+        end
+      EOS
+    end
 
     @@vector_options = Misc::KeywordOptAutoHelp.new(
+      ['index', nil, 'Line index of vectors.'],
       ['title', nil, 'Title of the figure(if nil, internally determined)'],
       ['annotate', true, 'if false, do not put texts on the right margin even when newframe==true'],
       ['map_axes', false, '[USE IT ONLY WHEN itr=10 (cylindrical)] If true, draws axes by temprarilly switching to itr=1 and calling GGraph::axes.'],
@@ -2986,27 +3069,34 @@ module NumRu
       yaxv = yax.val
       DCL.uwsgxa(xaxv)
       DCL.uwsgya(yaxv)
+
+      oldindex = DCLExt.ug_set_params("index" => opts['index']) if opts['index']
+
       if opts['flow_itr5']
         if itr_is?(5)
           DCLExt.flow_itr5( fx, fy, opts['factor'], opts['unit_vect'] )
+          returnval = nil
         else
           raise "flow_itr5 option should use with itr=5."
         end
       elsif opts['flow_vect_anyproj'] ||
             ( opts['flow_vect_anyproj'].nil? && opts['flow_vect'] && itr >=2 )
-        @@vfratio, flenmax = 
+        @@vfratio, @@flenmax = 
             DCLExt.flow_vect_anyproj(fx.val, fy.val, xaxv, yaxv, 
                                      opts['factor'], 1, 1, opts['distvect_map'],
                                      (opts['keep'] && @@vfratio),
+                                     (opts['keep'] && @@flenmax),
                                      opts['polar_thinning'] )
+        returnval = { "vfratio"=> @@vfratio, "flenmax"=>@@flenmax }
         if opts['unit_vect']
-          len_unit = opts['len_unit'] || flenmax
+          len_unit = opts['len_unit'] || @@flenmax
           DCLExt.unit_vect_single(@@vfratio, len_unit)
         end
       elsif opts['flow_vect']
         uninfo = DCLExt.flow_vect(fx.val, fy.val, opts['factor'], 1, 1,
                   (opts['keep']&& @@vxfxratio), (opts['keep'] && @@vyfyratio) )
         @@vxfxratio, @@vyfyratio, = uninfo
+        returnval = { "vxfxratio"=>@@vxfxratio, "vyfyratio"=>@@vyfyratio }
         if opts['unit_vect']
           unless opts['max_unit_vect']
             uninfo[2] = opts['ux_unit']  # nil or a Numeric to specify the len 
@@ -3017,10 +3107,12 @@ module NumRu
       else
         before=DCLExt.ug_set_params({'lunit'=>true}) if opts['unit_vect']
         DCL.ugvect(fx.val, fy.val)
+        returnval = nil
         DCLExt.ug_set_params(before) if opts['unit_vect']
       end
+      DCLExt.ug_set_params(oldindex) if opts['index']
       closer.call if closer
-      nil
+      returnval
     end
 
     @@regression_line_options = Misc::KeywordOptAutoHelp.new(
@@ -3625,8 +3717,8 @@ if $0 == __FILE__
   y = v.cut("lat"=>40,"level"=>200)
   xv = x.val
   yv = y.val
-  xx = x.val.to_na  # NArrayMiss 1.2.1����ɍX�V��ɏ����� xx �� x �ɕς���ׂ�
-  yy = y.val.to_na  # NArrayMiss 1.2.1����ɍX�V��ɏ����� yy �� y �ɕς���ׂ�
+  xx = x.val.to_na  # NArrayMiss 1.2.1より上に更新後に消して xx は x に変えるべし
+  yy = y.val.to_na  # NArrayMiss 1.2.1より上に更新後に消して yy は y に変えるべし
 
   GGraph.next_fig("window"=>[xv.min.floor-5, xv.max.ceil+5, 
                              yv.min.floor-3, yv.max.ceil+3])
@@ -3647,8 +3739,8 @@ if $0 == __FILE__
   #/ graph 52 /
   x = x.abs**2
   y = y.abs**2 + x*0.1
-  xx = x.val.to_na  # NArrayMiss 1.2.1����ɍX�V��ɏ����� xx �� x �ɕς���ׂ�
-  yy = y.val.to_na  # NArrayMiss 1.2.1����ɍX�V��ɏ����� yy �� y �ɕς���ׂ�
+  xx = x.val.to_na  # NArrayMiss 1.2.1より上に更新後に消して xx は x に変えるべし
+  yy = y.val.to_na  # NArrayMiss 1.2.1より上に更新後に消して yy は y に変えるべし
 
   GGraph.next_fig("itr"=>4)
   GGraph.scatter(x,y, true, "title"=>"x given y; log scaling")
@@ -3732,6 +3824,58 @@ if $0 == __FILE__
   GGraph.next_axes('xtitle'=>'')
   GGraph.tone_and_contour(gphys, true, 'map_axes'=>true, 'color_bar'=>true)
 
+  #/ stair step line plots /
+  na = NMath.sin(NArray.sfloat(11).indgen! * 2 * Math::PI / 10)
+  va = VArray.new(na, {}, "dummy")
+  p gphys = GPhys.new(Grid.new(Axis.new.set_pos(VArray.new(NArray.sfloat(11).indgen!, {}, "x"))), va)
+  GGraph.set_fig('itr'=>1, 'viewport' => [0.2, 0.8, 0.15, 0.6])
+
+  GGraph.line(gphys, true, 'index' => 21,'step_plot' => true, 'step_position' => -1)
+  GGraph.mark(gphys, false, 'index' => 31, 'type' => 9)
+
+  GGraph.line(gphys, true, 'index' => 21, 'step_plot' => true, 'step_position' =>  0)
+  GGraph.mark(gphys, false, 'index' => 31, 'type' => 9)
+
+  GGraph.line(gphys, true, 'index' => 21, 'step_plot' => true, 'step_position' =>  1)
+  GGraph.mark(gphys, false, 'index' => 31, 'type' => 9)
+
+  GGraph.line(gphys, true, 'index' => 21, 'step_plot' => true, 'step_position' =>  0, 'exchange' => true)
+  GGraph.mark(gphys, false, 'index' => 31, 'type' => 9, 'exchange' => true)
+
+  tmpu = u.cut("lon" => 0..180, "lat" => 20..90, "level" => 200)
+  tmpv = v.cut("lon" => 0..180, "lat" => 20..90, "level" => 200)
+  #/ test for ugvect with 'keep' option /
+  GGraph.set_fig('itr' => 1, 'viewport' => [0.2, 0.7, 0.3, 0.6])
+  GGraph.vector(tmpu, tmpv, true, 'unit_vect' => true, 'index' => 23)
+  DCL::uxsttl("B", "Red: original speed", 0)
+  GGraph.vector(tmpu * 0.5, tmpv * 0.5, true, 'unit_vect' => true, 'index' => 33, 'keep' => true)
+  DCL::uxsttl("B", "Green: half speed with 'keep=T'", 0)
+
+  #/ test for flow_vect with 'keep' option /
+  GGraph.set_fig('itr' => 1, 'viewport' => [0.2, 0.7, 0.3, 0.6])
+  GGraph.vector(tmpu, tmpv, true, 'unit_vect' => true, 'flow_vect' => true, 'index' => 23)
+  DCL::uxsttl("B", "Red: original speed (flow_vect)", 0)
+  GGraph.vector(tmpu * 0.5, tmpv * 0.5, true, 'unit_vect' => true, 'flow_vect' => true, 'index' => 33, 'keep' => true)
+  DCL::uxsttl("B", "Green: half speed with 'keep=T'", 0)
+
+  #/ test for flow_vect_anyproj with 'keep' option /
+  GGraph.set_fig('itr' => 10, 'viewport' => [0.2, 0.7, 0.1, 0.6])
+  GGraph.vector(tmpu, tmpv, true,  'unit_vect' => true, 'index' => 23)
+  DCL::uxsttl("B", "Red: original speed", 0)
+  GGraph.vector(tmpu * 0.5, tmpv * 0.5, true,  'unit_vect' => true, 'index' => 33, 'keep' => true)
+  DCL::uxsttl("B", "Green: half speed with 'keep=T'", 0)
+
+  GGraph.set_fig('itr' => 30, 'viewport' => [0.2, 0.7, 0.1, 0.6])
+  GGraph.vector(u.cut("lat" => 20..90, "level" => 200),
+                v.cut("lat" => 20..90, "level" => 200), true,
+                'unit_vect' => true, 'index' => 23)
+  DCL::uxsttl("B", "Red: original speed", 0)
+  GGraph.vector(u.cut("lat" => 20..90, "level" => 200) * 0.5,
+                v.cut("lat" => 20..90, "level" => 200) * 0.5, true,
+                'unit_vect' => true, 'index' => 33, 'keep' => true)
+  DCL::uxsttl("B", "Green: half speed with 'keep=T'", 0)
+
+
   ############
   DCL.grcls