!=======================================================================

!   Auteur:  F. Hourdin
!   -------

!   Objet:
!   ------
!   Light interface for netcdf outputs. can be used outside LMDZ

!=======================================================================

      INTEGER imax,jmax,lmax,nid
      INTEGER dim_coord(4)
      REAL iotd_ts,iotd_t0
      INTEGER :: n_names_iotd_def
      character*20, DIMENSION(200) :: names_iotd_def
      character*20 :: un_nom

      common/iotd_ca/imax,jmax,lmax,nid,dim_coord,iotd_t0,iotd_ts
      common/iotd_cb/n_names_iotd_def,names_iotd_def
!$OMP THREADPRIVATE(/iotd_ca/)
!$OMP THREADPRIVATE(/iotd_cb/)