arare を実行するために必要なパラメタを NAMELIST から取得する. NAMELIST 名は外部から取得する.
real(8) :: Grav !重力 real(8) :: alpha !音波減衰項の係数 real(8) :: beta !クランクニコルソン法なら 0.5, 完全陰解放なら 1 real(8) :: Cm !乱流エネルギー診断式の係数 real(8) :: tfil !アッセリンの時間フィルタの係数 real(8) :: NuH !数値粘性の係数 (水平方向) real(8) :: NuV !数値粘性の係数 (鉛直方向)
NameList ファイルから arare 実行に必要なパラメタを取得する
subroutine arareprm_init(cfgfile)
use dc_trace, only: BeginSub, EndSub use gridset, only: DelX, DelZ use timeset, only: DelTimeShort, DelTimeLong
character(*), intent(in) :: cfgfile
NAMELIST /arareprm/ Grav, alpha, beta, Cm, tfil, AlphaH, AlphaV