!
! $Header: /home/cvsroot/LMDZ4/libf/phylmd/write_histins.h,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $
!
      IF (ok_instan) THEN
c
      ndex2d = 0
      ndex3d = 0
      zx_tmp_2d = 0.
      zx_tmp_3d = 0.
      zx_tmp_fi2d=0.
      zx_tmp_fi3d=0.
c
         zsto = dtime * ecrit_ins
         zout = dtime * ecrit_ins
         itau_w = itau_phy + itap

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

c-------------------------------------------------------
c
      if (ok_sync) then
        call histsync(nid_ins)
      endif
      ENDIF