src/param_manager.f90

説明を見る。

module param_manager
  
  ! モジュール引用 ; Use statements 
  !

  ! * gtool **
  ! *

  ! 種類型パラメータ
  ! Kind type parameter
  !
  use dc_types, only :DP, &    ! 倍精度実数型. Double precision. 
    &                 TOKEN, & ! 短い文字列型. 
    &                 STRING   ! 文字列型. 

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

  ! * IGMBaseLib **
  ! *

  ! 地球における物理定数
  ! Physical constants on the earth
  !
  use Earth_Constants, only: &
    & earth_radius, &
    & earth_g,       &
    & earth_Omega

  ! 宣言文 ; Declaration statements
  !
  implicit none
  private

  ! 正二十面体格子の生成に関するパラメータ
  ! Parameters associated with the generation of icosahedral grid. 
  !

  integer, public :: div_level  = 5

  real(DP), public :: ic_radius = earth_radius

  character(STRING), public :: gridData_ncFile = 'SPR-GC-grid_glevel5.nc' 
 

  ! 数値シュミレーションに関するパラメータ.  
  ! Parameters associated with the numerical simulation. 
  !

  real(DP), parameter, public :: Omega = earth_Omega

  real(DP), parameter, public :: Grav = earth_g

  real(DP), public :: output_tick

  logical, public :: data_output_flag

  character(TOKEN), public :: output_data_ncFile

  real(DP), public :: alpha 

  real(DP), public :: DelTime
  
  real(DP), public :: integration_time

  logical, public :: motionEq_flag


  ! 公開手続き
  ! Public procedure
  !
  public :: read_namelistFile

contains

!
subroutine read_namelistFile(nml_filename)

  ! 宣言文 ; Declaration statements
  !
  character(*), intent(in) :: nml_filename
  integer :: deviceID = 10

  ! 作業変数
  ! Work variable
  !

  ! 正二十面体格子に関係するネームリスト. 
  ! Namelist for icosahedral grid.
  namelist /IcGrid_Config/ &
    & div_level, &
    & gridData_ncFile
  
  ! 数値シミュレーションに関係するネームリスト. 
  ! Namelist for the numerical simulation. 
  namelist /NumSim_Param/ &
    & alpha, &
    & output_tick, output_data_ncFile, data_output_flag, &
    & DelTime, integration_time, motionEq_flag

  ! 実行文 ; Executable statements
  !

  ! ネームリストファイルから各種パラメータを読み取り, 変数にセットする. 
  ! Read each of parameter from namelist file and assign values tp variables. 
  !

  call MessageNotify( "M", &
    & "IGModel-SW", "Reading namelist file `%c` ..", c1=trim(nml_filename) )
 
  open(deviceID, file=nml_filename, form='FORMATTED')
  read(deviceID, nml=IcGrid_Config)
  read(deviceID, nml=NumSim_Param)

end subroutine read_namelistFile

end module param_manager