gphys 1.1.1a

data/lib/numru/gphys/gpcommon.rb

@@ -0,0 +1,52 @@
+=begin
+=gpcommon.rb
+
+ This library provides common methods used in gp* command. 
+
+==METHOD LIST
+
+  * help                           : print help message
+
+  * NumRu::Netcdf.copy_global_att  : Copy global attributes from a Gphys 
+                                     variable. It operates only when a gphys 
+                                     variable consist of a NetCDF file.
+
+==HISTORY
+
+  2005/08/23  S Takehiro (created)
+  2008/02/14  S Takehiro (copy_global_att can deal with GPhys 
+                          which consists of multiple files)
+
+=end
+
+#------------------------ print help message ------------------------
+def help
+  file = File.open($0)
+  after_begin = false
+  after_end = false
+  while (line = file.gets)
+    after_end = true if /^=end/ =~ line
+    print line if after_begin && !after_end
+    after_begin = true if /^=begin/ =~ line
+  end
+  file.close
+end
+
+#------------- Copy global attributes (only for NetCDF file) --------
+class NumRu::NetCDF
+  def copy_global_att(gp)
+    ncfiles = gp.data.file 
+    # for gphys consisting of multiple files 
+    if /NArray/  =~ ncfiles.class.to_s  
+      ncfile = ncfiles[0]
+    else
+      ncfile = ncfiles
+    end
+    # Check whether gphys is a NetCDF file or not
+    if /NetCDF/  =~ ncfile.class.to_s
+      ncfile.each_att{|att|
+        att.copy(self)
+      }
+    end
+  end
+end