hscrea.f90

Go to the documentation of this file.

!> @file hscrea.f90
!>
!> @author Shin-ichi TAKEHIRO, 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 Fortran 77 compatible interface for gtool_history HistoryCreate
!> @enden
!>
!> @ja
!> @brief gtool_history Fortran 77 用インターフェース (ヒストリー定義)
!> @endja
 
!>
!> @en
!> @brief Define a history.
!> @enden
!> @ja
!> @brief ヒストリーを定義する.
!> @endja
!>
subroutine hscrea(fname,title,source,institution, &
  &               idim,dims,dimsiz,xtypes,longnames,units, &
  &               origin,interval )
  !
 
  use gtool_history, only: historycreate
  implicit none
 
  character(len=*)              :: fname           ! 出力ファイル
  character(len=*)              :: title           ! データ全体の表題
  character(len=*)              :: source          ! データを作成する際の手段
  character(len=*)              :: institution     ! ファイルを最終的に変更した人/組織
  integer                       :: idim            ! 定義する軸変数の数
  character(len=1),dimension(idim)   :: dims            ! 軸変数名
  integer,dimension(idim)       :: dimsiz          ! 軸変数の大きさ
  character(len=*),dimension(idim) :: xtypes          ! 軸変数のタイプ
  character(len=*),dimension(idim) :: longnames       ! 軸変数の長い名前
  character(len=*),dimension(idim) :: units           ! 単位
  real                          :: origin          ! 開始時間
  real                          :: interval        ! 出力時間間隔
 
  call historycreate( file=fname, title=title, &
    & source=source, institution=institution, &
    & dims=dims, dimsizes=dimsiz, xtypes=xtypes, &
    & longnames=longnames, units=units, &
    & origin=origin, interval=interval )
 
end subroutine hscrea