Subroutine : |
|
fname : | character(len=*)
|
title : | character(len=*)
|
source : | character(len=*)
|
institution : | character(len=*)
|
idim : | integer
|
dims : | character(len=1),dimension(idim)
|
dimsiz : | integer,dimension(idim)
|
xtypes : | character(len=*),dimension(idim)
|
longnames : | character(len=*),dimension(idim)
|
units : | character(len=*),dimension(idim)
|
origin : | real
|
interval : | real
|
ヒストリーを定義する.
subroutine hscrea(fname,title,source,institution, idim,dims,dimsiz,xtypes,longnames,units, origin,interval )
!
!== 機能
!
! ヒストリーを定義する.
!
use gt4_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