Class | gt4_historyauto |
In: |
gt4_historyauto.f90
|
Derived Type : | |
name : | character(len=TOKEN) |
rval(:) =>null() : | real,pointer |
ival(:) =>null() : | integer,pointer |
cval : | character(len=STRING) |
Derived Type : | |||
rank : | integer | ||
name : | character(len=TOKEN) | ||
dims(3) : | character(len=TOKEN)
| ||
longname : | character(len=STRING) | ||
units : | character(len=STRING) | ||
ary(:) =>null() : | real,pointer |
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 |
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) |
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
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
| ||
file : | character(len=STRING) | ||
proc : | character(len=TOKEN) | ||
newfile_interval : | real
| ||
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
| ||
dt : | real
| ||
conventions : | character(len=STRING) | ||
gt_version : | character(len=TOKEN) | ||
out_of_domain : | logical
| ||
spcoordvars(3) : | type(GT4_REAL1D) | ||
ancilcrdvars(:) =>null() : | type(GT4_NAMED_REALARY),pointer
| ||
attrs(:) =>null() : | type(GT4_ATTRIBUTE),pointer |
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 = *) |
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