*-----------------------------------------------------------------------
      subroutine nxclos(ncdfid)


      call ncclos(ncdfid,ircode)
      if (ircode.ne.0) call msgdmp('e','nxclos','error in ncclos.')

      end
