!
! $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
	 z4julian = zjulian
         CALL ymds2ju(annee_ref, 1, idayref, zero, z4julian)
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)
	 z4_lon = zx_lon
	 z4_lat = zx_lat
	 zpresnivs=presnivs
         CALL histbeg("histins", iim,z4_lon(:,1), jjmp1,z4_lat(1,:),
     .                 1,iim,1,jjmp1, itau_phy, z4julian, zsto1,
     .                 nhori, nid_ins)
         write(*,*)'Inst ', itau_phy, zjulian
         CALL histvert(nid_ins, "presnivs", "Vertical levels", "mb",
     .                 klev, zpresnivs, nvert)

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

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

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