Class gt4_historyauto
In: gt4_historyauto.f90

Methods

Included Modules

dc_types dc_trace dc_present gt4_history

Public Instance methods

GT4_ATTRIBUTE
Derived Type :
name :character(len=TOKEN)
rval(:) =>null() :real,pointer
ival(:) =>null() :integer,pointer
cval :character(len=STRING)
GT4_NAMED_REALARY
Derived Type :
rank :integer
name :character(len=TOKEN)
dims(3) :character(len=TOKEN)
: to support up to 3D
longname :character(len=STRING)
units :character(len=STRING)
ary(:) =>null() :real,pointer
GT4_REAL1D
Derived Type :
ary(:) => null() :real,pointer

to make an array of 1D arrays

Function :
result :type(GT4_ATTRIBUTE)
name :character(len=*),intent(in)
rval(:) :real,intent(in),optional
ival(:) :integer,intent(in),optional
cval :character(len=*),intent(in),optional

[Source]

   function init_gt4_attribute(name,rval,ival,cval) result(result)
      implicit none
      type(GT4_ATTRIBUTE)                       :: result
      character(len=*),intent(in)           :: name
      real,intent(in),optional              :: rval(:)
      integer,intent(in),optional           :: ival(:)
      character(len=*),intent(in),optional  :: cval
      result%name = name
      if(present(rval)) then
	 allocate(result%rval(size(rval)))
	 result%rval = rval
	 nullify(result%ival)
      else if (present(ival)) then
	 allocate(result%ival(size(ival)))
	 result%ival = ival
	 nullify(result%rval)
      else if (present(cval)) then
	 nullify(result%rval)
	 nullify(result%ival)
	 result%cval = cval
      endif
   end function init_gt4_attribute
Function :
result :type(GT4_REAL1D)
ary(:) :real,intent(in)

[Source]

   function init_gt4_real1d(ary) result(result)
      implicit none
      type(GT4_REAL1D)      :: result
      real,intent(in)   :: ary(:)
      if(associated(result%ary)) deallocate(result%ary)
      allocate(result%ary(size(ary)))
      result%ary = ary
   end function init_gt4_real1d

Private Instance methods

GTHP
Derived Type :
hs =>null() :type(GT_HISTORY),pointer
HISTGRIDPOOL
Variable :
HISTGRIDPOOL => NULL() :type(HIST_LINK),save,pointer
: Fortran95 feature
HISTPOOL
Variable :
HISTPOOL => NULL() :type(HIST_LINK),save,pointer
: Fortran95 feature
HIST_EACHVAR
Derived Type :
name :character(len=TOKEN)
h =>null() :type(GTHP), pointer
longname :character(len=STRING)
units :character(len=STRING)
size :integer
aryshape(3) :integer
slfst(3) :integer
sllst(3) :integer
slstp(3) :integer
domain_div :logical
subdomfst(3) :integer
: needed for HistoryCreate:
file :character(len=STRING)
proc :character(len=TOKEN)
newfile_interval :real
: negative-> no renew
title :character(len=STRING)
source :character(len=STRING)
institution :character(len=STRING)
sprank :integer
dims(4) :character(len=TOKEN)
dimsizes(4) :integer
axlongnames(4) :character(len=STRING)
axunits(4) :character(len=STRING)
axxtypes(4) :character(len=TOKEN)
time_last :real
time_to_start :real
put_interval :real
: output time interval
dt :real
: model time step (to quantize upon)
conventions :character(len=STRING)
gt_version :character(len=TOKEN)
out_of_domain :logical
: spastal coordinate variables:
spcoordvars(3) :type(GT4_REAL1D)
ancilcrdvars(:) =>null() :type(GT4_NAMED_REALARY),pointer
: attributes of the data
attrs(:) =>null() :type(GT4_ATTRIBUTE),pointer
HIST_LINK
Derived Type :
name :character(len=TOKEN)
hist :type(HIST_EACHVAR)
next =>null() :type(HIST_LINK),pointer
Function :
result :logical
history :type(GT_HISTORY), intent(in)
varname :character(len = *)

[Source]

   logical function HistoryHasVariable(history, varname) result(result)
      implicit none
      type(GT_HISTORY), intent(in):: history
      character(len = *):: varname
      type(GT_HISTORY_VARINFO), pointer :: varinfo(:) =>null()
      integer:: i
      logical :: err
      character(STRING) :: name

      result = .false.
      call Inquire(history, err = err, varinfo = varinfo)
      do i = 1, size(varinfo)
	 call Inquire(varinfo(i), name=name)
	 if (name == varname) then
	    result = .true.
	    return
	 endif
      end do
      return
   end function HistoryHasVariable
com_conventions
Variable :
com_conventions =’‘ :character(len=max_char_len),save
com_gt_version
Variable :
com_gt_version =’4.2‘ :character(len=max_char_len),save
com_institution
Variable :
com_institution =’‘ :character(len=max_char_len),save
com_proc
Variable :
com_proc =’‘ :character(len=max_char_len),save
com_source
Variable :
com_source =’‘ :character(len=max_char_len),save
com_title
Variable :
com_title =’‘ :character(len=max_char_len),save
max_char_len
Constant :
max_char_len = 200 :integer,parameter

[Validate]