定常時の熱収支計算プログラム

以下に示す計算プログラム（BASIC）は、次の条件を与えてあるので、他の 条件について計算する場合は各パラメータを変えること。

地表面の日射に対するアルベドREF＝0.1、黒体度BLACKNESS＝１、蒸発効率 BETA＝０（散水条件ではBETA＝１に置き換えること） ( line30 )、
気圧P＝1000hPa、気温T＝30℃、水蒸気圧VP＝25hPa、水平面日射量S＝ 400 W/m²、大気放射量LC＝340 W/m² ( line40 )、これらの条件では入力放射量＝700 W/m²となる。
顕熱輸送の交換速度GA＝0.003m/s ( line450 )。

本文中に説明した計算（１）～（４）では交換速度を与えるので、 line50, line60, line460, line470は削除してある。
line30, line40, line240, line450は変更してある。
line235, line243, line245 は新しく追加したものである。


このプログラムは、「地表面に近い大気の科学、”付録F ポテンシャル蒸発量および定常時熱収支量の計算プログラム”に 掲載されているプログラム”Epot ”を部分的に変更したものである。