基本場の値を取得する.
real(8), allocatable :: ss_CpBasicZ(:,:) !比熱 real(8), allocatable :: ss_DensBasicZ(:,:) !密度 real(8), allocatable :: ss_ExnerBasicZ(:,:) !無次元圧力 real(8), allocatable :: ss_PotTempBasicZ(:,:) !温位 real(8), allocatable :: ss_VelSoundBasicZ(:,:) !音速
基本場の値を netCDF ファイルから取得する. netCDF から値を取得するために gt4f90io を利用する.
subroutine BasicSet_file_init(basicfile)
use dc_trace, only: BeginSub, EndSub use gt4_history use gridset, only: DimXMin, DimXMax, DimZMin, DimZMax
character(*), intent(in) :: basicfile
name = "CpBasicZ" call HistoryGet( basicfile, name, ss_CpBasicZ ) name = "ExnerBasicZ" call HistoryGet( basicfile, name, ss_ExnerBasicZ ) name = "PotTempBasicZ" call HistoryGet( basicfile, name, ss_PotTempBasicZ ) name = "DensBasicZ" call HistoryGet( basicfile, name, ss_DensBasicZ ) name = "VelSoundBasicZ" call HistoryGet( basicfile, name, ss_VelSoundBasicZ )
典型的な基本場を計算するためのプログラム basic の初期値を 読み込み, 基本場の値を計算するためのモジュール
典型的な基本場のを計算するためのサブルーチン. タイプとしては以下が設定可能.
subroutine basicset_calc_init(cfgfile)
use dc_trace, only: BeginSub, EndSub use dc_message, only: MessageNotify use gridset, only: DimXMin, DimXMax, DimZMin, DimZMax, s_Z use physset, only: Grav, TempSfc, PressSfc, MolWtDry, CpDry, GasRUniv
character(*), intent(in) :: cfgfile !設定ファイル(NAMELIST)
NAMELIST /basicset/ TempType, PressType