INTERFACE:
subroutine ncd_enddef(ncid)
enddef netcdf file
ARGUMENTS:
implicit none type(file_desc_t),intent(inout) :: ncid ! netcdf file id