プログラムコードを表示するためのテスト。
preタグ内なのに勝手にキーワードにリンクが張られてしまうので困る。色をinheritにするとFirefox、Google Chromeでは見た目ではわからなくなるが、IEではinheritの指定も効かないのでまともに見えない。ある特定の範囲内だけキーワードの機能をオフにする方法はないのだろか？
$ontext
このプログラムは以下の論文のシミュレーションを実行するためのものです．
武田史郎，川崎泰史，落合勝昭，伴金美 (2009)，
日本経済研究センターCGE モデルによるCO2 削減策の分析
－「中期目標検討委員会」で用いたモデルと試算の解説－
JCER DISCUSSION PAPER, No.121
ただし，プログラムには論文のシミュレーションでは利用していない変数，パラメータも
含まれています．例えば，CCS に関するコードが含まれていますが，シミュレーションで
は利用していません．
* Unit (単位):
+ 金額データは「10億円」
+ CO2排出量は「MtCO2 (二酸化炭素百万トン)」
+ 排出権価格 (炭素税) は「1000円/CO2トン」
* エネルギー財
Coal (石炭)
Crude oil (原油)
Natural gas (天然ガス)
Petroleum products (石油製品)
Coal products (石炭製品)
Electricity (電力)
Gas and heat supply (ガス・熱供給)
* 電力
火力発電
原子力発電
地熱・水力発電
$offtext
$eolcom //
$ontext
まず，コントロール変数を定義．この値によってモデル，データ，パラメータ等が変わっ
てくる．
$offtext
* Experiment name
$if not setglobal exp_name $setglobal exp_name default
* $setglobal exp_name bau
* Setting of the last period (up to 2030):
$if not setglobal t_run $setglobal t_run 2020
* Setting of the first period for CO2 cap:
$if not setglobal tlim $setglobal tlim 2008
* Nuclear electricity operating rate scenarios (e_n, e_n_low, e_n_high):
$if not setglobal cap_e_n $setglobal cap_e_n e_n
* World energy price scenarios (PM0, P20, P10, M10, M20):
$if not setglobal p_oil $setglobal p_oil PM0
*
$if not setglobal s_elas_ele $setglobal s_elas_ele 1.0
* Scale parameter for EOS (utility func.)
$if not setglobal s_elas_c $setglobal s_elas_c 1.0
* Share of special resouce in non-fuel electricity
$if not setglobal sh_eres $setglobal sh_eres 0.300
* Scale parameter for updating fixed coefficients.
$if not setglobal s_udl $setglobal s_udl 1.0
* Zero -> all industries are imposed carbon regulations:
$if not setglobal no_reg $setglobal no_reg 1
* Share of permit revenue used for new consumption:
$if not setglobal sh_pr_cnew $setglobal sh_pr_cnew 0
* Share of permit revenue used for investment:
$if not setglobal sh_pr_inv $setglobal sh_pr_inv 0
* Share of permit revenue used for subsidy to ELEN (%):
$if not setglobal sh_pr_esub $setglobal sh_pr_esub 0
* CCS (carbon capture and storage)
$if not setglobal fl_ccs $setglobal fl_ccs 0
* $setglobal fl_ccs 1
* CCS
$if not setglobal fl_ccs_lbd $setglobal fl_ccs_lbd 0
* $setglobal fl_ccs_lbd 1
* CCS subsidy
$if not setglobal fl_ccs_sbs $setglobal fl_ccs_sbs 0
* $setglobal fl_ccs_sbs 1
* Parameter file name for CCS
$if not setglobal ccs_par $setglobal ccs_par .\par_ccs_default.par
* Non-zero value enables new energy (new energy technology):
$if not setglobal fl_elen $setglobal fl_elen 1
* $setglobal fl_elen 1
*
$if not setglobal fl_elen_lbd $setglobal fl_elen_lbd 1
$ontext
新エネ発電導入後10年で何％効率性が上昇するかを表す。20 なら 導入後10年で20%の向上
するように毎年の生産性向上が生じる。
$if %exp_name%=="bau" $setglobal exp_bau 1
display "exp_name = %exp_name%";
display "fl_ccs = %fl_ccs%";
display "fl_ccs_lbd = %fl_ccs_lbd%";
display "fl_ccs_sbs = %fl_ccs_sbs%";
display "ccs_par = %ccs_par%";
display "fl_elen = %fl_elen%";
display "fl_elen_lbd = %fl_elen_lbd%";
display "fl_elen_sbs = %fl_elen_sbs%";
display "elen_par = %elen_par%";
display "fl_br = %fl_br%";
display "fl_cc = %fl_cc%";
display "scale_shock = %scale_shock%";
display "permit_trade = %permit_trade%";
display "rd_scn = %rd_scn%";
parameter
fl_ccs / %fl_ccs% /
fl_elen / %fl_elen% /
fl_elen_fit / %fl_elen_fit% /
permit_trade / %permit_trade% /
;
* File name for displaying title in DOS window.
file titlemaker /'titlemaker_%exp_name%.cmd'/;
putclose titlemaker '@title Solving scenario = %exp_name%' /;
execute 'titlemaker_%exp_name%.cmd';
* ----------------------------------------------------------------------
