Class constants0
In: setup/constants0.f90

物理・数学定数設定

Physical and mathematical constants settings

Note that Japanese and English are described in parallel.

物理・数学定数の設定および保管を行います. デフォルト値は地球大気を想定した値が設定されています.

Physical and mathematical constants are set and stored. By default, values on atmosphere of earth are set.

Procedures List

Constants0Init :物理定数の設定
———— :————
Constants0Init :Settings of physical constants

NAMELIST

N/A

Methods

Included Modules

dc_types dc_message

Public Instance methods

Subroutine :

constants0 モジュールの初期化を行います.

"constants0" module is initialized.

[Source]

  subroutine Constants0Init
    !
    ! constants0 モジュールの初期化を行います. 
    !
    ! "constants0" module is initialized. 
    !

    ! モジュール引用 ; USE statements
    !

    ! メッセージ出力
    ! Message output
    !
    use dc_message, only: MessageNotify

    ! 宣言文 ; Declaration statements
    !
    implicit none

    ! 実行文 ; Executable statement
    !

    if ( constants0_inited ) return


    ! 印字 ; Print
    !
    call MessageNotify( 'M', module_name, '----- Initialization Messages -----' )
    call MessageNotify( 'M', module_name, '  PI               = %f', d = (/ PI               /) )
    call MessageNotify( 'M', module_name, '  GasRUniv         = %f', d = (/ GasRUniv         /) )
    call MessageNotify( 'M', module_name, '  StB              = %f', d = (/ StB              /) )
    call MessageNotify( 'M', module_name, '-- version = %c', c1 = trim(version) )

    constants0_inited = .true.

  end subroutine Constants0Init
GasRUniv
Constant :
GasRUniv = 8.314_DP :real(DP), parameter, public
: $ R^{*} $ [J K-1 mol-1]. 普遍気体定数. Universal gas constant
PI
Constant :
PI = 3.1415926535897932_DP :real(DP), parameter, public
: $ pi $ . 円周率. Circular constant
StB
Constant :
StB = 5.67e-8_DP :real(DP), parameter, public
: $ sigma_{SB} $ . ステファンボルツマン定数. Stefan-Boltzmann constant
constants0_inited
Variable :
constants0_inited = .false. :logical, save, public
: 初期設定フラグ. Initialization flag

Private Instance methods

module_name
Constant :
module_name = ‘constants0 :character(*), parameter
: モジュールの名称. Module name
version
Constant :
version = ’$Name: dcpam5-20120813-2 $’ // ’$Id: constants0.f90,v 1.1 2011-06-19 11:01:56 yot Exp $’ :character(*), parameter
: モジュールのバージョン Module version