gdncfiledatamode.f90

Go to the documentation of this file.

integer function gdncfiledatamode(fileid) result(result)
  use netcdf, only: nf90_enddef, nf90_enotindefine, nf90_noerr
  use dc_trace, only: dbgmessage
  implicit none
  integer, intent(in):: fileid
  character(*), parameter:: subname = "GDNcFileDataMode"
continue
  call dbgmessage(subname)
  result = nf90_enddef(fileid)
  if (result == nf90_enotindefine) result = nf90_noerr
end function gdncfiledatamode