#!/usr/bin/env ruby
#
#= dcmodel thumnail generate ruby script
#
#  Editor :: sugiyama
#  Version:: 2005/04/22 09:07:53
#
#== Overview
#
#This file is generate by following ruby script automatically.
#
#      /GFD_Dennou_Club/ftp/arch/dcmodel/ClipBoard/dcmodel-thum_2005-04-19/dcmodel-thum.rb
#
#Please edit this file according to your purpose.
#
#== Usage
#
#
##################################################

require "/GFD_Dennou_Club/ftp/arch/dcmodel/ClipBoard/dcmodel-thum_2005-04-19/dcmodel-thum.rb"

######################################################
if $0 == __FILE__ then
  thumb = DCModelThumbnail.new

#  thumb.copyright = "GFD Dennou Club"
  thumb.index     = "../arare-hikaku"
#  thumb.index_ext = ".htm"
  thumb.infofile  = "htmlname.txt"
#  thumb.ext_list.push("bmp")
#  thumb.headlimit = "headlimit_"
#  thumb.figdir    = "../figdir"
#  thumb.css       = "/GFD_Dennou_Club/ftp/arch/dcmodel/htmltools/dcmodel.css"
#  thumb.rd2_path  = "/usr/bin/rd2"
#  thumb.rd2htmlextlib = "/GFD_Dennou_Club/ftp/arch/dcmodel/lib"
#  thumb.img_width  = 200
#  thumb.img_height = 150
#  thumb.figtable_num = 3
#  thumb.html_author  = "deepconv"
  thumb.title     = "deepconv/arare3 比較実験(コンパイラ & 線形計算パッケージ)"
  thumb.message   = Array.new
  thumb.message   << <<-MSG
=begin
[((<地球流体電脳倶楽部|URL:http://www.gfd-dennou.org>))]
[((<dcmodel|URL:http://www.gfd-dennou.org/arch/dcmodel>)) |
((<dcmodel-tools|URL:http://www.gfd-dennou.org/arch/dcmodel/bin>))]

= deepconv/arare3 比較実験(コンパイラ & 線形計算)

== はじめに

deepconv/arare2 までは Fortran Compiler として Fujitsu Fortran Compiler (FFC), 
線形計算パッケージとして SSL2 しかサポートしていなかった. しかし 
deepconv/arare3 からは Fortran Compiler として g95, 線形計算パッケージ
として LAPACK もサポートすることにした. 

そこで以下の組み合わせについて数値計算をおこない, その結果を表示する. 

  * FFC & SSL2 (DLTX ルーチン利用)
  * FFC & LAPACK (DGSTV ルーチン利用)
  * g95 & LAPACK (DGSTV ルーチン利用)


== 実験設定

=end
  MSG

  thumb.message   << <<-MSG
<table border=1>
  <tr>
    <td>プログラムソース</td>
    <td>
      <a href="./arare3/">deepconv/arare3 beta (2005/04/22)</a>
    </td>
  </tr>
  <tr>
    <td>設定ファイル</td>
    <td>
      <a href="arare3/arare.conf">arare.conf (2005/04/22)</a>
    </td>
  </tr>
  <tr>
    <td>基本場の温度</td>
    <td>温位一様(300 K)</td>
  </tr>
  <tr>
    <td>音速</td>
    <td>350 m/s</td>
  </tr>
  <tr>
    <td>基本場の風速</td>
    <td>0 m/s</td>
  </tr>
  <tr>
    <td>音波の減衰</td>
    <td>  5.0d-7 * ( DelX ** 2.0d0 ) / DelTimeShort </td>
  </tr>
  <tr>
    <td>粘性拡散</td>
    <td>2.5 次のクロージャーを利用</td>
  </tr>
  <tr>
    <td>数値粘性係数</td>
    <td> 5.0d-4 * ( DelX ** 2.0d0 ) / DelTimeLong </td>
  </tr>
  <tr>
    <td>重力</td>
    <td> 9.8 m/s^2</td>
  </tr>
  <tr>
    <td>定圧比熱</td>
    <td>1004 J K^-1 kg^-1</td>
  </tr>
  <tr>
    <td>積分時間</td>
    <td>3000 秒</td>
  </tr>
  <tr>
    <td>計算領域</td>
    <td>
      水平(x) : 10000 m<br>
      鉛直(z) : 10000 m
    </td>
  </tr>
  <tr>
    <td>格子点数</td>
    <td>水平(x) : 50<br>鉛直(z) : 50</td>
  </tr>
  <tr>
    <td>時間間隔</td>
    <td>
        短いタイムステップ: 0.3 秒<br>
        長いタイムステップ: 3 秒<br>
    </td>
  </tr>
  <tr>
    <td>境界条件</td>
    <td>
      水平(x) : 周期境界条件<br>
      鉛直(z) : 固定境界条件
    </td>
  </tr>
  <tr>
    <td>数値解法</td>
    <td>
      水平(x) : 陽解法<br>
      鉛直(z) : 陰解法
    </td>
  </tr>
</table>

    <br><br>
    [<a href =\"http://www.gfd-dennou.org/arch/dcmodel\">HOME</a>]
    [<a href =\"./TEBIKI.oekaki.htm\">作業メモ</a>]
    <hr>

  MSG
  thumb.create
end