gdncfiledefinemode.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
integer function	gdncfiledefinemode (fileid)

Function/Subroutine Documentation

gdncfiledefinemode()

integer function gdncfiledefinemode

(

integer, intent(in)

fileid

)

Definition at line 2 of file gdncfiledefinemode.f90.

  use netcdf, only: nf90_redef, nf90_eindefine, nf90_noerr
  use dc_trace, only: beginsub, endsub, dbgmessage
  integer, intent(in):: fileid
  character(*), parameter:: subname = "GDNcFileDefineMode"
continue
  call dbgmessage(subname // ' %d', i=(/fileid/))
  result = nf90_redef(fileid)
  if (result == nf90_eindefine) result = nf90_noerr