gdncfilereopen.f90 File Reference

Increment reference count of an open netCDF file . More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gdncfilereopen (fileid, err)

Detailed Description

Increment reference count of an open netCDF file

.

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

Definition in file gdncfilereopen.f90.

Function/Subroutine Documentation

gdncfilereopen()

subroutine gdncfilereopen	(	integer, intent(in)	fileid,
		logical, intent(out), optional	err )

Increment reference count of an open netCDF file

Searches the internal file list for the given file ID and increments its reference count. Returns an error if the file ID is not found.

Parameters

[in]	fileid	netCDF file ID
[out]	err	Error flag (optional)

Definition at line 35 of file gdncfilereopen.f90.

  use gtdata_netcdf_file_types, only: gd_nc_file_id_entry
  use gtdata_netcdf_file_internal, only: id_head, id_used
  use netcdf, only: nf90_enotnc
  use dc_error, only: storeerror
  use dc_trace, only: beginsub, endsub, dbgmessage
  implicit none
  integer, intent(in):: fileid
  logical, intent(out), optional:: err
  type(GD_NC_FILE_ID_ENTRY), pointer:: identptr
  character(*), parameter:: subname = "GDNcFileReopen"
continue
  call beginsub(subname, 'file=%d', i=(/fileid/))
  if (id_used) then
    identptr => id_head
    do
      if (identptr % id == fileid) then
        identptr % count = identptr % count + 1
        if (present(err)) err = .false.
        call endsub(subname, 'count=%d', i=(/identptr % count/))
        return
      endif
      identptr => identptr % next
      if (.not. associated(identptr)) exit
    enddo
  endif
  call storeerror(nf90_enotnc, 'GDNcFileReopen', err, cause_i=fileid)
  call endsub(subname, 'err')

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_trace::endsub(), gtdata_netcdf_file_internal::id_head, gtdata_netcdf_file_internal::id_used, and dc_error::storeerror().

Here is the call graph for this function: