#!/usr/bin/env ruby
#
# 表題: ape お絵描きサムネイル HTML 作成スクリプト
#
# 履歴: 2003/09/28 やまだ由 
#
# 注意: 本プログラムは, 
#       dcphoto.pl Ver 1.02 - 写真用 HTML作成スクリプト
#       Mitsuda Chihiro   <totera@ep.sci.hokudai.ac.jp>
#       を ruby で写経し, やまだ由用にカスタマイズしたものである 
#
#
#
#

END{

  all_exp = ["control", 
             "peaked", 
             "flat", 
             "Qobs", 
             "control-5N", 
             "1keq", 
             "3keq", 
             "3kw1" ]

  rezol_exp = ["T39L48_eml", 
    "CGAM", 
    "CSIRO_standard", 
    "CSIRO_old", 
    "DWD", 
    "ECMWF", 
    "FRCGC", 
    "GFDL", 
    "GSFC", 
    "K1JAPAN", 
    "LASG", 
    "MIT", 
    "MRI", 
    "NCAR", 
    "UKMO_n48", 
    "UKMO_n96"]

  all_exp.each{ |exp|
    exp_jikkou(exp)
    cumulus_jikkou(exp)
  }

  rezol_exp.each{ |rezol|
    rezol_jikkou(rezol)
  }


  sonota_jikkou
  mltr_sed_all

}

########################################################
##  ユーザ設定
########################################################

def jikkou

# インデックスファイル  $PWD/../html/${index}.html, $PWD/../html/table_${index}.rd
# $index = "T39L48_eml_radiation_3hour_control_sh"
# $index = "#{$head}#{$figdir}"

# 情報ファイル, $PWD/${infofile}
# $infofile = $index + ".txt"
# $infofile = "T39L48_eml_#{$figdir}.txt"

# 拡張子
$base = ".gif"

# 接頭子
# $head = "T39L48_eml_control_"

# 絵のあるディレクトリ名, $PWD/../${figdir}
# $figdir = "sh"

# 横にならべるファイル数
# $figtable_num = 3

#画像ファイルサイズ

# $width  = "160" ; $height = "120"
# $width  = "200" ; $height = "150"
# $width  = "280" ; $height = "210"

# テーブル, フォントの色
$color_table   = "#ADD8E6" 
$color_font    = "#000080" 
$color_link    = "#269900" 
$color_visited = "#269900" 
$color_hover   = "#99FF33" 

# html ヘッダタイトル
#$title  = "time-mean calculated for APE SH standard output [control]"

