Subroutine GetDisturbVar

• Developer: SUGIYAMA Ko-ichiro (sugiyama(at)gfd-dennou.org)
• Version: $Id: getdisturbvar.f90,v 1.2 2005/04/22 15:01:52 sugiyama Exp $
• Tag Name: $Name: $
• Change History:

Overview

擾乱場の初期値を netCDF ファイルから取得する.

Error Handling

Known Bugs

Note

Future Plans

• 時間刻みのチェックだけでなく, 解像度のチェックおよび物理定数のチェックも必要だろう.

Dependency

use gt4_history
use dc_trace,   only: BeginSub, EndSub
use dc_message ,only: MessageNotify
use bcset,      only: ss_BC, sf_BC, fs_BC
use timeset,    only: DelTimeLong
use gridset,    only: DimXMin, DimXMax, DimZMin, DimZMax

Input

character(*), intent(in)  :: disturbfile  !擾乱場のファイル

Output

real(8), intent(out)  :: ReStartTime(2)
real(8), intent(out)  :: fs_VelX_n(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(out)  :: fs_VelX_b(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(out)  :: sf_VelZ_n(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(out)  :: sf_VelZ_b(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(out)  :: ss_Exner_n(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(out)  :: ss_Exner_b(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(out)  :: ss_PotTemp_n(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(out)  :: ss_PotTemp_b(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(out)  :: ss_Km_n(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(out)  :: ss_Km_b(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(out)  :: ss_Kh_n(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(out)  :: ss_Kh_b(DimXMin:DimXMax, DimZMin:DimZMax)