物理定数設定用モジュール
real(8) :: Grav !重力 real(8) :: TempSfc !標準温度 [K] real(8) :: PressSfc !標準圧力 [Pa] real(8) :: CpDry !乾燥成分の平均定圧比熱 [J/K mol] real(8) :: MolWtDry !乾燥成分の平均分子量 [kg/mol] real(8) :: GasRUniv !普遍気体定数 [J/K mol] real(8) :: Pi !円周率 [] real(8) :: TempRef !標準温度 [K] real(8) :: PressRef !標準圧力 [Pa]
NAMELIST から物理定数を読み込む
subroutine physset_init(cfgfile)
use dc_trace, only: BeginSub, EndSub
NAMELIST /physset/ Grav, TempSfc, PressSfc, CpDry, MolWtDry, & & GasRUniv, Pi, TempRef, PressRef