gtvardelattr.f90

Path: src/gtvardelattr.f90
Last Update: Wed Jul 20 18:22:24 JST 2005

Copyright (C) TOYODA Eizi, 2000. All rights reserved.

Methods

GTVarDelAttr  

Included Modules

gtdata_types gt_map an_generic gt_mem dc_error

Public Instance methods

GTVarDelAttr(var, name, err)
var :type(GT_VARIABLE), intent(inout)
name :character(len = *), intent(in)
err :logical, intent(out), optional

[Source]

subroutine GTVarDelAttr(var, name, err)

    implicit none
    type(GT_VARIABLE), intent(inout):: var
    character(len = *), intent(in):: name
    logical, intent(out), optional:: err
    integer:: class, cid
continue
    call var_class(var, class, cid)
    if (class == vtb_class_netcdf) then
        call del_attr(an_variable(cid), name, err)
    else if (class == vtb_class_memory) then
        call del_attr(mem_variable(cid), name, err)
    else
        call StoreError(GT_EBADVAR, 'GTVarDelAttr', err)
    endif
end subroutine

[Validate]