!=================================================================
!  放射過程計算ルーチン; 初期設定
!
!  1999/05/25  小高正嗣
!  1999/06/07  小高正嗣
!  2000/04/12  小高正嗣; 透過幅配列サイズを変更
!  2000/05/16  小高正嗣; バンドモデルへ
!=================================================================

      subroutine RBASIC
     I   ( PRES0, PSFC , SNU  , RNU  , 
     O     OPL  , TAUN ,
     C     GRAV , DELNU ,
     D     NZ   , NZB  , NBND  )

!-----------------------------------------------------------------      
      implicit real*8 ( a-h,o-z )
!-----------------------------------------------------------------      

      dimension 
     \     PRES0 (-2:NZB),
     \     OPL   (-2:NZB)

      dimension 
     \     SNU(NBND),
     \     RNU(NBND),
     \     TAUN(0:NZ+1,0:NZ+1,NBND)

!-----------------------------------------------------------------      

      call SETOPL
     I   ( PRES0, PSFC,
     O     OPL, 
     C     GRAV , 
     D     NZ   , NZB    )

      call CLTAUN
     I   ( OPL, SNU, RNU, PRES0,
     O     TAUN,
     C     DELNU,
     D     NZ , NZB, NBND  )

      return
      end
