gtvarclose.f90 File Reference

Variable finalization. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gtvarclose (var, err)

Detailed Description

Variable finalization.

Author

Yasuhiro MORIKAWA, Eizi TOYODA

Copyright

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

This subroutine is provided through gtdata_generic.

Definition in file gtvarclose.f90.

Function/Subroutine Documentation

gtvarclose()

subroutine gtvarclose	(	type(gt_variable), intent(in), target	var,
		logical, intent(out), optional	err )

Finalize variable

Performs finalization for variable var. Variables that have been Opened or Created must be finalized using this subroutine at the end of the program.

If an error occurs during finalization, outputs a message and terminates the program. If err is provided, returns .true. in that argument and program does not terminate.

Parameters

[in]	var	Variable handle to close
[out]	err	Error flag (optional)

Definition at line 48 of file gtvarclose.f90.

  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: vtb_class_netcdf, &
    & maptabdelete, map_lookup
  use gtdata_internal_vartable, only: vartabledelete, vartablelookup
  use gtdata_netcdf_generic, only: close
  use gtdata_netcdf_types, only: gd_nc_variable
  use dc_error, only: storeerror, gt_ebadvar
  use dc_trace, only: beginsub, endsub, dbgmessage
  implicit none
  type(GT_VARIABLE), intent(in), target:: var
  logical, intent(out), optional:: err
  integer:: vid, class, cid
  logical:: action, myerr
continue
  call beginsub('gtvarclose', fmt='var=%d', i=(/var%mapid/))
  call map_lookup(var, vid=vid)
  call maptabdelete(var, myerr)
  if (myerr) goto 999
  ! vid が 0 になるのは dup_dimmap で作られたハンドル
  if (vid == 0) goto 999
  call vartablelookup(vid, class, cid)
  call vartabledelete(vid, action, myerr)
  if (myerr) goto 999
  if (.not. action) then
    call dbgmessage('refcount decrement only, no close internal var')
    goto 999
  else if (class == vtb_class_netcdf) then
    call close(gd_nc_variable(cid), myerr)
    if (myerr) goto 999
  else
    call storeerror(gt_ebadvar, "GTVarClose", err)
    call endsub('GTVarClose', 'badvar')
    myerr = .true.
  endif
999 continue
  call endsub('gtvarclose')
  if (present(err)) err = myerr

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_trace::endsub(), dc_error::gt_ebadvar, gtdata_internal_map::map_lookup(), gtdata_internal_map::maptabdelete(), dc_error::storeerror(), gtdata_internal_vartable::vartabledelete(), and gtdata_internal_vartable::vartablelookup().

Here is the call graph for this function: