36 use netcdf,
only: nf90_redef, nf90_eindefine, nf90_noerr
38 integer,
intent(in):: fileid
39 character(*),
parameter:: subname =
"GDNcFileDefineMode"
41 call dbgmessage(subname //
' %d', i=(/fileid/))
42 result = nf90_redef(fileid)
43 if (result == nf90_eindefine) result = nf90_noerr
integer function gdncfiledefinemode(fileid)
subroutine, public dbgmessage(fmt, i, r, d, l, n, c1, c2, c3, ca)
subroutine, public beginsub(name, fmt, i, r, d, l, n, c1, c2, c3, ca, version)
subroutine, public endsub(name, fmt, i, r, d, l, n, c1, c2, c3, ca)
1.9.8