gdncvarattrcopy.f90

Path: gtdata/gtdata_netcdf/gdncvarattrcopy.f90
Last Update: Mon May 25 18:51:59 +0900 2009

Copyright (C) GFD Dennou Club, 2000. All rights reserved.

Methods

GDNcVarAttrCopy  

Included Modules

gtdata_netcdf_types gtdata_netcdf_file_generic gtdata_netcdf_generic gtdata_netcdf_internal netcdf_f77 dc_url dc_error

Public Instance methods

GDNcVarAttrCopy( to, attrname, from, stat )
Subroutine :
to :type(GD_NC_VARIABLE), intent(in)
attrname :character(len = *), intent(in)
from :type(GD_NC_VARIABLE), intent(in)
stat :integer, intent(out)

[Source]

subroutine GDNcVarAttrCopy(to, attrname, from, stat)
  use gtdata_netcdf_types, only: GD_NC_VARIABLE, GD_NC_VARIABLE_ENTRY
  use gtdata_netcdf_file_generic, only: GDNcFileDefineMode
  use gtdata_netcdf_generic, only: InquirePlus
  use gtdata_netcdf_internal, only: vtable_lookup
  use netcdf_f77
  use dc_url, only: GT_PLUS
  use dc_error
  implicit none
  type(GD_NC_VARIABLE), intent(in):: to
  character(len = *), intent(in):: attrname
  type(GD_NC_VARIABLE), intent(in):: from
  integer, intent(out):: stat
  character(NF_MAX_NAME):: nc_aname
  integer:: id_var_from, id_var_to
  logical:: myerr
  type(GD_NC_VARIABLE_ENTRY):: to_ent, from_ent
  stat = vtable_lookup(to, to_ent)
  if (stat /= NF_NOERR) goto 999
  stat = vtable_lookup(from, from_ent)
  if (stat /= NF_NOERR) goto 999
  stat = GDNcFileDefineMode(to_ent%fileid)
  if (stat /= NF_NOERR) goto 999
  call InquirePlus(from, attrname, id_var_from, nc_aname)
  call InquirePlus(to, attrname, id_var_to, nc_aname)
  stat = nf_copy_att(from_ent%fileid, id_var_from, nc_aname, to_ent%fileid, id_var_to)
999 continue
  call StoreError(stat, "GDNcVarAttrCopy", myerr)
  return
end subroutine GDNcVarAttrCopy

[Validate]