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.

References dc_trace::dbgmessage().

Referenced by gdncfilesync(), gdncvarputchar(), gdncvarputdouble(), gdncvarputint(), and gdncvarputreal().

2  use netcdf, only: nf90_enddef, nf90_enotindefine, nf90_noerr
3  use dc_trace, only: dbgmessage
4  implicit none
5  integer, intent(in):: fileid
6  character(*), parameter:: subname = "GDNcFileDataMode"
7 continue
8  call dbgmessage(subname)
9  result = nf90_enddef(fileid)
10  if (result == nf90_enotindefine) result = nf90_noerr
subroutine, public dbgmessage(fmt, i, r, d, L, n, c1, c2, c3, ca)
Definition: dc_trace.f90:509
Here is the call graph for this function:
Here is the caller graph for this function: