物理・数学定数設定

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

Constants0Init GasRUniv PI StB constants0_inited module_name version

Included Modules

dc_types dc_message

Public Instance methods

Constants0Init( )

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

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-20120220 $’ // ’$Id: constants0.f90,v 1.1 2011-06-19 11:01:56 yot Exp $’ :

character(*), parameter

:	モジュールのバージョン Module version