Class gtdata_internal
In: gtdata_internal.f90

Methods

dimrange   dimrange_direct   ndims   query_growable  

Included Modules

gt_vartable an_types an_generic dc_error

Attributes

Imported modules all of whose components are published again  []  gt_vartable

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
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
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

[Validate]