典型的な擾乱場を計算するためのサブルーチン. タイプとしては以下が設定可能.
設定可能な擾乱のタイプを増やす
use physprm use gridset, only: & & s_X, s_Z, f_X, f_Z, Xmin, Xmax, Zmin, Zmax, & & DimXMin, DimXMax, DimZMin, DimZMax use distrbprm, only: & & MolWtDry, CpDry, & & ExnerDistrbType, ExnerMax, ExnerSigmaX, ExnerSigmaZ, & & ExnerCenterX, ExnerCenterZ, & & PotTempDistrbType, PotTempMax, PotTempSigmaX, PotTempSigmaZ, & & PotTempCenterX, PotTempCenterZ, & & VelDistrbType, VelX, VelZ
real(8), intent(out) :: ss_PotTempDistrb(DimXMin:DimXMax, DimZMin:DimZMax) !温位 real(8), intent(out) :: ss_ExnerDistrb(DimXMin:DimXMax, DimZMin:DimZMax) !エクスナー関数 real(8), intent(out) :: fs_VelXDistrb(DimXMin:DimXMax, DimZMin:DimZMax) !速度 u real(8), intent(out) :: sf_VelZDistrb(DimXMin:DimXMax, DimZMin:DimZMax) !速度 w