gdncfiledatamode.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
integer function	gdncfiledatamode (fileid)

Function/Subroutine Documentation

gdncfiledatamode()

integer function gdncfiledatamode

(

integer, intent(in)

fileid

)

Definition at line 2 of file gdncfiledatamode.f90.

  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