Module BasicSet

• Developer: SUGIYAMA Ko-ichiro (sugiyama(at)gfd-dennou.org)
• Version: $Id: basicset.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   :: ss_CpBasicZ(:,:)       !比熱
real(8), allocatable   :: ss_DensBasicZ(:,:)     !密度
real(8), allocatable   :: ss_ExnerBasicZ(:,:)    !無次元圧力
real(8), allocatable   :: ss_PotTempBasicZ(:,:)    !温位
real(8), allocatable   :: ss_VelSoundBasicZ(:,:) !音速

Procedure Interface

Initialize module and acquire NAMELIST

基本場の値を netCDF ファイルから取得する. netCDF から値を取得するために gt4f90io を利用する.

subroutine basicset_init(basicfile)

Dependency

use dc_trace, only: BeginSub, EndSub
use gt4_history
use gridset, only: DimXMin, DimXMax, DimZMin, DimZMax

Input

character(*), intent(in) :: basicfile

Get a Value from netCDF File

name = "CpBasicZ"
call HistoryGet( basicfile, name, ss_CpBasicZ )

name = "ExnerBasicZ"
call HistoryGet( basicfile, name, ss_ExnerBasicZ )

name = "PotTempBasicZ"
call HistoryGet( basicfile, name, ss_PotTempBasicZ )

name = "DensBasicZ"
call HistoryGet( basicfile, name, ss_DensBasicZ )

name = "VelSoundBasicZ"
call HistoryGet( basicfile, name, ss_VelSoundBasicZ )