gtvarcopyattrall.f90 File Reference

Copy all attributes. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gtvarcopyattrall (to, from, err, global)

Detailed Description

Copy all attributes.

Author

Eizi TOYODA, Yasuhiro MORIKAWA

Copyright

Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. See COPYRIGHT in detail

Definition in file gtvarcopyattrall.f90.

Function/Subroutine Documentation

gtvarcopyattrall()

subroutine gtvarcopyattrall	(	type(gt_variable), intent(inout)	to,
		type(gt_variable), intent(inout)	from,
		logical, intent(out), optional	err,
		logical, intent(in), optional	global
	)

Copy all attributes from one variable to another

Copies all attributes of variable from to variable to. By default, global attributes are also copied. If global is set to .false., global attributes are not copied.

Copy_Attr is a generic name for 2 subroutines; there is also a method to copy by specifying an attribute.

Parameters

[in,out]	to	Destination variable handle
[in,out]	from	Source variable handle
[out]	err	Error flag (optional)
[in]	global	Whether to copy global attributes (optional)

Definition at line 53 of file gtvarcopyattrall.f90.

  use gtdata_types, only: gt_variable
  use gtdata_generic, only: attr_rewind, attr_next, gtvarcopyattr
  use dc_present,only:present_and_true, present_and_false
  use dc_url,   only: gt_plus
  use dc_error, only: dumperror
  use dc_trace, only: beginsub, endsub, dbgmessage
  use dc_types, only: string
  type(gt_variable), intent(inout):: to
  type(gt_variable), intent(inout):: from
  logical, intent(out), optional:: err
  logical, intent(in), optional:: global
  character(len = *), parameter:: subnam = "GTVarCopyAttrAll"
  character(len = STRING):: aname
  logical:: end
continue
  if (present(err)) err = .false.
  call beginsub(subnam)
  call attr_rewind(from)
  do
    call attr_next(from, aname, end)
    if (end) exit
    if ( (present_and_false(global)) .and. (aname(1:1) == gt_plus) ) then
      call dbgmessage("Ignored attr=%c", c1=aname)
      cycle
    end if
    call dbgmessage("Copied attr=%c", c1=aname)
    call gtvarcopyattr(to=to, attrname=aname, from=from, err=err)
    if (present_and_true(err)) err = .false.
  enddo
  call endsub(subnam)

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_trace::endsub(), dc_url::gt_plus, gtvarcopyattr(), dc_present::present_and_false(), dc_present::present_and_true(), and dc_types::string.

Here is the call graph for this function: