historyaxiscreate.f90

Go to the documentation of this file.

!> @file historyaxiscreate.f90
!>
!> @author Yasuhiro MORIKAWA
!> @copyright Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved. <br/>
!>            License is BSD-2-Clause. See [COPYRIGHT](@ref COPYRIGHT) in detail
!>
!> @en
!> @brief Constructor of GT_HISTORY_AXIS
!> @enden
!>
!> @ja
!> @brief GT_HISTORY_AXIS 変数の作成
!> @endja
 
!>
!> @en
!> @brief Create a GT_HISTORY_AXIS variable
!>
!> Creates a GT_HISTORY_AXIS variable.
!> After setting with this subroutine,
!> pass it to the axes argument of HistoryCreate.
!> To add attributes, use HistoryAxisAddAttr.
!> @param[out] axis   Axis information
!> @param[in]  name     Dimension variable name
!> @param[in]  size     Dimension length (array size)
!> @param[in]  longname Descriptive name of dimension variable
!> @param[in]  units    Units of dimension variable
!> @param[in]  xtype    Type of dimension variable
!> @enden
!>
!> @ja
!> @brief GT_HISTORY_AXIS 型変数作成
!>
!> GT_HISTORY_AXIS 型変数を作成します。
!> このサブルーチンによる設定の後、
!> HistoryCreate の axes に与えます。
!> さらに属性を付加する場合には HistoryAxisAddAttr
!> を用いてください。
!> @param[out] axis   座標軸情報
!> @param[in]  name     次元変数名
!> @param[in]  size     次元長 (配列サイズ)
!> @param[in]  longname 次元変数の記述的名称
!> @param[in]  units    次元変数の単位
!> @param[in]  xtype    次元変数の型
!> @endja
!>
  subroutine historyaxiscreate1( axis, &
    & name, size, longname, units, xtype)
    !
    use dc_trace, only: beginsub, endsub
    use dc_string, only: cprintft
    use gtool_history_types, only: gt_history_axis
    implicit none
    type(gt_history_axis),intent(out) :: axis
    character(*) , intent(in):: name     ! 次元変数名
    integer, intent(in):: size     ! 次元長 (配列サイズ)
    character(*) , intent(in):: longname ! 次元変数の記述的名称
    character(*) , intent(in):: units    ! 次元変数の単位
    character(*) , intent(in):: xtype    ! 次元変数の型
    character(len = *), parameter:: subname = "HistoryAxisCreate1"
  continue
    call beginsub(subname)
    axis % name = cprintft('%c', c1=name)
    axis % length = size
    axis % longname = longname
    axis % units = units
    axis % xtype = cprintft('%c', c1=xtype)
    call endsub(subname)
  end subroutine historyaxiscreate1
 
!> @en
  !> @brief Create a GT_HISTORY_AXIS variable (generic interface)
  !>
  !> Usage is same as HistoryAxisCreate.
  !> @enden
  !> @ja
  !> @brief GT_HISTORY_AXIS 型変数作成 (総称インターフェース)
  !>
  !> 使用方法は HistoryAxisCreate と同様です。
  !> @endja
  subroutine historyaxiscreate2( axis, &
    & name, size, longname, units, xtype)
    use dc_trace, only: beginsub, endsub
    use dc_string, only: cprintft
    use gtool_history_types, only: gt_history_axis
    implicit none
    type(gt_history_axis),intent(out) :: axis
    character(*) , intent(in):: name     ! 次元変数名
    integer, intent(in):: size     ! 次元長 (配列サイズ)
    character(*) , intent(in):: longname ! 次元変数の記述的名称
    character(*) , intent(in):: units    ! 次元変数の単位
    character(*) , intent(in):: xtype    ! 次元変数の型
    character(len = *), parameter:: subname = "HistoryAxisCreate2"
  continue
    call beginsub(subname)
    axis % name = cprintft('%c', c1=name)
    axis % length = size
    axis % longname = longname
    axis % units = units
    axis % xtype = cprintft('%c', c1=xtype)
    call endsub(subname)
  end subroutine historyaxiscreate2