Index: /LMDZ4/trunk/libf/phylmd/ini_histrac.h
===================================================================
--- /LMDZ4/trunk/libf/phylmd/ini_histrac.h	(revision 1029)
+++ /LMDZ4/trunk/libf/phylmd/ini_histrac.h	(revision 1030)
@@ -6,13 +6,4 @@
          CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian)
 c
-cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1,xlon,zx_lon)
-cym         DO i = 1, iim
-cym            zx_lon(i,1) = xlon(i+1)
-cym            zx_lon(i,jjm+1) = xlon(i+1)
-cym         ENDDO
-cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1,xlat,zx_lat)
-cym         CALL histbeg("histrac", iim,zx_lon(:,1), jjm+1,zx_lat(1,:),
-cym     .                 1,iim,1,jjm+1, itau_phy, zjulian, pdtphys,
-cym     .                 nhori, nid_tra)
          CALL histbeg_phy("histrac", itau_phy, zjulian, pdtphys,
      .                 nhori, nid_tra)
Index: /LMDZ4/trunk/libf/phylmd/write_histrac.h
===================================================================
--- /LMDZ4/trunk/libf/phylmd/write_histrac.h	(revision 1029)
+++ /LMDZ4/trunk/libf/phylmd/write_histrac.h	(revision 1030)
@@ -10,8 +10,6 @@
       itau_w = itau_phy + nstep
 
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,pphis,zx_tmp_2d)
       CALL histwrite_phy(nid_tra,"phis",itau_w,pphis)
 C
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,airephy,zx_tmp_2d)      
       CALL histwrite_phy(nid_tra,"aire",itau_w,airephy)
 
@@ -20,8 +18,6 @@
 
 
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,tr_seri(1,1,it),zx_tmp_3d)
        CALL histwrite_phy(nid_tra,tnom(it+2),itau_w,tr_seri(:,:,it))
        if (lessivage) THEN
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,flestottr(1,1,it),zx_tmp_3d)
        CALL histwrite_phy(nid_tra,"fl"//tnom(it+2),itau_w,
      .                                   flestottr(:,:,it))
@@ -29,11 +25,11 @@
       
 c----Olivia
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,d_tr_th(1,1,it),zx_tmp_3d)
        CALL histwrite_phy(nid_tra,"d_tr_th_"//tnom(it+2),itau_w,
      .                                           d_tr_th(:,:,it))
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,d_tr_cv(1,1,it),zx_tmp_3d)
+
+         if(iflag_con.GE.2) then
        CALL histwrite_phy(nid_tra,"d_tr_cv_"//tnom(it+2),itau_w,
      .                                           d_tr_cv(:,:,it))
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,d_tr_cl(1,1,it),zx_tmp_3d)
+         endif !(iflag_con.GE.2) then
        CALL histwrite_phy(nid_tra,"d_tr_cl_"//tnom(it+2),itau_w,
      .                                           d_tr_cl(:,:,it))
@@ -44,51 +40,32 @@
 
 C abder
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,yu1,zx_tmp_2d)
          CALL histwrite_phy(nid_tra,"pyu1",itau_w,yu1)
 
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,yv1,zx_tmp_2d)
          CALL histwrite_phy(nid_tra,"pyv1",itau_w,yv1)
 
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,pftsol1,zx_tmp_2d)
          CALL histwrite_phy(nid_tra,"ftsol1",itau_w,pftsol1)
 
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,pftsol2,zx_tmp_2d)
          CALL histwrite_phy(nid_tra,"ftsol2",itau_w,pftsol2)
 
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,pftsol3,zx_tmp_2d)
          CALL histwrite_phy(nid_tra,"ftsol3",itau_w,pftsol3)
 
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,pftsol4,zx_tmp_2d)
          CALL histwrite_phy(nid_tra,"ftsol4",itau_w,pftsol4)
 
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,ppsrf1,zx_tmp_2d)
          CALL histwrite_phy(nid_tra,"psrf1",itau_w,ppsrf1)
 
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,ppsrf2,zx_tmp_2d)
          CALL histwrite_phy(nid_tra,"psrf2",itau_w,ppsrf2)
 
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,ppsrf3,zx_tmp_2d)
          CALL histwrite_phy(nid_tra,"psrf3",itau_w,ppsrf3)
 
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,ppsrf4,zx_tmp_2d)
          CALL histwrite_phy(nid_tra,"psrf4",itau_w,ppsrf4)
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pplay,zx_tmp_3d)
         CALL histwrite_phy(nid_tra,"pplay",itau_w,pplay)
 
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,t_seri,zx_tmp_3d)
         CALL histwrite_phy(nid_tra,"t",itau_w,t_seri)
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pmfu,zx_tmp_3d)
         CALL histwrite_phy(nid_tra,"mfu",itau_w,pmfu)
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pmfd,zx_tmp_3d)
         CALL histwrite_phy(nid_tra,"mfd",itau_w,pmfd)
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pen_u,zx_tmp_3d)
         CALL histwrite_phy(nid_tra,"en_u",itau_w,pen_u)
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pen_d,zx_tmp_3d)
         CALL histwrite_phy(nid_tra,"en_d",itau_w,pen_d)
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pde_d,zx_tmp_3d)
         CALL histwrite_phy(nid_tra,"de_d",itau_w,pde_d)
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pde_u,zx_tmp_3d)
         CALL histwrite_phy(nid_tra,"de_u",itau_w,pde_u)
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,coefh,zx_tmp_3d)
         CALL histwrite_phy(nid_tra,"coefh",itau_w,coefh)