!
! $Header: /home/cvsroot/LMDZ4/libf/phylmd/write_histhf.h,v 1.3 2005/02/24 09:58:18 fairhead Exp $
!
      if (ok_hf) then

c   Comprendre comment marche el i=nint(zout/zsto)
c
c     print*,'ACRITURE HF !!! ACRITURE HF !!! ACRITURE HF !!! '
      ndex2d = 0
      ndex3d = 0
c
      zsto = dtime
      zout = dtime * ecrit_hf
      itau_w = itau_phy + itap
c
      IF(lev_histhf.GE.1) THEN
c
      i = NINT(zout/zsto)
      CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis,zx_tmp_2d)
      z4_tmp_2d=zx_tmp_2d
      CALL histwrite(nid_hf,"phis",i,z4_tmp_2d,iim*jjmp1,ndex2d)
 
      endif