Module DistrbSet

• Developer: SUGIYAMA Ko-ichiro (sugiyama(at)gfd-dennou.org)
• Version: $Id: distrbset.f90,v 1.4 2005/02/02 11:07:39 odakker Exp $
• Tag Name: $Name: $
• Change History:

Overview

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

Error Handling

Known Bugs

Note

Future Plans

Public Interface

real(8), allocatable   :: fs_VelXDistrb(:,:)  !速度 u
real(8), allocatable   :: sf_VelZDistrb(:,:)  !速度 w
real(8), allocatable   :: ss_ExnerDistrb(:,:) !無次元圧力
real(8), allocatable   :: ss_PotTempDistrb(:,:) !温位

Procedure Interface

Initialize module and acquire NAMELIST

擾乱場の初期値を netCDF ファイルから取得する. netCDF から値を取得するために gt4f90io を利用する.

subroutine distrbset_init(distrbfile)

Dependency

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

Input

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

Get a Value from netCDF File

name = "VelXDistrb"
call HistoryGet( distrbfile, name, fs_VelXDistrb )

name = "VelZDistrb"
call HistoryGet( distrbfile, name, sf_VelZDistrb )

name = "ExnerDistrb"
call HistoryGet( distrbfile, name, ss_ExnerDistrb )

name = "PotTempDistrb"
call HistoryGet( distrbfile, name, ss_PotTempDistrb )