src/core/field/Physical_Field_Manager.f90

Go to the documentation of this file.

module Physical_Field_Manager

  ! モジュール引用; Use statement
  !

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

  ! 宣言文 ; Declaration statement
  !
  implicit none
  private

  type, public :: Physical_Field

    character(TOKEN) :: field_name
    ! f2003: character(TOKEN), private :: field_name

    character(STRING) :: long_name
    ! f2003: character(STRING), private :: long_name

    character(TOKEN) :: units
    ! f2003: character(TOKEN), private :: units

    integer :: field_rank
    ! f2003: integer, private :: field_rank

  end type Physical_Field

  ! 公開手続き
  ! Public procedures
  !
  public :: Physical_Field_Init
  public :: get_field_name, get_long_field_name, get_field_rank, get_field_units
  public :: set_field_name, set_long_field_name, set_field_units

contains


!
subroutine Physical_Field_Init(self, name, field_rank, long_name, units)

  ! 宣言文 ; Declaration statement
  !
  type(Physical_Field), intent(inout) :: self
  character(*), intent(in) :: name
  integer, intent(in) :: field_rank
  character(*), intent(in), optional :: long_name
  character(*), intent(in), optional :: units

  ! 実行文 ; Executable statement
  !
  self%field_name = name
  self%field_rank = field_rank


  if ( present(long_name) ) self%long_name = long_name
  if ( present(units) ) self%units = units

end subroutine Physical_Field_Init

!
function get_long_field_name(self) result(val)

  ! 宣言文 ; Declaration statement
  !
  type(Physical_Field), intent(in) :: self
  character(STRING) val

  ! 実行文 ; Executable statement
  !

  val = self%long_name

end function get_long_field_name

!
subroutine set_long_field_name(self, long_name)
  ! 宣言文 ; Declaration statement
  !
  type(Physical_Field), intent(inout) :: self
  character(*), intent(in) ::  long_name

  ! 実行文 ; Executable statement
  !

  self%long_name = long_name

end subroutine set_long_field_name

!
function get_field_units(self) result(val)
  ! 宣言文 ; Declaration statement
  !
  type(Physical_Field), intent(in) :: self
  character(TOKEN) val

  ! 実行文 ; Executable statement
  !

  val = self%units

end function get_field_units

!
subroutine set_field_units(self, units)
  ! 宣言文 ; Declaration statement
  !
  type(Physical_Field), intent(inout) :: self
  character(*), intent(in) ::  units

  ! 実行文 ; Executable statement
  !

  self%units = units

end subroutine set_field_units

!
function get_field_rank(self) result(val)
  ! 宣言文 ; Declaration statement
  !
  type(Physical_Field), intent(in) :: self
  integer val

  ! 実行文 ; Executable statement
  !

  val = self%field_rank

end function get_field_rank


!
function get_field_name( &
  & self &
  & ) result(name)

  ! 宣言文 ; Declaration statement
  !
  type(Physical_Field), intent(in) :: self       !
  character(TOKEN) name

  ! 実行文 ; Executable statement
  !

  name = self%field_name

end function get_field_name

!
subroutine set_field_name(self, name)
  ! 宣言文 ; Declaration statement
  !
  type(Physical_Field), intent(inout) :: self
  character(*), intent(in) ::  name

  ! 実行文 ; Executable statement
  !

  self%field_name = name


end subroutine set_field_name

end module Physical_Field_Manager