Subroutine : |
|
vname : | character(len=*),intent(in)
|
idim : | integer,intent(in)
|
dims : | character(len=*),dimension(idim),intent(in)
|
lname : | character(len=*),intent(in)
|
unit : | character(len=*),intent(in)
|
xtype : | character(len=*),intent(in)
|
変数を定義する.
subroutine hsavar(vname,idim,dims,lname,unit,xtype)
!
!== 機能
!
! 変数を定義する.
!
use gt4_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