gphys 1.1.1a

data/sample/map_projection.rb

@@ -0,0 +1,121 @@
+=begin
+=map_projection.rb
+==USAGE
+  % ruby map_projection.rb [wsn]
+where wsn is 1,2,3,or 4.
+PNG files will be dumped if wsn==4.
+=end
+
+require 'numru/ggraph'
+include NumRu
+
+wsn = ( ARGV[0] ? ARGV[0].to_i : 1 )
+
+path = '../testdata/T.jan.nc'
+var = 'T'
+gp = GPhys::IO.open(path,var)
+
+DCL.swpset('ldump',true) if wsn == 4
+DCL.gropn(wsn)
+DCL.sldiv('t',3,2)
+DCL.uzfact(1.1)
+DCL.sgpset('lcntl',false)
+
+# < defalut: itr==1 >
+GGraph.set_fig('viewport'=>[0.2,0.8,0.21,0.81])
+GGraph.tone( gp )
+DCL.grfrm
+
+# < map projection >
+
+GGraph.set_map('vpt_boundary'=>true, 'coast_world'=>true)
+
+itr=11
+GGraph.set_fig('itr'=>itr)
+[ [180.0,0.0,0.0],  [180.0,0.0,180.0] ].each do |axis|
+  GGraph.next_fig('map_axis'=>axis)
+  GGraph.tone( gp.cut('lat'=>-70.0..-20.0) )
+  DCL::sgtxzr(0.5, 0.15, DCL::sgtrnl(itr).strip+"  map_axis=#{axis.inspect}", 
+	      0.03, 0, 0, 3)
+
+  GGraph.next_fig('map_axis'=>axis, 'map_window'=>[-180.0,180.0,-70.0,-20.0])
+  GGraph.tone( gp.cut('lat'=>-70.0..-20.0) )
+  DCL::sgtxzr(0.5, 0.15, DCL::sgtrnl(itr).strip+"  map_axis=#{axis.inspect}",
+	      0.03, 0, 0, 3)
+end
+
+[  [180.0,0.0,90.0], [180.0,0.0,60.0] ].each do |axis|
+  GGraph.next_fig('map_axis'=>axis)
+  GGraph.tone( gp.cut('lat'=>-70.0..-20.0) )
+  DCL::sgtxzr(0.5, 0.15, DCL::sgtrnl(itr).strip+"  map_axis=#{axis.inspect}",
+	      0.03, 0, 0, 3)
+end
+
+GGraph.set_map('vpt_boundary'=>false)
+
+[10,11,12,13,14,15].each do |itr|
+  GGraph.next_fig('itr'=>itr)
+  GGraph.tone( gp )
+  DCL::sgtxzr(0.5, 0.15, DCL::sgtrnl(itr), 0.03, 0, 0, 3)
+end
+
+[20,21,22,23,30,31,32,33].each do |itr|
+  GGraph.next_fig('itr'=>itr)
+  if itr==31  # polar stereo
+    GGraph.next_map('vpt_boundary'=>3) 
+    DCL::sgpset('lclip', true)
+  else
+    DCL::sgpset('lclip', false)
+  end
+  GGraph.tone( gp )
+  DCL::sgtxzr(0.5, 0.15, DCL::sgtrnl(itr), 0.03, 0, 0, 3)
+
+  axis = [135,60,0]
+  GGraph.next_fig('itr'=>itr,'map_axis'=>axis,'map_radius'=>60.0)
+  GGraph.next_map('vpt_boundary'=>3) if itr==31  # polar stereo
+  GGraph.tone( gp.cut('lat'=>0..90) )
+  DCL::sgtxzr(0.5, 0.15, DCL::sgtrnl(itr).strip+"  map_axis=#{axis.inspect}",
+	      0.03, 0, 0, 3)
+end
+
+# < cylindrical and mercator; effects of 'map_fit' >
+
+gpjpn = gp.cut(110..160,10..70,false)
+
+itr = 10
+GGraph.next_fig('itr'=>itr)
+GGraph.tone( gpjpn )
+DCL::sgtxzr(0.5, 0.15, DCL::sgtrnl(itr).strip+'  defaut', 0.03, 0, 0, 3)
+
+itr = 10
+GGraph.next_fig('itr'=>itr, 'map_fit'=>false )
+GGraph.tone( gpjpn )
+DCL::sgtxzr(0.5, 0.15, DCL::sgtrnl(itr).strip+"  'map_fit'=>false", 0.03, 0, 0, 3)
+
+itr=11
+GGraph.next_fig('itr'=>itr)
+GGraph.tone( gpjpn )
+DCL::sgtxzr(0.5, 0.15, DCL::sgtrnl(itr).strip+'  defaut', 0.03, 0, 0, 3)
+
+GGraph.next_fig('itr'=>itr, 'map_fit'=>true)
+GGraph.tone( gpjpn)
+DCL::sgtxzr(0.5, 0.15, DCL::sgtrnl(itr).strip+"  'map_fit'=>true", 0.03, 0, 0, 3)
+
+itr = 10
+GGraph.next_fig('itr'=>itr)
+GGraph.tone( gpjpn, true, 'map_axes'=>true, 'title'=>'itr=10 & map_axes=true' )
+GGraph.contour( gpjpn, false, 'map_axes'=>true, 'title'=>'itr=10 & map_axes=true' )
+
+gpjpn2 = gp.cut(110..180,10..70,false)
+
+itr = 10
+GGraph.next_fig('itr'=>itr)
+GGraph.contour( gpjpn2, true, 'map_axes'=>true, 'title'=>'itr=10 & map_axes=true' )
+
+#itr = 10
+#GGraph.next_fig('itr'=>itr)
+#GGraph.vector( gpjpn, gpjpn, true, 'map'=>true, 'title'=>'itr=10 & map_axes=true', 'unit_vect'=>true )
+
+
+DCL.grcls
+

