典型的な基本場を計算するためのサブルーチン. タイプとしては以下が設定可能.
use gridset, only: DimXMin, DimXMax, DimZMin, DimZMax, s_Z use physprm, only: GasRUniv use basicprm, only: Grav, TempSfc, PressSfc, MolWtDry, CpDry, & & TempType, PressType
real(8), intent(out) :: ss_CpBasicZ(DimXMin:DimXMax, DimZMin:DimZMax) !比熱 real(8), intent(out) :: ss_DensBasicZ(DimXMin:DimXMax, DimZMin:DimZMax) !密度 real(8), intent(out) :: ss_ExnerBasicZ(DimXMin:DimXMax, DimZMin:DimZMax) !無次元圧力 real(8), intent(out) :: ss_PotTempBasicZ(DimXMin:DimXMax, DimZMin:DimZMax) !温位 real(8), intent(out) :: ss_VelSoundBasicZ(DimXMin:DimXMax, DimZMin:DimZMax)!音速