# サムネイルタイトル
$header1 = $title 
$header2 = "<br>
<!-- リンクがきれているところはデータを持っていない為. -->  <br><br><hr>
<br>
<!--[<a href =\"APE_sst_ga.html\">GA (Global-time mean) sst</a>]-->
<table BORDER=\"0\" cellspacing=\"10\" align=\"center\">
<tr><td><small>
AGUforAPE: 
</small></td><td><small>
[<a href =\"T39L48_eml_gt.html\">GT</a>] 
[<a href =\"T39L48_eml_sh.html\">SH</a>] 
[<a href =\"T39L48_eml_tr_wk.html\">TR</a>] 
[<a href =\"T39L48_eml_ml.html\">ML</a>] 
[<a href =\"T39L48_eml_pf.html\">PF</a>] 
[<a href =\"T39L48_eml_movie.html\">MOVIE</a>]
[<a href =\"T39L48_eml_ml_anm.html\">ML_anm</a>] 
</small></td><td><small>
CGAM
</small></td><td><small>
[<a href =\"CGAM_gt.html\">GT</a>] 
[<a href =\"CGAM_sh.html\">SH</a>] 
[<a href =\"CGAM_tr_wk.html\">TR</a>] 
[<a href =\"CGAM_ml.html\">ML</a>] 
[PF] 
[<a href =\"CGAM_movie.html\">MOVIE</a>]
[<a href =\"CGAM_ml_anm.html\">ML_anm</a>] 
</small></td></tr><tr><td><small>
CSIRO_std:
</small></td><td><small>
[<a href =\"CSIRO_standard_gt.html\">GT</a>] 
[<a href =\"CSIRO_standard_sh.html\">SH</a>] 
[<a href =\"CSIRO_standard_tr_wk.html\">TR</a>] 
[<a href =\"CSIRO_standard_ml.html\">ML</a>] 
[PF] 
[<a href =\"CSIRO_standard_movie.html\">MOVIE</a>]
[<a href =\"CSIRO_standard_ml_anm.html\">ML_anm</a>] 
</small></td><td><small>
CSIRO_old:
</small></td><td><small>
[<a href =\"CSIRO_old_gt.html\">GT</a>] 
[<a href =\"CSIRO_old_sh.html\">SH</a>] 
[<a href =\"CSIRO_old_tr_wk.html\">TR</a>] 
[<a href =\"CSIRO_old_ml.html\">ML</a>] 
[PF] 
[<a href =\"CSIRO_old_movie.html\">MOVIE</a>]
[<a href =\"CSIRO_old_ml_anm.html\">ML_anm</a>] 
</small></td></tr><tr><td><small>
DWD:
</small></td><td><small>
[<a href =\"DWD_gt.html\">GT</a>] 
[<a href =\"DWD_sh.html\">SH</a>] 
[<a href =\"DWD_tr_wk.html\">TR</a>] 
[<a href =\"DWD_ml.html\">ML</a>] 
[<a href =\"DWD_pf.html\">PF</a>] 
[<a href =\"DWD_movie.html\">MOVIE</a>]
[<a href =\"DWD_ml_anm.html\">ML_anm</a>] 
</small></td><td><small>
ECMWF:
</small></td><td><small>
[<a href =\"ECMWF_gt.html\">GT</a>] 
[<a href =\"ECMWF_sh.html\">SH</a>] 
[<a href =\"ECMWF_tr_wk.html\">TR</a>] 
[<a href =\"ECMWF_ml.html\">ML</a>] 
[<a href =\"ECMWF_pf.html\">PF</a>] 
[<a href =\"ECMWF_movie.html\">MOVIE</a>]
[<a href =\"ECMWF_ml_anm.html\">ML_anm</a>] 
</small></td></tr><tr><td><small>
ECMWF_07:
</small></td><td><small>
[GT] 
[SH] 
[TR] 
[ML] 
[PF] 
[MOVIE]
</small></td><td><small>
FRCGC:
</small></td><td><small>
[GT] 
[SH] 
[TR] 
[ML] 
[PF] 
[MOVIE]
</small></td></tr><tr><td><small>
GFDL:
</small></td><td><small>
[<a href =\"GFDL_gt.html\">GT</a>] 
[<a href =\"GFDL_sh.html\">SH</a>] 
[<a href =\"GFDL_tr_wk.html\">TR</a>] 
[<a href =\"GFDL_ml.html\">ML</a>] 
[PF] 
[<a href =\"GFDL_movie.html\">MOVIE</a>]
[<a href =\"GFDL_ml_anm.html\">ML_anm</a>] 
</small></td><td><small>
GSFC:
</small></td><td><small>
[<a href =\"GSFC_gt.html\">GT</a>] 
[<a href =\"GSFC_sh.html\">SH</a>] 
[<a href =\"GSFC_tr_wk.html\">TR</a>] 
[<a href =\"GSFC_ml.html\">ML</a>] 
[<a href =\"GSFC_pf.html\">PF</a>] 
[<a href =\"GSFC_movie.html\">MOVIE</a>]
[<a href =\"GSFC_ml_anm.html\">ML_anm</a>] 
</small></td></tr><tr><td><small>
K1JAPAN:
</small></td><td><small>
[<a href =\"K1JAPAN_gt.html\">GT</a>] 
[<a href =\"K1JAPAN_sh.html\">SH</a>] 
[<a href =\"K1JAPAN_tr_wk.html\">TR</a>] 
[<a href =\"K1JAPAN_ml.html\">ML</a>] 
[<a href =\"K1JAPAN_pf.html\">PF</a>] 
[<a href =\"K1JAPAN_movie.html\">MOVIE</a>]
[<a href =\"K1JAPAN_ml_anm.html\">ML_anm</a>] 
</small></td><td><small>
LASG:
</small></td><td><small>
[<a href =\"LASG_gt.html\">GT</a>] 
[<a href =\"LASG_sh.html\">SH</a>] 
[<a href =\"LASG_tr_wk.html\">TR</a>] 
[<a href =\"LASG_ml.html\">ML</a>] 
[<a href =\"LASG_pf.html\">PF</a>] 
[<a href =\"LASG_movie.html\">MOVIE</a>]
[<a href =\"LASG_ml_anm.html\">ML_anm</a>] 
</small></td></tr><tr><td><small>
MIT:
</small></td><td><small>
[<a href =\"MIT_gt.html\">GT</a>] 
[<a href =\"MIT_sh.html\">SH</a>] 
[<a href =\"MIT_tr_wk.html\">TR</a>] 
[<a href =\"MIT_ml.html\">ML</a>] 
[PF] 
[<a href =\"MIT_movie.html\">MOVIE</a>]
[<a href =\"MIT_ml_anm.html\">ML_anm</a>] 
</small></td><td><small>
MRI:
</small></td><td><small>
[<a href =\"MRI_gt.html\">GT</a>] 
[<a href =\"MRI_sh.html\">SH</a>] 
[<a href =\"MRI_tr_wk.html\">TR</a>] 
[<a href =\"MRI_ml.html\">ML</a>] 
[PF] 
[<a href =\"MRI_movie.html\">MOVIE</a>]
[<a href =\"MRI_ml_anm.html\">ML_anm</a>] 
</small></td></tr><tr><td><small>
NCAR: 
</small></td><td><small>
[<a href =\"NCAR_gt.html\">GT</a>] 
[<a href =\"NCAR_sh.html\">SH</a>] 
[<a href =\"NCAR_tr_wk.html\">TR</a>] 
[<a href =\"NCAR_ml.html\">ML</a>] 
[<a href =\"NCAR_pf.html\">PF</a>] 
[<a href =\"NCAR_movie.html\">MOVIE</a>]
[<a href =\"NCAR_ml_anm.html\">ML_anm</a>] 
</small></td><td><small>
<br>
</small></td><td><small>
<br>
</small></td></tr><tr><td><small>
UKMO_n48:
</small></td><td><small>
[<a href =\"UKMO_n48_gt.html\">GT</a>] 
[<a href =\"UKMO_n48_sh.html\">SH</a>] 
[<a href =\"UKMO_n48_tr_wk.html\">TR</a>] 
[<a href =\"UKMO_n48_ml.html\">ML</a>] 
[PF] 
[<a href =\"UKMO_n48_movie.html\">MOVIE</a>]
[<a href =\"UKMO_n48_ml_anm.html\">ML_anm</a>] 
</small></td><td><small>
UKMO_n96:
</small></td><td><small>
[<a href =\"UKMO_n96_gt.html\">GT</a>] 
[<a href =\"UKMO_n96_sh.html\">SH</a>] 
[<a href =\"UKMO_n96_tr_wk.html\">TR</a>] 
[<a href =\"UKMO_n96_ml.html\">ML</a>] 
[PF] 
[<a href =\"UKMO_n96_movie.html\">MOVIE</a>]
[<a href =\"UKMO_n96_ml_anm.html\">ML_anm</a>] 
</small></td></tr></table>
<hr>
[<a href =\"ape.html\"> Model </a>] 
[<a href =\"sst.html\">SST distribution</a>] 
<hr>
[<a href= \"../\">HOME</a>]
"


# サムネイルフッタ ;
$footer = "Last update: #{Time.now} <br> 
           Copyright &copy\; AGU for APE 2007 (YAMADA Yukiko)"


# ファイル生成実行
print $title, "\n" ; apethum

end



########################################################
##  include ファイル
########################################################

require 'date'
require '/home/yukiko/lib/ape-thum.rb'
$KCODE = "e"


########################################################
##  ローカル生成ルーチン
########################################################

def rezol_jikkou(rezol)

  $head = "#{rezol}_"
  $figdir = "sh"
  $index = "#{rezol}_#{$figdir}"
  $infofile = "sst_#{$figdir}.txt"
  $title  = "Aqua Planet: SH from \'#{rezol}\' Experiment; SST distribution comparison" 
  $width  = "280";  $height = "210" ; $figtable_num = 3
#  $width  = "200";  $height = "150" ; $figtable_num = 4
  jikkou

  $head = "#{rezol}_"
  $figdir = "gt"
  $index = "#{rezol}_#{$figdir}"
  $infofile = "sst_#{$figdir}.txt"
  $title  = "Aqua Planet: GT from \'#{rezol}\' Experiment; SST distribution comparison"
  $width  = "280" ; $height = "210" ; $figtable_num = 3
#  $width  = "200";  $height = "150" ; $figtable_num = 4
  jikkou

  $head = "#{rezol}_"
  $figdir = "ml"
  $index = "#{rezol}_#{$figdir}"
  $infofile = "sst_#{$figdir}.txt"
  $title  = "Aqua Planet: ML from \'#{rezol}\' Experiment; SST distribution comparison" 
  $width  = "200";  $height = "150" ; $figtable_num = 4
  jikkou

  $head = "#{rezol}_"
  $figdir = "ml"
  $index = "#{rezol}_#{$figdir}_anm"
  $infofile = "sst_#{$figdir}_anm.txt"
  $title  = "Aqua Planet: ML_anm from \'#{rezol}\' Experiment; SST distribution comparison" 
  $width  = "200";  $height = "150" ; $figtable_num = 4
  jikkou

  $head = "#{rezol}_"
  $figdir = "tr"
  $index = "#{rezol}_#{$figdir}"
  $infofile = "sst_#{$figdir}.txt"
  $title  = "Aqua Planet: TR from \'#{rezol}\' Experiment; SST distribution comparison" 
  $width  = "200";  $height = "150" ; $figtable_num = 4
  jikkou

  $head = "#{rezol}_"
  $figdir = "tr_wk"
  $index = "#{rezol}_#{$figdir}"
  $infofile = "sst_#{$figdir}.txt"
  $title  = "Aqua Planet: TR from \'#{rezol}\' Experiment; SST distribution comparison" 
#  $title  = "Aqua Planet: WK1999 plot from \'#{rezol}\' Experiment; SST distribution comparison" 
  $width  = "200";  $height = "150" ; $figtable_num = 4
  jikkou

  $head = "#{rezol}_"
  $figdir = "pf"
  $index = "#{rezol}_#{$figdir}"
  $infofile = "sst_#{$figdir}.txt"
  $title  = "Aqua Planet: PF from \'#{rezol}\' Experiment; SST distribution comparison" 
  $width  = "200" ; $height = "150" ; $figtable_num = 4
  jikkou

  $head = "#{rezol}_"
  $figdir = "movie"
  $index = "#{rezol}_#{$figdir}"
  $infofile = "sst_#{$figdir}.txt"
  $title  = "Aqua Planet: movie from \'#{rezol}\' Experiment; SST distribution comparison" 
  $width  = "200";  $height = "150" ; $figtable_num = 4
  jikkou
  anim_sed($index)

  $head = "#{rezol}_"
  $figdir = "movie"
  $index = "#{rezol}_#{$figdir}_log"
  $infofile = "sst_#{$figdir}_log.txt"
  $title  = "Aqua Planet: movie from \'#{rezol}\' Experiment; SST distribution comparison" 
  $width  = "200";  $height = "150" ; $figtable_num = 4
  jikkou
  anim_sed($index)

end

def exp_jikkou(exp)

end

def cumulus_jikkou(exp)

end

def sonota_jikkou

  $head = "sst"
  $figdir = ""
  $index = "#{$head}#{$figdir}"
  $infofile = "sst.txt"
  $title  = "Aqua Planet: SST distribution comparison" 
  $width  = "200";  $height = "150" ; $figtable_num = 4
  jikkou

  $head = ""
  $figdir = "ga"
  $index = "APE_sst_#{$figdir}"
  $infofile = "APE_sst_#{$figdir}.txt"
  $title  = "Aqua Planet: GA ; SST distribution and Model comparison" 
  $width  = "200";  $height = "150" ; $figtable_num = 4
#  $width  = "280" ; $height = "210" ; $figtable_num = 3
#  jikkou

end

def anim_sed(index)

  `sed s/-t0.gif\\"\\>/-anim.gif\\"\\>/ ../#{index}.html > tmp.html`
  `mv tmp.html ../#{index}.html`

end

def mltr_sed(index)

  `sed s/control-5N/control5n/ ../#{index}.html > tmp.html`
  `sed s/Qobs/qobs/  tmp.html > ../#{index}.html`

end

def mltr_ncar_sed(index)

#  `sed s/control-5N/control_5n/ ../#{index}.html > tmp.html`
  `sed s/control-5N/control5n/ ../#{index}.html > tmp.html`
  `sed s/Qobs/qobs/  tmp.html > ../#{index}.html`

end

def mltr_sed_all

  mltr_ncar_sed("NCAR_ml")
  mltr_ncar_sed("NCAR_ml_anm")
  mltr_ncar_sed("NCAR_tr")
  mltr_ncar_sed("NCAR_tr_wk")
  mltr_ncar_sed("NCAR_movie")
  mltr_ncar_sed("NCAR_movie_log")
  mltr_sed("GSFC_ml")
  mltr_sed("GSFC_ml_anm")
  mltr_sed("GSFC_tr")
  mltr_sed("GSFC_pf")
  mltr_sed("GSFC_tr_wk")
  mltr_sed("GSFC_movie")
  mltr_sed("GSFC_movie_log")
  mltr_sed("K1JAPAN_ml")
  mltr_sed("K1JAPAN_ml_anm")
  mltr_sed("K1JAPAN_tr")
  mltr_sed("K1JAPAN_pf")
  mltr_sed("K1JAPAN_tr_wk")
  mltr_sed("K1JAPAN_movie")
  mltr_sed("K1JAPAN_movie_log")
  mltr_sed("LASG_ml")
  mltr_sed("LASG_ml_anm")
  mltr_sed("LASG_tr")
  mltr_sed("LASG_pf")
  mltr_sed("LASG_tr_wk")
  mltr_sed("LASG_movie")
  mltr_sed("LASG_movie_log")
  mltr_sed("UKMO_n48_ml")
  mltr_sed("UKMO_n48_ml_anm")
  mltr_sed("UKMO_n48_tr")
  mltr_sed("UKMO_n48_tr_wk")
  mltr_sed("UKMO_n48_movie")
  mltr_sed("UKMO_n48_movie_log")
  mltr_sed("UKMO_n96_ml")
  mltr_sed("UKMO_n96_ml_anm")
  mltr_sed("UKMO_n96_tr")
  mltr_sed("UKMO_n96_tr_wk")
  mltr_sed("UKMO_n96_movie")
  mltr_sed("UKMO_n96_movie_log")

  mltr_sed("CGAM_ml")
  mltr_sed("CGAM_ml_anm")
  mltr_sed("CGAM_tr")
  mltr_sed("CGAM_tr_wk")
  mltr_sed("CGAM_movie")
  mltr_sed("CGAM_movie_log")

  mltr_sed("CSIRO_standard_ml")
  mltr_sed("CSIRO_standard_ml_anm")
  mltr_sed("CSIRO_standard_tr")
  mltr_sed("CSIRO_standard_tr_wk")
  mltr_sed("CSIRO_standard_movie")
  mltr_sed("CSIRO_standard_movie_log")

  mltr_sed("CSIRO_old_ml")
  mltr_sed("CSIRO_old_ml_anm")
  mltr_sed("CSIRO_old_tr")
  mltr_sed("CSIRO_old_tr_wk")
  mltr_sed("CSIRO_old_movie")
  mltr_sed("CSIRO_old_movie_log")

  mltr_sed("DWD_ml")
  mltr_sed("DWD_ml_anm")
  mltr_sed("DWD_tr")
  mltr_sed("DWD_pf")
  mltr_sed("DWD_tr_wk")
  mltr_sed("DWD_movie")
  mltr_sed("DWD_movie_log")

  mltr_sed("ECMWF_ml")
  mltr_sed("ECMWF_ml_anm")
  mltr_sed("ECMWF_tr")
  mltr_sed("ECMWF_pf")
  mltr_sed("ECMWF_tr_wk")
  mltr_sed("ECMWF_movie")
  mltr_sed("ECMWF_movie_log")

  mltr_sed("GFDL_ml")
  mltr_sed("GFDL_ml_anm")
  mltr_sed("GFDL_tr")
  mltr_sed("GFDL_tr_wk")
  mltr_sed("GFDL_movie")
  mltr_sed("GFDL_movie_log")

  mltr_sed("MIT_ml")
  mltr_sed("MIT_ml_anm")
  mltr_sed("MIT_tr")
  mltr_sed("MIT_tr_wk")
  mltr_sed("MIT_movie")
  mltr_sed("MIT_movie_log")

  mltr_sed("MRI_ml")
  mltr_sed("MRI_ml_anm")
  mltr_sed("MRI_tr")
  mltr_sed("MRI_tr_wk")
  mltr_sed("MRI_movie")
  mltr_sed("MRI_movie_log")

end