!===================================================================== ! 鉛直 1 次元地表面熱収支計算プログラム; 天文パラメータの設定 ! ! 履歴 2000/09/20 小高正嗣; 作成開始 ! !===================================================================== subroutine SETCSP I ( PI , C S00, EXCTL, OBLIC, OMGA0 ) !--------------------------------------------------------------------- implicit real*8 (a-h,o-z) !--------------------------------------------------------------------- S00 = 591.0D0 ! 平均太陽定数(W/m^2) EXCTL = 0.093D0 ! 軌道離心率 OBLIC = 25.2D0 ! 赤道傾斜角(deg) OMGA0 = 110.0D0 ! 春分点黄径(deg) !--------------------------------------------------------------------- OBLIC = OBLIC * pi/180.0D0 ! 赤道傾斜角(rad) OMGA0 = OMGA0* pi/180.0D0 ! 春分点黄径(rad) return end