hsavar.f90

Path: hsavar.f90
Last Update: Sun Jan 15 16:10:30 JST 2006

gt4_history Fortran 77 用インターフェース

Authors:Shin-ichi TAKEHIRO, Yasuhiro MORIKAWA
Version:$Id: hsavar.f90,v 1.3 2006/01/15 07:10:30 morikawa Exp $
Tag Name:$Name: gt4f90io-20060719 $
Copyright:Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.
License:See COPYRIGHT

サブルーチン対応表

gt4_history#HistoryAddVariable :HSAVAR

Required files

Methods

hsavar  

Included Modules

gt4_history

Public Instance methods

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)
: 定義する変数のタイプ

機能

変数を定義する.

[Source]

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

[Validate]