#!/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", 
             "flat3keq", 
             "Qobs3keq", 
             "H1998con", 
             "H1998pa" ]

#  rezol_exp = ["T39L48_eml", "T39L24_eml", "T79L48_eml", "T159L48_eml"]

  rezol_exp = ["T39L48_eml", "T39L24_eml", "T39L96_eml","T79L48_eml", 
    "T159L48_eml", 
    "T39L48_non", "T39L24_non", "T39L96_non","T79L48_non", "T159L48_non", 
    "T39L48_ias", "T39L48_kuo", "T39L48_mca", "T39L48_non" ]
 
#  cumulus_exp = ["T39L48_eml", "T39L48_ias", "T39L48_kuo", "T39L48_mca", "T39L48_non"] 

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

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



  sonota_jikkou

}

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

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>
[Resolution comparison(eml)] <br>
[<a href =\"eml_ga.html\">GA</a>] 
<table BORDER=\"0\" cellspacing=\"10\" align=\"center\">
<tr><td><small>
control: 
</small></td><td><small>
[<a href =\"eml_control_gt.html\">GT</a>] 
[<a href =\"eml_control_sh.html\">SH</a>] 
[<a href =\"eml_control_tr.html\">TR</a>] 
[<a href =\"eml_control_ml.html\">ML</a>] 
[MF] 
[<a href =\"eml_control_composite.html\">COMP</a>] 
[<a href =\"eml_control_movie.html\">MOVIE</a>] 
</small></td><td><small>
peaked:
</small></td><td><small>
[<a href =\"eml_peaked_gt.html\">GT</a>] 
[<a href =\"eml_peaked_sh.html\">SH</a>] 
[<a href =\"eml_peaked_tr.html\">TR</a>] 
[<a href =\"eml_peaked_ml.html\">ML</a>] 
[MF] 
[<a href =\"eml_peaked_movie.html\">MOVIE</a>] 
</small></td></tr><tr><td><small>
flat: 
</small></td><td><small>
[<a href =\"eml_flat_gt.html\">GT</a>] 
[<a href =\"eml_flat_sh.html\">SH</a>] 
[<a href =\"eml_flat_tr.html\">TR</a>] 
[<a href =\"eml_flat_ml.html\">ML</a>] 
[MF] 
[<a href =\"eml_flat_movie.html\">MOVIE</a>] 
</small></td><td><small>
Qobs:
</small></td><td><small>
[<a href =\"eml_Qobs_gt.html\">GT</a>] 
[<a href =\"eml_Qobs_sh.html\">SH</a>] 
[<a href =\"eml_Qobs_tr.html\">TR</a>] 
[<a href =\"eml_Qobs_ml.html\">ML</a>] 
[MF] 
[<a href =\"eml_Qobs_movie.html\">MOVIE</a>] 
</small></td></tr><tr><td><small>
control-5N: 
</small></td><td><small>
[<a href =\"eml_control-5N_gt.html\">GT</a>] 
[<a href =\"eml_control-5N_sh.html\">SH</a>] 
[<a href =\"eml_control-5N_tr.html\">TR</a>] 
[<a href =\"eml_control-5N_ml.html\">ML</a>] 
[MF]
[<a href =\"eml_control-5N_movie.html\">MOVIE</a>] 
</small></td><td><small>
1keq:
</small></td><td><small>
[<a href =\"eml_1keq_gt.html\">GT</a>] 
[<a href =\"eml_1keq_sh.html\">SH</a>] 
[<a href =\"eml_1keq_tr.html\">TR</a>] 
[<a href =\"eml_1keq_ml.html\">ML</a>] 
[MF] 
[<a href =\"eml_1keq_movie.html\">MOVIE</a>] 
</small></td></tr><tr><td><small>
3keq: 
</small></td><td><small>
[<a href =\"eml_3keq_gt.html\">GT</a>] 
[<a href =\"eml_3keq_sh.html\">SH</a>] 
[<a href =\"eml_3keq_tr.html\">TR</a>] 
[<a href =\"eml_3keq_ml.html\">ML</a>] 
[MF] 
[<a href =\"eml_3keq_movie.html\">MOVIE</a>] 
</small></td><td><small>
3kw1:
</small></td><td><small>
[<a href =\"eml_3kw1_gt.html\">GT</a>] 
[<a href =\"eml_3kw1_sh.html\">SH</a>] 
[<a href =\"eml_3kw1_tr.html\">TR</a>] 
[<a href =\"eml_3kw1_ml.html\">ML</a>] 
[MF] 
[<a href =\"eml_1kw1_movie.html\">MOVIE</a>] 
</small></td></tr></table>
<hr>
[Resolution comparison(non)]<br>
[<a href =\"non_ga.html\">GA</a>]
<table BORDER=\"0\" cellspacing=\"10\" align=\"center\">
<tr><td><small>
control: 
</small></td><td><small>
[<a href =\"non_control_gt.html\">GT</a>] 
[<a href =\"non_control_sh.html\">SH</a>] 
[<a href =\"non_control_tr.html\">TR</a>] 
[<a href =\"non_control_ml.html\">ML</a>] 
[MF] 
[<a href =\"non_control_composite.html\">COMP</a>] 
[<a href =\"non_control_movie.html\">MOVIE</a>] 
</small></td><td><small>
peaked:
</small></td><td><small>
[<a href =\"non_peaked_gt.html\">GT</a>] 
[<a href =\"non_peaked_sh.html\">SH</a>] 
[<a href =\"non_peaked_tr.html\">TR</a>] 
[<a href =\"non_peaked_ml.html\">ML</a>] 
[MF] 
[<a href =\"non_peaked_movie.html\">MOVIE</a>] 
</small></td></tr><tr><td><small>
flat: 
</small></td><td><small>
[<a href =\"non_flat_gt.html\">GT</a>] 
[<a href =\"non_flat_sh.html\">SH</a>] 
[<a href =\"non_flat_tr.html\">TR</a>] 
[<a href =\"non_flat_ml.html\">ML</a>] 
[MF] 
[<a href =\"non_flat_movie.html\">MOVIE</a>] 
</small></td><td><small>
Qobs:
</small></td><td><small>
[<a href =\"non_Qobs_gt.html\">GT</a>] 
[<a href =\"non_Qobs_sh.html\">SH</a>] 
[<a href =\"non_Qobs_tr.html\">TR</a>] 
[<a href =\"non_Qobs_ml.html\">ML</a>] 
[MF] 
[<a href =\"non_Qobs_movie.html\">MOVIE</a>] 
</small></td></tr><tr><td><small>
control-5N: 
</small></td><td><small>
[<a href =\"non_control-5N_gt.html\">GT</a>] 
[<a href =\"non_control-5N_sh.html\">SH</a>] 
[<a href =\"non_control-5N_tr.html\">TR</a>] 
[<a href =\"non_control-5N_ml.html\">ML</a>] 
[MF]
[<a href =\"non_control-5N_movie.html\">MOVIE</a>] 
</small></td><td><small>
1keq:
</small></td><td><small>
[<a href =\"non_1keq_gt.html\">GT</a>] 
[<a href =\"non_1keq_sh.html\">SH</a>] 
[<a href =\"non_1keq_tr.html\">TR</a>] 
[<a href =\"non_1keq_ml.html\">ML</a>] 
[MF] 
[<a href =\"non_1keq_movie.html\">MOVIE</a>] 
</small></td></tr><tr><td><small>
3keq: 
</small></td><td><small>
[<a href =\"non_3keq_gt.html\">GT</a>] 
[<a href =\"non_3keq_sh.html\">SH</a>] 
[<a href =\"non_3keq_tr.html\">TR</a>] 
[<a href =\"non_3keq_ml.html\">ML</a>] 
[MF] 
[<a href =\"non_3keq_movie.html\">MOVIE</a>] 
</small></td><td><small>
3kw1:
</small></td><td><small>
[<a href =\"non_3kw1_gt.html\">GT</a>] 
[<a href =\"non_3kw1_sh.html\">SH</a>] 
[<a href =\"non_3kw1_tr.html\">TR</a>] 
[<a href =\"non_3kw1_ml.html\">ML</a>] 
[MF] 
[<a href =\"non_1kw1_movie.html\">MOVIE</a>] 
</small></td></tr></table>
<hr>
[SST distribution comparison]
<table BORDER=\"0\" cellspacing=\"10\" align=\"center\">
<tr><td><small>
T39L48_eml: 
</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.html\">TR</a>] 
[<a href =\"T39L48_eml_ml.html\">ML</a>] 
[MF] 
[<a href =\"T39L48_eml_movie.html\">MOVIE</a>] 
</small></td><td><small>
T39L24_eml: 
</small></td><td><small>
[<a href =\"T39L24_eml_gt.html\">GT</a>] 
[<a href =\"T39L24_eml_sh.html\">SH</a>] 
[<a href =\"T39L24_eml_tr.html\">TR</a>] 
[<a href =\"T39L24_eml_ml.html\">ML</a>] 
[MF] 
[<a href =\"T39L24_eml_movie.html\">MOVIE</a>] 
</small></td></tr><tr><td><small>
T39L96_eml: 
</small></td><td><small>
[<a href =\"T39L96_eml_gt.html\">GT</a>] 
[<a href =\"T39L96_eml_sh.html\">SH</a>] 
[<a href =\"T39L96_eml_tr.html\">TR</a>] 
[<a href =\"T39L96_eml_ml.html\">ML</a>] 
[MF] 
[<a href =\"T39L96_eml_movie.html\">MOVIE</a>] 
</small></td><td><small>
T79L48_eml: 
</small></td><td><small>
[<a href =\"T79L48_eml_gt.html\">GT</a>] 
[<a href =\"T79L48_eml_sh.html\">SH</a>] 
[<a href =\"T79L48_eml_tr.html\">TR</a>] 
[<a href =\"T79L48_eml_ml.html\">ML</a>] 
[MF] 
[<a href =\"T79L48_eml_movie.html\">MOVIE</a>] 
</small></td></tr><tr><td><small>
T159L48_eml: 
</small></td><td><small>
[<a href =\"T159L48_eml_gt.html\">GT</a>] 
[<a href =\"T159L48_eml_sh.html\">SH</a>] 
[TR] 
[<a href =\"T159L48_eml_ml.html\">ML</a>] 
[MF] 
</small></td><td><small>
T319L48_eml: 
</small></td><td><small>
[GT] 
[SH] 
[TR] 
[ML] 
[MF] 
</small></td></tr><tr><td><small>
T39L48_non: 
</small></td><td><small>
[<a href =\"T39L48_non_gt.html\">GT</a>] 
[<a href =\"T39L48_non_sh.html\">SH</a>] 
[<a href =\"T39L48_non_tr.html\">TR</a>] 
[<a href =\"T39L48_non_ml.html\">ML</a>] 
[MF] 
[<a href =\"T39L48_non_movie.html\">MOVIE</a>] 
</small></td><td><small>
T39L24_non: 
</small></td><td><small>
[<a href =\"T39L24_non_gt.html\">GT</a>] 
[<a href =\"T39L24_non_sh.html\">SH</a>] 
[<a href =\"T39L24_non_tr.html\">TR</a>] 
[<a href =\"T39L24_non_ml.html\">ML</a>] 
[MF] 
[<a href =\"T39L24_non_movie.html\">MOVIE</a>] 
</small></td></tr><tr><td><small>
T39L96_non: 
</small></td><td><small>
[<a href =\"T39L96_non_gt.html\">GT</a>] 
[<a href =\"T39L96_non_sh.html\">SH</a>] 
[<a href =\"T39L96_non_tr.html\">TR</a>] 
[<a href =\"T39L96_non_ml.html\">ML</a>] 
[MF] 
[<a href =\"T39L96_non_movie.html\">MOVIE</a>] 
</small></td><td><small>
T79L48_non: 
</small></td><td><small>
[<a href =\"T79L48_non_gt.html\">GT</a>] 
[<a href =\"T79L48_non_sh.html\">SH</a>] 
[<a href =\"T79L48_non_tr.html\">TR</a>] 
[<a href =\"T79L48_non_ml.html\">ML</a>] 
[MF] 
[<a href =\"T79L48_non_movie.html\">MOVIE</a>] 
</small></td></tr><tr><td><small>
T159L48_non: 
</small></td><td><small>
[<a href =\"T159L48_non_gt.html\">GT</a>] 
[<a href =\"T159L48_non_sh.html\">SH</a>] 
[TR] 
[<a href =\"T159L48_non_ml.html\">ML</a>] 
[MF] 
</small></td><td><small>
T319L48_non: 
</small></td><td><small>
[GT] 
[SH] 
[TR] 
[ML] 
[MF] 
</small></td></tr><tr><td><small>
T39L48_ias: 
</small></td><td><small>
[<a href =\"T39L48_ias_gt.html\">GT</a>] 
[<a href =\"T39L48_ias_sh.html\">SH</a>] 
[<a href =\"T39L48_ias_tr.html\">TR</a>] 
[<a href =\"T39L48_ias_ml.html\">ML</a>] 
[MF] 
[<a href =\"T39L48_ias_movie.html\">MOVIE</a>] 
</small></td><td><small>
T39L48_kuo: 
</small></td><td><small>
[<a href =\"T39L48_kuo_gt.html\">GT</a>] 
[<a href =\"T39L48_kuo_sh.html\">SH</a>] 
[<a href =\"T39L48_kuo_tr.html\">TR</a>] 
[<a href =\"T39L48_kuo_ml.html\">ML</a>] 
[MF] 
[<a href =\"T39L48_kuo_movie.html\">MOVIE</a>] 
</small></td></tr><tr><td><small>
T39L48_mca: 
</small></td><td><small>
[<a href =\"T39L48_mca_gt.html\">GT</a>] 
[<a href =\"T39L48_mca_sh.html\">SH</a>] 
[<a href =\"T39L48_mca_tr.html\">TR</a>] 
[<a href =\"T39L48_mca_ml.html\">ML</a>] 
[MF] 
[<a href =\"T39L48_mca_movie.html\">MOVIE</a>] 
</small></td><td><small>
T39L48_non: 
</small></td><td><small>
[<a href =\"T39L48_non_gt.html\">GT</a>] 
[<a href =\"T39L48_non_sh.html\">SH</a>] 
[<a href =\"T39L48_non_tr.html\">TR</a>] 
[<a href =\"T39L48_non_ml.html\">ML</a>] 
[MF] 
[<a href =\"T39L48_non_movie.html\">MOVIE</a>] 
</small></td></tr></table>
<hr>
[Cumulus scheme comparison (T39L48)]<br>
[<a href =\"T39L48_ga.html\">GA</a>]
<table BORDER=\"0\" cellspacing=\"10\" align=\"center\">
<tr><td><small>
control: 
</small></td><td><small>
[<a href =\"T39L48_control_gt.html\">GT</a>] 
[<a href =\"T39L48_control_sh.html\">SH</a>] 
[<a href =\"T39L48_control_tr.html\">TR</a>] 
[<a href =\"T39L48_control_ml.html\">ML</a>] 
[MF] 
[<a href =\"T39L48_control_composite.html\">COMP</a>] 
[<a href =\"T39L48_control_movie.html\">MOVIE</a>] 
</small></td><td><small>
peaked:
</small></td><td><small>
[GT] 
[SH] 
[TR] 
[ML] 
[MF] 
</small></td></tr><tr><td><small>
flat: 
</small></td><td><small>
[<a href =\"T39L48_flat_gt.html\">GT</a>] 
[<a href =\"T39L48_flat_sh.html\">SH</a>] 
[<a href =\"T39L48_flat_tr.html\">TR</a>] 
[<a href =\"T39L48_flat_ml.html\">ML</a>] 
[MF] 
[<a href =\"T39L48_flat_movie.html\">MOVIE</a>] 
</small></td><td><small>
Qobs:
</small></td><td><small>
[<a href =\"T39L48_Qobs_gt.html\">GT</a>] 
[<a href =\"T39L48_Qobs_sh.html\">SH</a>] 
[<a href =\"T39L48_Qobs_tr.html\">TR</a>] 
[<a href =\"T39L48_Qobs_ml.html\">ML</a>] 
[MF] 
[<a href =\"T39L48_Qobs_movie.html\">MOVIE</a>] 
</small></td></tr><tr><td><small>
control-5N: 
</small></td><td><small>
[GT] 
[SH] 
[TR] 
[ML] 
[MF] 
</small></td><td><small>
1keq:
</small></td><td><small>
[GT] 
[SH] 
[TR] 
[ML] 
[MF] 
[SHanm]
</small></td></tr><tr><td><small>
3keq: 
</small></td><td><small>
[<a href =\"T39L48_3keq_gt.html\">GT</a>] 
[<a href =\"T39L48_3keq_sh.html\">SH</a>] 
[<a href =\"T39L48_3keq_tr.html\">TR</a>] 
[<a href =\"T39L48_3keq_ml.html\">ML</a>] 
[MF] 
[<a href =\"T39L48_3keq_sh_anm.html\">SHanm</a>] 
[<a href =\"T39L48_3keq_movie.html\">MOVIE</a>] 
</small></td><td><small>
3kw1:
</small></td><td><small>
[GT] 
[SH] 
[TR] 
[ML] 
[MF] 
[SHanm]
</small></td></tr><tr><td><small>
flat3keq: 
</small></td><td><small>
[<a href =\"T39L48_flat3keq_gt.html\">GT</a>] 
[<a href =\"T39L48_flat3keq_sh.html\">SH</a>] 
[<a href =\"T39L48_flat3keq_tr.html\">TR</a>] 
[<a href =\"T39L48_flat3keq_ml.html\">ML</a>] 
[MF]
[<a href =\"T39L48_flat3keq_sh_anm.html\">SHanm</a>] 
[<a href =\"T39L48_flat3keq_movie.html\">MOVIE</a>] 
</small></td><td><small>
Qobs3keq:
</small></td><td><small>
[<a href =\"T39L48_Qobs3keq_gt.html\">GT</a>] 
[<a href =\"T39L48_Qobs3keq_sh.html\">SH</a>] 
[<a href =\"T39L48_Qobs3keq_tr.html\">TR</a>] 
[<a href =\"T39L48_Qobs3keq_ml.html\">ML</a>] 
[MF] 
[<a href =\"T39L48_Qobs3keq_sh_anm.html\">SHanm</a>] 
[<a href =\"T39L48_Qobs3keq_movie.html\">MOVIE</a>] 
</small></td></tr><tr><td><small>
H1998con: 
</small></td><td><small>
[<a href =\"T39L48_H1998con_gt.html\">GT</a>] 
[<a href =\"T39L48_H1998con_sh.html\">SH</a>] 
[<a href =\"T39L48_H1998con_tr.html\">TR</a>] 
[<a href =\"T39L48_H1998con_ml.html\">ML</a>] 
[MF] 
[<a href =\"T39L48_H1998con_movie.html\">MOVIE</a>] 
</small></td><td><small>
H1998pa:
</small></td><td><small>
[<a href =\"T39L48_H1998pa_gt.html\">GT</a>] 
[<a href =\"T39L48_H1998pa_sh.html\">SH</a>] 
[<a href =\"T39L48_H1998pa_tr.html\">TR</a>] 
[<a href =\"T39L48_H1998pa_ml.html\">ML</a>]
[MF] 
[<a href =\"T39L48_H1998pa_sh_anm.html\">SHanm</a>] 
[<a href =\"T39L48_H1998pa_movie.html\">MOVIE</a>] 
</small></td></tr></table>
<hr>
[<a href= \"../\">HOME</a>]
"


# サムネイルフッタ ;
$footer = "Last update: #{Time.now} <br> 
           Copyright &copy\; AGU for APE 2004 (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 = "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 = "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)

end

def exp_jikkou(exp)

  $head = "eml_#{exp}_"
#  $head = ""
  $figdir = "sh"
  $index = "eml_#{exp}_#{$figdir}"
  $infofile = "rezol_#{$figdir}.txt"
#  $infofile = "#{exp}_#{$figdir}.txt"
  $title  = "Aqua Planet: SH from \'#{exp}\' Experiment; Resolution comparison (Emanuel)" 
  $width  = "280";  $height = "210" ; $figtable_num = 3
#  $width  = "200";  $height = "150" ; $figtable_num = 4
  jikkou

  $head = "eml_#{exp}_"
#  $head = ""
  $figdir = "gt"
  $index = "eml_#{exp}_#{$figdir}"
  $infofile = "rezol_#{$figdir}.txt"
#  $infofile = "#{exp}_#{$figdir}.txt"
  $title  = "Aqua Planet: GT from \'#{exp}\' Experiment; Resolution comparison (Emanuel)"
  $width  = "280" ; $height = "210" ; $figtable_num = 3
#  $width  = "200";  $height = "150" ; $figtable_num = 4
  jikkou

  $head = ""
  $figdir = "ml"
  $index = "eml_#{exp}_#{$figdir}"
  $infofile = "eml_#{exp}_#{$figdir}.txt"
  $title  = "Aqua Planet: ML from \'#{exp}\' Experiment; Resolution comparison (Emanuel)" 
  $width  = "280" ; $height = "210" ; $figtable_num = 3
  jikkou

  $head = ""
  $figdir = "tr"
  $index = "eml_#{exp}_#{$figdir}"
  $infofile = "eml_#{exp}_#{$figdir}.txt"
  $title  = "Aqua Planet: TR from \'#{exp}\' Experiment; Resolution comparison (Emanuel)" 
  $width  = "280" ; $height = "210" ; $figtable_num = 3
  jikkou

  $head = ""
  $figdir = "movie"
  $index = "eml_#{exp}_#{$figdir}"
  $infofile = "eml_#{exp}_#{$figdir}.txt"
  $title  = "Aqua Planet: movie from \'#{exp}\' Experiment; Resolution comparison (Emanuel)" 
  $width  = "280" ; $height = "210" ; $figtable_num = 3
  jikkou
  anim_sed($index)

  # no cumulus

  $head = "non_#{exp}_"
  $figdir = "sh"
  $index = "non_#{exp}_#{$figdir}"
  $infofile = "rezol_#{$figdir}.txt"
  $title  = "Aqua Planet: SH from \'#{exp}\' Experiment; Resolution comparison (no cumulus scheme)" 
  $width  = "280";  $height = "210" ; $figtable_num = 3
  jikkou

  $head = "non_#{exp}_"
  $figdir = "gt"
  $index = "non_#{exp}_#{$figdir}"
  $infofile = "rezol_#{$figdir}.txt"
  $title  = "Aqua Planet: GT from \'#{exp}\' Experiment; Resolution comparison (no cumulus scheme)"
  $width  = "280" ; $height = "210" ; $figtable_num = 3
  jikkou

  $head = ""
  $figdir = "ml"
  $index = "non_#{exp}_#{$figdir}"
  $infofile = "non_#{exp}_#{$figdir}.txt"
  $title  = "Aqua Planet: ML from \'#{exp}\' Experiment; Resolution comparison (no cumulus scheme)" 
  $width  = "280" ; $height = "210" ; $figtable_num = 3
  jikkou

  $head = ""
  $figdir = "tr"
  $index = "non_#{exp}_#{$figdir}"
  $infofile = "non_#{exp}_#{$figdir}.txt"
  $title  = "Aqua Planet: TR from \'#{exp}\' Experiment; Resolution comparison (no cumulus scheme)" 
  $width  = "280" ; $height = "210" ; $figtable_num = 3
  jikkou

  $head = ""
  $figdir = "movie"
  $index = "non_#{exp}_#{$figdir}"
  $infofile = "non_#{exp}_#{$figdir}.txt"
  $title  = "Aqua Planet: movie from \'#{exp}\' Experiment; Resolution comparison (no cumulus scheme)" 
  $width  = "280" ; $height = "210" ; $figtable_num = 3
  jikkou
  anim_sed($index)

end

def cumulus_jikkou(exp)

  $head = "T39L48_#{exp}_"
  $figdir = "sh"
  $index = "T39L48_#{exp}_#{$figdir}"
  $infofile = "rezol_#{$figdir}.txt"
  $title  = "Aqua Planet: SH from \'#{exp}\' Experiment; Cumulus scheme comparison" 
  $width  = "280";  $height = "210" ; $figtable_num = 3
  jikkou

  $head = "T39L48_#{exp}_"
  $figdir = "gt"
  $index = "T39L48_#{exp}_#{$figdir}"
  $infofile = "rezol_#{$figdir}.txt"
  $title  = "Aqua Planet: GT from \'#{exp}\' Experiment; Cumulus scheme comparison"  
  $width  = "280" ; $height = "210" ; $figtable_num = 3
  jikkou

  $head = "T39L48_"
  $figdir = "ml"
  $index = "T39L48_#{exp}_#{$figdir}"
  $infofile = "T39L48_#{exp}_#{$figdir}.txt"
  $title  = "Aqua Planet: ML from \'#{exp}\' Experiment; Cumulus scheme comparison"  
  $width  = "280" ; $height = "210" ; $figtable_num = 3
  jikkou

  $head = "T39L48_"
  $figdir = "tr"
  $index = "T39L48_#{exp}_#{$figdir}"
  $infofile = "T39L48_#{exp}_#{$figdir}.txt"
  $title  = "Aqua Planet: TR from \'#{exp}\' Experiment; Cumulus scheme comparison"  
  $width  = "280" ; $height = "210" ; $figtable_num = 3
  jikkou

  $head = "T39L48_"
  $figdir = "sh"
  $index = "T39L48_#{exp}_#{$figdir}_anm"
  $infofile = "T39L48_#{exp}_#{$figdir}_anm.txt"
  $title  = "Aqua Planet: SH_anm from \'#{exp}\' Experiment; Cumulus scheme comparison"  
  $width  = "280" ; $height = "210" ; $figtable_num = 3
  jikkou

  $head = "T39L48_"
  $figdir = "movie"
  $index = "T39L48_#{exp}_#{$figdir}"
  $infofile = "T39L48_#{exp}_#{$figdir}.txt"
  $title  = "Aqua Planet: movie from \'#{exp}\' Experiment; Cumulus scheme comparison"  
  $width  = "280" ; $height = "210" ; $figtable_num = 3
  jikkou
  anim_sed($index)

end

def sonota_jikkou

  $head = ""
  $figdir = "composite"
  $index = "eml_control_#{$figdir}"
  $infofile = "#{$index}.txt"
  $title  = "Aqua Planet: Composite from \'control\' Experiment; Resolution comparison" 
  $width  = "280" ; $height = "210" ; $figtable_num = 3
  jikkou

  $head = ""
  $figdir = "ga"
  $index = "eml_#{$figdir}"
  $infofile = "eml_#{$figdir}.txt"
  $title  = "Aqua Planet: GA ; Resolution and Sst comparison (Emanuel)"
  $width  = "280" ; $height = "210" ; $figtable_num = 3
  jikkou

  $head = ""
  $figdir = "ga"
  $index = "non_#{$figdir}"
  $infofile = "non_#{$figdir}.txt"
  $title  = "Aqua Planet: GA ; Resolution and Sst comparison (no cumulus scheme)"
  $width  = "280" ; $height = "210" ; $figtable_num = 3
  jikkou

  $head = ""
  $figdir = "ga"
  $index = "T39L48_#{$figdir}"
  $infofile = "T39L48_#{$figdir}.txt"
  $title  = "Aqua Planet: GA ; Cumulus scheme comparison"  
  $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