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