Class | constants0 |
In: |
../src/setup/constants0.f90
|
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.
Constants0Init : | 物理定数の設定 |
———— : | ———— |
Constants0Init : | Settings of physical constants |
N/A
Subroutine : |
constants0 モジュールの初期化を行います.
"constants0" module is initialized.
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
Constant : | |||
GasRUniv = 8.314_DP : | real(DP), parameter, public
|
Constant : | |||
PI = 3.1415926535897932_DP : | real(DP), parameter, public
|
Constant : | |||
StB = 5.67e-8_DP : | real(DP), parameter, public
|
Variable : | |||
constants0_inited = .false. : | logical, save, public
|