subroutine arareset_init(cfgfile)
    !=== Dependency

    
    !=== Input 
    character(*), intent(in) :: cfgfile
                                                                 !=end
    !--- 内部変数
    real(8)  ::  AlphaH
    real(8)  ::  AlphaV
                                                                 !=begin
    !=== NAMELIST
    NAMELIST /arareset/ alpha, beta, Cm, tfil, AlphaH, AlphaV
                                                                 !=end

    call BeginSub("arareset_init",                  fmt="%c",                        c1="Initialize parameters.")

    !--- 変数の取り出し
    open (10, FILE=cfgfile)
    read(10, NML=arareset)
    close(10)

    !--- 音波減衰項の係数を決める
    alpha = alpha * ( DelX ** 2.0d0 ) / DelTimeShort

    !--- 数値粘性の係数を決める
    NuH  = AlphaH * ( DelX ** 2.0d0 ) / DelTimeLong
    NuV  = AlphaV * ( DelZ ** 2.0d0 ) / DelTimeLong

    !==== 確認
!    write(*,*) "alpha", alpha
!    write(*,*) "beta", beta
!    write(*,*) "Cm", Cm
!    write(*,*) "tfil", tfil
!    write(*,*) "NuH", NuH
!    write(*,*) "NuV", NuV

    call EndSub("arareset_init")
    
  end subroutine arareset_init