!
! $Header: /home/cvsroot/LMDZ4/libf/phylmd/ini_histins.h,v 1.1.1.1 2004/05/19 12:53:08 lmdzadmin Exp $
!
      IF (ok_instan) THEN
c
          zsto1= dtime
          zsto = dtime * ecrit_ins
          zout = dtime * ecrit_ins
c
         idayref = day_ref
         CALL ymds2ju(annee_ref, 1, idayref, zero, zjulian)
c
         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlond,zx_lon)
         DO i = 1, iim
            zx_lon(i,1) = rlond(i+1)
            zx_lon(i,jjmp1) = rlond(i+1)
         ENDDO
         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlatd,zx_lat)
	 
c VENUS: regardee a l'envers!!!!!!!!!!!!!!!
c    d'ou le -1.* devant zx_lon et zx_lat	 
         CALL histbeg("histins.nc", iim,-1.*zx_lon(:,1), jjmp1,
     .                 -1.*zx_lat(1,:),
     .                 1,iim,1,jjmp1, itau_phy, zjulian, zsto1,
     .                 nhori, nid_ins)
         write(*,*)'Inst ', itau_phy, zjulian
         CALL histvert(nid_ins, "presnivs", "Vertical levels", "mb",
     .                 klev, presnivs, nvert)

c-------------------------------------------------------

c-------------------------------------------------------

         CALL histend(nid_ins)
c
         ndex2d = 0
         ndex3d = 0
c
      ENDIF