Subroutine DistrbType

• Developer: SUGIYAMA Ko-ichiro (sugiyama(at)gfd-dennou.org)
• Version: $Id: distrbtype.f90,v 1.3 2005/02/02 03:51:31 odakker Exp $
• Tag Name: $Name: $
• Change History:

Overview

典型的な擾乱場を計算するためのサブルーチン. タイプとしては以下が設定可能.

• 無次元圧力: 擾乱なし or X 方向ガウシアン分布 or Z 方向ガウシアン分布 or XZ 方向ガウシアン分布
• 温位: 擾乱なし or X 方向ガウシアン分布 or Z 方向ガウシアン分布 or XZ 方向ガウシアン分布
• 速度: 擾乱なし or X 方向速度一定 or Z 方向速度一定

Error Handling

Known Bugs

Note

Future Plans

設定可能な擾乱のタイプを増やす

Dependency

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

Output

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