source: LMDZ6/branches/Amaury_dev/libf/phylmd/iotd_ecrit.F90 @ 5128

      SUBROUTINE iotd_ecrit(nom,llm,titre,unite,px)


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

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

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

!=======================================================================
!-----------------------------------------------------------------------
!  ----------
!      nom  : nom de la variable a sortir (chaine de caracteres)
!      llm  : nombre de couches
!      titre: titre de la variable (chaine de caracteres)
!      unite : unite de la variable (chaine de caracteres)
!      px : variable a sortir

!=================================================================
 
      USE netcdf, ONLY: nf90_put_var,nf90_inq_varid,nf90_enddef,nf90_redef,nf90_sync,nf90_noerr,&
              nf90_float,nf90_def_var
      IMPLICIT NONE

! Commons

      INCLUDE "iotd.h"


! Arguments on input:
      INTEGER llm
      CHARACTER (LEN=*) :: nom,titre,unite
      INTEGER imjmax
      parameter (imjmax=100000)
      REAL px(imjmax*llm)

! Local variables:

      real(kind=4) date
      real(kind=4) zx(imjmax*llm)


      INTEGER ierr,ndim,dim_cc(4)
      INTEGER iq
      INTEGER i,j,l

      INTEGER zitau
      character firstnom*20
      SAVE firstnom
      SAVE zitau
      SAVE date
      data firstnom /'1234567890'/
      data zitau /0/

! Ajouts
      INTEGER, save :: ntime=0
      INTEGER :: idim,varid
      CHARACTER (LEN =50):: fichnom
      INTEGER, DIMENSION(4) :: id
      INTEGER, DIMENSION(4) :: edges,corner
      


       IF (n_names_iotd_def>0 .and..not.any(names_iotd_def==nom)) RETURN
!***************************************************************
! Initialisation of 'firstnom' and create/open the "diagfi.nc" NetCDF file
! ------------------------------------------------------------------------
! (Au tout premier appel de la SUBROUTINE durant le run.)


!--------------------------------------------------------
! Write the variables to output file if it's time to do so
!--------------------------------------------------------


! Compute/write/extend 'time' coordinate (date given in days)
! (done every "first call" (at given time level) to writediagfi)
! Note: date is incremented as 1 step ahead of physics time
!--------------------------------------------------------

        zx(1:imax*jmax*llm)=px(1:imax*jmax*llm)
        IF (firstnom =='1234567890') THEN
            firstnom=nom
        endif

       !PRINT*,'nom ',nom,firstnom

!! Quand on tombe sur la premiere variable on ajoute un pas de temps
        IF (nom==firstnom) THEN
        ! We have identified a "first call" (at given date)

           ntime=ntime+1 ! increment # of stored time steps

!!          PRINT*,'ntime ',ntime
           date=iotd_t0+ntime*iotd_ts
           !PRINT*,'iotd_ecrit ',iotd_ts,ntime, date
!          date= float (zitau +1)/float (day_step)

           ! compute corresponding date (in days and fractions thereof)
           ! Get NetCDF ID of 'time' variable

           ierr=nf90_sync(nid)

           ierr= nf90_inq_varid(nid,"time",varid)
           ! Write (append) the new date to the 'time' array


           ierr= nf90_put_var(nid,varid,date,[ntime])

!          PRINT*,'date ',date,ierr,nid
!        PRINT*,'IOTD Date ,varid,nid,ntime,date',varid,nid,ntime,date

           IF (ierr/=nf90_noerr) THEN
              WRITE(*,*) "***** PUT_VAR matter in writediagfi_nc"
              WRITE(*,*) "***** with time"
              WRITE(*,*) 'ierr=', ierr
           endif

!          WRITE(6,*)'WRITEDIAGFI: date= ', date
        end if ! of if (nom.EQ.firstnom)


!Case of a 3D variable
!---------------------
        IF (llm==lmax) THEN
           ndim=4
           corner(1)=1
           corner(2)=1
           corner(3)=1
           corner(4)=ntime
           edges(1)=imax
           edges(2)=jmax
           edges(3)=llm
           edges(4)=1
           dim_cc=dim_coord


!Case of a 2D variable
!---------------------

        ELSE IF (llm==1) THEN
           ndim=3
           corner(1)=1
           corner(2)=1
           corner(3)=ntime
           corner(4)=1
           edges(1)=imax
           edges(2)=jmax
           edges(3)=1
           edges(4)=1
           dim_cc(1:2)=dim_coord(1:2)
           dim_cc(3)=dim_coord(4)

        endif ! of if llm=1 ou llm

! AU premier pas de temps, on crée les variables
!-----------------------------------------------

      IF (ntime==1) THEN
          ierr = nf90_redef (nid)
          ierr = nf90_def_var(nid,nom,nf90_float,dim_cc,varid)
          !PRINT*,'DEF ',nom,nid,varid
          ierr = nf90_enddef(nid)
      else
         ierr= nf90_inq_varid(nid,nom,varid)
          !PRINT*,'INQ ',nom,nid,varid
! Commandes pour recuperer automatiquement les coordonnees
!             ierr= nf90_inq_dimid(nid,"longitude",id(1))
      endif


      ierr= nf90_put_var(nid,varid,zx,corner,edges)

      IF (ierr/=nf90_noerr) THEN
           WRITE(*,*) "***** PUT_VAR problem in writediagfi"
           WRITE(*,*) "***** with ",nom
           WRITE(*,*) 'ierr=', ierr
      endif 


      END