#
# dcpam の hoge 年目の年平均・東西平均を描画する ctl スクリプト
#
# useage: draw_ctl_zmyr.rb を実行する.
#         
# * 2011/01/11 drawzm_ctl.rb を編集

require "numru/ggraph"
include NumRu

   dirD = '..'
   vnameD = ARGV[1]

# 実験の指定
# * draw_ctl 実行時に引数で与える.
#   * 引数なし(Earth 実験), 00, 23.44, 60, 90 のいずれか

   exp = ARGV[0]

   if exp == nil then
     exp = "Earth"
   end
   p 'exp: ' + exp.to_s

   if exp == "Earth" then
     iyrsD = 3
     iyreD = 3
   elsif exp == "00" || exp == "23.44" || exp == "60" || exp == "90" then
     iyrsD = 10
     iyreD = 10
   end

   dirN = '/home2/yukai-home2/NCEP'
   vnameN = ARGV[2]

   iyrsN = 1988
   iyreN = 2007

figdir = 'figs_zm_clim_yr_' + exp.to_s

if FileTest::directory?(figdir) == false then  
    Dir::mkdir( figdir )
    Dir::mkdir( figdir+'/eps' )
end

system('ruby drawzm_yr.rb ' + dirD + ' ' + dirN  + ' ' + vnameD + ' ' + vnameN + ' ' + iyrsD.to_s + ' ' + iyreD.to_s + ' ' + iyrsN.to_s + ' ' + iyreN.to_s + ' '+ exp.to_s )


# png ファイルの作成

   com = sprintf( "convert -rotate 90 dcl.ps " + vnameD + "_zm_yr.png" )
   system(com)

# eps ファイルの作成

   com = sprintf( "convert -rotate 90 dcl.ps " + vnameD + "_zm_yr.eps" )
   system(com)


# 移動

   com = sprintf( "mv *.png "+figdir )
   system(com)

   com = sprintf( "mv *.eps "+figdir+"/eps/" )
   system(com)