data/sample/ncep_theta_coord.rb

@@ -0,0 +1,79 @@
+# = Sample program to use GPhys#interpolation by using NCEP reanalysis data
+#
+# USAGE 
+# 
+#   % ruby ncep_theta_coord.rb [data_directory [varname [year [day_of_yr_from0]]]]
+# 
+# COMMAND-LINE OPTIONS
+# 
+# * data_directory : directory where the NCEP data situated -- by default
+#   an existing OPeNDAP directory is specified -- so it should work, 
+#   though it may be slow for network data transfer.
+# * others : you can guess -- see the source code.
+#
+# DESCRIPTION
+#
+# Here are two samples: one is a simple interpolation along a coordinate
+# and the other is a coordinate transformation from pressure to potential
+# temperature (isentropic coordinate).
+ 
+require "numru/ggraph"
+include NumRu
+
+
+dir = ARGV[0] || "http://db-dods.rish.kyoto-u.ac.jp/cgi-bin/nph-dods/ncep/ncep.reanalysis.dailyavgs/pressure"
+
+vname = ARGV[1] || "uwnd"   # name of the variable to be interpolated
+
+year = ARGV[2] || 2008
+iday = ( ARGV[3] || 0 ).to_i  # day of the year
+
+
+xsel = 0
+temp = GPhys::IO.open(dir+"/air.#{year}.nc","air")[xsel,false,2..-1,iday]
+gp = GPhys::IO.open(dir+"/#{vname}.#{year}.nc",vname)[xsel,false,2..-1,iday]
+
+prs = temp.axis("level").to_gphys
+p00 =  UNumeric[1000.0, "millibar"]
+kappa = 2.0 / 7.0
+pfact = (prs/p00)**(-kappa)
+
+theta = temp * pfact
+theta.name = "theta"
+theta.long_name = "potential theta"
+
+gp.set_assoc_coords([theta])
+
+tht_crd = VArray.new( NArray[300.0,350.0, 400.0, 500.0, 700.0, 800.0] ).rename("theta")
+gp_ontht = gp.interpolate("level"=>tht_crd)
+
+p_crd = VArray.new( NArray[25.0, 15.0] ).rename("level")
+p_crd.units = "hPa"
+gp_onp = gp.interpolate(p_crd)   # 1D: same as interpolate("level"=>p_crd)
+
+DCL.swpset('iwidth',800)
+DCL.swpset('iheight',800)
+
+DCL.gropn(1)
+DCL.sgpset('isub', 96)      # control character of subscription: '_' --> '`'
+DCL.glpset('lmiss',true)
+DCL.sldiv('y',2,2)
+
+GGraph::set_fig "itr"=>2
+
+GGraph::tone_and_contour theta[false],true,"int"=>50
+GGraph::color_bar
+
+GGraph::tone_and_contour gp[false],true
+GGraph::color_bar
+
+GGraph::set_fig "itr"=>1
+
+GGraph::tone_and_contour gp_onp[false],true,"keep"=>true
+GGraph::color_bar
+
+GGraph::tone_and_contour gp_ontht[false],true,"keep"=>true
+GGraph::color_bar
+
+
+DCL.grcls

data/test/eof_slp.rb

@@ -0,0 +1,28 @@
+require "numru/gphys"
+require "numru/ganalysis"
+require "numru/ggraph"
+include NumRu
+
+slp = GPhys::IO.open("slp.mon.mean.nc","slp") # ftp://ftp.cdc.noaa.gov/Datasets/ncep.reanalysis.derived/surface/slp.mon.mean.nc
+slp = slp.cut("lat"=>30..90) # 北緯30度以北のデータを使用する
+slp = slp[{0..-1,4},{0..-1,2},true] # 経度, 緯度について4, 2点おきに読む
+                                    # 計算時間を速めるため（∴不要）
+nt = slp.shape[2]
+mon = NArray.sint(12,nt/12).indgen #=> [ [0,1,..,11], [12,13,..,23], .. ]
+mon = mon[[0,1,11],true] # [0,1,11]: Jan,Feb,Dec (use [0] to include only Jan)
+mon = mon.reshape!(mon.total) # to 1D (list of months to use)
+slp = slp[true,true,mon] # 12,1,2月のデータを切取り
+
+vec,val = slp.eof("time","norder"=>2) # EOF第2モードまで計算する
+
+DCL::gropn(4)
+GGraph.set_fig("itr"=>32)
+eof = vec[true,true,0]
+if eof.cut("lat"=>90).mean > 0
+  eof = -eof # 北極における値がが負になるようにする
+end
+GGraph.tone(eof, true, "min"=>-7.0, "max"=>7.0)
+GGraph.contour(eof,false, "min"=>-7.0, "max"=>7.0)
+GGraph.map("coast_world"=>true)
+
+DCL::grcls