Module BasicSet

Overview

基本場の値を取得する.

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

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

subroutine BasicSet_file_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 ) 

Procedure Interface

Initialize module and acquire NAMELIST

典型的な基本場を計算するためのプログラム basic の初期値を 読み込み, 基本場の値を計算するためのモジュール

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

subroutine basicset_calc_init(cfgfile)

Dependency

use dc_trace,   only: BeginSub, EndSub 
use dc_message, only: MessageNotify
use gridset,    only: DimXMin, DimXMax, DimZMin, DimZMax, s_Z
use physset,    only: Grav, TempSfc, PressSfc, MolWtDry, CpDry, GasRUniv

Input

character(*), intent(in) :: cfgfile  !設定ファイル(NAMELIST)

NAMELIST

NAMELIST /basicset/ TempType, PressType