hsavar.f90

Go to the documentation of this file.

 
 
subroutine hsavar(vname,idim,dims,lname,unit,xtype)
  !
  use gtool_history
  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                ! 定義する変数のタイプ
 
  call historyaddvariable(varname=vname, dims=dims, &
    &                     longname=lname, units=unit, xtype=xtype)
 
end subroutine hsavar