擾乱場の設定を読み込み, 擾乱場の値を計算する.
典型的な擾乱場として以下が設定可能.
real(8), allocatable :: ss_PotTempDisturb(:, :) !温位 real(8), allocatable :: ss_ExnerDisturb(:, :) !エクスナー関数 real(8), allocatable :: fs_VelXDisturb(:, :) !速度 u real(8), allocatable :: sf_VelZDisturb(:, :) !速度 w
NAMELIST から擾乱場の初期値生成プログラム disturb の設定を読み取る.
subroutine disturbset_calc_init(cfgfile)
use dc_trace, only: BeginSub, EndSub use dc_message, only: MessageNotify use gridset, only: s_X, s_Z, f_X, f_Z, Xmin, Xmax, Zmin, Zmax, & & DimXMin, DimXMax, DimZMin, DimZMax use physset, only: MolWtDry, CpDry, Pi
character(*), intent(in) :: cfgfile
NAMELIST /disturbset/ & & ExnerDisturbType, ExnerMax, ExnerSigmaX, ExnerSigmaZ, & & ExnerCenterX, ExnerCenterZ, & & PotTempDisturbType, PotTempMax, PotTempSigmaX, PotTempSigmaZ, & & PotTempCenterX, PotTempCenterZ, & & VelDisturbType, VelX, VelZ