SUBROUTINE iotd_fin
      USE netcdf, ONLY: nf90_close
      IMPLICIT NONE

!=======================================================================
!
!   Auteur:  F. Hourdin
!   -------
!
!   Objet:
!   ------
!   Light interface for netcdf outputs. can be used outside LMDZ
!
!=======================================================================
      INCLUDE "iotd.h"
      integer ierr

!   Arguments:
!   ----------

      ierr=nf90_close(nid)

      END