hsavar.f90 File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine hsavar (vname, idim, dims, lname, unit, xtype)
 

Function/Subroutine Documentation

◆ hsavar()

subroutine hsavar ( character(len=*), intent(in)  vname,
integer, intent(in)  idim,
character(len=*), dimension(idim), intent(in)  dims,
character(len=*), intent(in)  lname,
character(len=*), intent(in)  unit,
character(len=*), intent(in)  xtype 
)

Definition at line 15 of file hsavar.f90.

15  !
16  !== 機能
17  !
18  ! 変数を定義する.
19  !
20  use gtool_history
21  character(len=*),intent(in) :: vname ! 変数名
22  integer,intent(in) :: idim ! 定義する変数の次元の大きさ
23  character(len=*),dimension(idim),intent(in) :: dims ! 次元
24  character(len=*),intent(in) :: lname ! 長い名前
25  character(len=*),intent(in) :: unit ! 単位
26  character(len=*),intent(in) :: xtype ! 定義する変数のタイプ
27 
28  call historyaddvariable(varname=vname, dims=dims, &
29  & longname=lname, units=unit, xtype=xtype)
30