Class gtdata_internal
In: gtdata_internal.f90

Methods

dimrange   dimrange_direct   ndims   query_growable  

Included Modules

gt_vartable an_types an_generic dc_error

Public Instance methods

dimrange( vid, dimlo, dimhi )
Subroutine :
vid :integer, intent(in)
dimlo :integer, intent(out)
dimhi :integer, intent(out)

Alias for dimrange_direct

dimrange_direct( vid, dimlo, dimhi )
Subroutine :
vid :integer, intent(in)
dimlo :integer, intent(out)
dimhi :integer, intent(out)

[Source]

  subroutine dimrange_direct(vid, dimlo, dimhi)
    use an_types, only: an_variable
    use an_generic, only: an_inquire => inquire
    use dc_error, only: storeerror, nf_einval, gt_efake
    integer, intent(in):: vid
    integer, intent(out):: dimlo, dimhi
    integer:: class, cid
    call VarTableLookup(vid, class, cid)
    select case(class)
    case(VTB_CLASS_MEMORY)
      call storeerror(gt_efake, 'gtdata::dimrange')
    case(VTB_CLASS_NETCDF)
      dimlo = 1
      call an_inquire(an_variable(cid), dimlen=dimhi)
    case default
      call storeerror(nf_einval, 'gtdata::dimrange')
    end select
  end subroutine dimrange_direct
ndims( vid ) result(result)
Function :
result :integer
vid :integer, intent(in)

[Source]

  integer function ndims(vid) result(result)
    use an_types, only: an_variable
    use an_generic, only: an_inquire => inquire
    use dc_error, only: storeerror, nf_einval
    integer, intent(in):: vid
    integer:: class, cid
    call VarTableLookup(vid, class, cid)
    select case(class)
    case(VTB_CLASS_MEMORY)
      result = 1
    case(VTB_CLASS_NETCDF)
      call an_inquire(an_variable(cid), ndims=result)
    case default
      call storeerror(nf_einval, 'gtdata::ndims')
    end select
  end function ndims
query_growable( vid, result )
Subroutine :
vid :integer, intent(in)
result :logical, intent(out)

[Source]

  subroutine query_growable(vid, result)
    use an_types, only: an_variable
    use an_generic, only: inquire 
    use dc_error, only: storeerror, nf_einval
    integer, intent(in):: vid
    logical, intent(out):: result
    integer:: class, cid
    call vartablelookup(vid, class, cid)
    select case(class)
    case(vtb_class_memory)
      result = .false.
    case(vtb_class_netcdf)
      call inquire(an_variable(cid), growable=result)
    case default
      call storeerror(nf_einval, 'gtdata::ndims')
    end select
  end subroutine query_growable

[Validate]