Path: | hsavar.f90 |
Last Update: | Sun Jan 15 16:10:30 +0900 2006 |
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-20080720 $ |
Copyright: | Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved. |
License: | See COPYRIGHT |
gt4_history#HistoryAddVariable : | HSAVAR |
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