2 use netcdf
, only: nf90_redef, nf90_eindefine, nf90_noerr
4 integer,
intent(in):: fileid
5 character(*),
parameter:: subname =
"GDNcFileDefineMode" 8 result = nf90_redef(fileid)
9 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)