gdncfilereopen.f90

Go to the documentation of this file.

 
 
subroutine gdncfilereopen(fileid, err)
  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')
end subroutine gdncfilereopen