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.

References

Mohr, P. J., B. N. Taylor, and D. B. Newell, 

  CODATA recommended values of the fundamental physical constants: 2010,
  Rev. Mod. Phys., 84, 1527, 2012.
  See also http://physics.nist.gov/cuu/Constants/index.html.

Procedures List

Constants0Init :����å®��°ã��¨­å®�
———— :————
Constants0Init :Settings of physical constants

NAMELIST

N/A

Methods

Boltz   Constants0Init   GasRUniv   PI   StB   constants0_inited   module_name   version  

Included Modules

dc_types dc_message

Public Instance methods

Boltz
Constant :
Boltz = 1.3806488e-23_DP :real(DP), parameter, public
: $ k $ [J K-1]. ���������³å���. Boltzmann constant (Mohr et al., 2012; CODATA 2010)
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, '  Boltz            = %f', d = (/ Boltz            /) )
    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.3144621_DP :real(DP), parameter, public
: $ R^{*} $ [J K-1 mol-1]. ���������. Universal gas constant (Mohr et al., 2012; CODATA 2010)
PI
Constant :
PI = 3.1415926535897932_DP :real(DP), parameter, public
: $ pi $ . �����. Circular constant
StB
Constant :
StB = 5.670373e-8_DP :real(DP), parameter, public
: $ sigma_{SB} $ . �¹ã�����¡ã�³ã���������³å���. Stefan-Boltzmann constant (Mohr et al., 2012; CODATA 2010)
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: $’ // ’$Id: constants0.f90,v 1.3 2013/06/12 08:57:12 yot Exp $’ :character(*), parameter
: �¢ã�¸ã�¥ã�¼ã�������¼ã�¸ã�§ã�� Module version