#!/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{

unless $index == "end" then

  print $title, "\n"

  # rd のみの出力
  #apethum_rd 
  # html も出力
  apethum

end

}


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

# インデックスファイル  $PWD/../html/${index}.html, $PWD/../html/table_${index}.rd
#$index = "mradl-composite"
$index = "mradlA-composite"

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

# 拡張子
$base = ".gif"

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

# 横にならべるファイル数

# $figtable_num = 5
$figtable_num = 4

#画像ファイルサイズ

# $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  = "baseSST q,t の qradl への感度"
#$title  = "mradl 実験に与える吸収係数の検討"
#$title  = "mradl 実験 時間平均"
#$title  = "mradl 実験 時空間スペクトル"
#$title  = "mradl 実験 コンポジット図"
$title  = "mradlA 実験 コンポジット図"

# サムネイルタイトル
$header1 = $title 
$header2 = "長波放射バンドの吸収係数を変える実験<hr> 
<p>composite 
<!--[<a href =\"mradl-composite.html\">mradl-composite</a>]-->
[<a href =\"mradlA-composite.html\">mradlA-composite</a>] 
</p>
<br>
<table BORDER=\"0\" width=\"80%\" align=\"center\"><tr align=\"left\"><td>
<small>
降水量のピークに準拠したコンポジット図. 
降水量のピークの選び方は, 
<ul>
<li> 各実験の [赤道経度-時間] 降水量データを用いる. 
<li> 3000 [W/m**s] 以上の値を持つ (経度, 時間) を抽出. 
<li> 抽出した経度の周囲 [-3〜3] grid で最大降水量を持つ点を選ぶ.  
</ul>
である. 各量のデータについて, 
選んだ点が経度180度にくるように東西に平行移動して重ねあわせ, 
その平均をとる. 
</small></td></tr></table>
<hr>
mradlA 実験(大気バンドの吸収係数を変える)<br>
「Aa -> con -> Ab -> Ac -> Ad」にしたがって上層の長波放射冷却が強まり, 下層の長波放射冷却が弱まる (qradl図参照)<br>
[<a href =\"mradlA-tmean.html\">adj-mradlA-tmean</a>] 
[<a href =\"mradlA-xteq.html\">adj-mradlA-xteq</a>] 
[<a href =\"mradlA-spct.html\">adj-mradlA-spct</a>]
[<a href =\"AGCM5_adj_tr_wk.html\">adj-mradlA-WK1999</a>]<br>
[<a href =\"kuo-mradlA-tmean.html\">kuo-mradlA-tmean</a>] 
[<a href =\"kuo-mradlA-xteq.html\">kuo-mradlA-xteq</a>] 
[<a href =\"kuo-mradlA-spct.html\">kuo-mradlA-spct</a>] 
[<a href =\"AGCM5_kuo_tr_wk.html\">kuo-mradlA-WK1999</a>]
<hr> 
animation
[<a href =\"AGCM5_kuo_con_anim.html\">kuo-con_anim</a>]
[<a href =\"AGCM5_kuo_mradlAc_anim.html\">kuo-mradlAc_anim</a>]
[<a href =\"AGCM5_adj_mradlAd_anim.html\">adj-mradlAd_anim</a>]
<!--
<hr> 
mradlQ 実験(最も上層に効く水蒸気バンドの吸収係数を変える)<br> 
「Qa -> con -> Qb -> Qc -> Qd」にしたがって上層の長波放射冷却が強まるが, 下層は変わらない(qradl図参照) <br>
[<a href =\"mradlQ-tmean.html\">adj-mradlQ-tmean</a>] 
[<a href =\"mradlQ-xteq.html\">adj-mradlQ-xteq</a>] 
[<a href =\"mradlQ-spct.html\">adj-mradlQ-spct</a>]<br>
[<a href =\"kuo-mradlQ-tmean.html\">kuo-mradlQ-tmean</a>] 
[<a href =\"kuo-mradlQ-xteq.html\">kuo-mradlQ-xteq</a>] 
[<a href =\"kuo-mradlQ-spct.html\">kuo-mradlQ-spct</a>] 
-->
<hr>
もう少しだけ詳しい実験設定については, <a href=\"mradl-study3.html\">mradl-study3.html<\/a> の設定 4, 5 参照 
"

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





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

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