iotd_fin.f90 Source File

SUBROUTINE iotd_fin
  USE iotd_mod_h, ONLY: nid
  USE netcdf, ONLY: nf90_close
  IMPLICIT NONE

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

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

  ierr = nf90_close(nid)
END SUBROUTINE iotd_fin