!=====================================================================
!  鉛直 1 次元地表面熱収支計算プログラム; 天文パラメータの設定
!
!  履歴  2000/09/20  小高正嗣; 作成開始
!
!=====================================================================
      subroutine SETCSP
     C   ( S00, EXCTL, OBLIC, OMGA0 )
!---------------------------------------------------------------------
      implicit real*8 (a-h,o-z)
!---------------------------------------------------------------------
      parameter ( PI = 3.14159263D0 )

      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

