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