--- trunk/libf/phylmd/phytrac.f90	2009/07/31 15:18:47	22
+++ trunk/libf/phylmd/phytrac.f90	2010/04/06 17:52:58	32
@@ -468,12 +468,14 @@
       ! From phylmd/write_histrac.h, version 1.9 2006/02/21 08:08:30
 
       use dimens_m, only: iim, jjm, llm
-      use ioipsl, only: histwrite, histsync
+      use histcom, only: histsync
+      use histwrite_m, only: histwrite
       use temps, only: itau_phy
       use iniadvtrac_m, only: tnom
       use comgeomphy, only: airephy
       use dimphy, only: klon
-      use grid_change, only: gr_phy_write_2d, gr_phy_write_3d
+      use grid_change, only: gr_phy_write_2d
+      use gr_phy_write_3d_m, only: gr_phy_write_3d
 
       logical, intent(in):: lessivage
 
@@ -486,7 +488,6 @@
       ! Variables local to the procedure:
       integer it
       integer itau_w   ! pas de temps ecriture
-      REAL zx_tmp_2d(iim, jjm+1), zx_tmp_3d(iim, jjm+1, llm)
       logical, parameter:: ok_sync = .true.
 
       !-----------------------------------------------------