!
! $Header: /home/cvsroot/LMDZ4/libf/phylmd/write_histrac.h,v 1.2 2004/06/22 11:45:36 lmdzadmin Exp $
!
      ndex = 0
      ndex2d = 0
      ndex3d = 0
c
      zsto = pdtphys
      zout = pdtphys * FLOAT(ecrit_tra)
      itau_w = itau_phy + nstep

      
      i = NINT(zout/zsto)
      CALL gr_fi_ecrit(1,klon,iim,jjm+1,pphis,zx_tmp_2d)
      z4_tmp_2d=zx_tmp_2d
      CALL histwrite(nid_tra,"phis",itau_w,z4_tmp_2d,iim*(jjm+1),ndex2d)
C
      CALL gr_fi_ecrit(1,klon,iim,jjm+1,airephy,zx_tmp_2d)      
      z4_tmp_2d=zx_tmp_2d
      CALL histwrite(nid_tra,"aire",itau_w,z4_tmp_2d,iim*(jjm+1),ndex2d)