Index: LMDZ4/trunk/libf/phylmd/conf_phys.F90
===================================================================
--- LMDZ4/trunk/libf/phylmd/conf_phys.F90	(revision 657)
+++ LMDZ4/trunk/libf/phylmd/conf_phys.F90	(revision 658)
@@ -688,9 +688,9 @@
 !Config Key  = ecrit_tra
 !Config Desc =
-!Config Def  = NINT(86400./dtime * ecritphy) !tous les pas de temps physiques
+!Config Def  = NINT(86400./dtime * ecritphy) !tous les ecritphy jours
 !Config Help =
 !
 ! ecrit_tra = NINT(86400./dtime * ecritphy)
-  ecrit_tra = NINT(86400.* ecritphy)
+  ecrit_tra = NINT(ecritphy)
   call getin('ecrit_tra',ecrit_tra)
 !
Index: LMDZ4/trunk/libf/phylmd/physiq.F
===================================================================
--- LMDZ4/trunk/libf/phylmd/physiq.F	(revision 657)
+++ LMDZ4/trunk/libf/phylmd/physiq.F	(revision 658)
@@ -1456,5 +1456,5 @@
          ecrit_day = NINT(ecrit_day/dtime)
          ecrit_mth = NINT(ecrit_mth/dtime)
-         ecrit_tra = NINT(ecrit_tra/dtime)
+         ecrit_tra = NINT(86400.*ecrit_tra/dtime)
          ecrit_reg = NINT(ecrit_reg/dtime)
 cIM 230505 END
@@ -2747,6 +2747,5 @@
 c====================================================================
 C
-      call phytrac (iflag_con,
-     I                   rnpb,
+      call phytrac (     rnpb,
      I                   itap, 
      I                   julien, 
Index: LMDZ4/trunk/libf/phylmd/phytrac.F
===================================================================
--- LMDZ4/trunk/libf/phylmd/phytrac.F	(revision 657)
+++ LMDZ4/trunk/libf/phylmd/phytrac.F	(revision 658)
@@ -4,6 +4,5 @@
 c
 c
-      SUBROUTINE phytrac (iflag_con,
-     I                    rnpb,
+      SUBROUTINE phytrac (rnpb,
      I                    nstep,
      I                    julien,
@@ -105,4 +104,5 @@
 #include "dimphy.h"
 #include "indicesol.h"
+#include "clesphys.h"
 #include "temps.h"
 #include "paramet.h"
@@ -266,6 +266,6 @@
 C Variables liees a l'ecriture de la bande histoire : phytrac.nc
 c
-      INTEGER ecrit_tra
-      SAVE ecrit_tra   
+c      INTEGER ecrit_tra
+c      SAVE ecrit_tra   
       logical ok_sync
       parameter (ok_sync = .true.)
@@ -387,5 +387,5 @@
          if (debutphy) then
 
-          ecrit_tra = NINT(86400./pdtphys *ecritphy) 
+c          ecrit_tra = NINT(86400./pdtphys *ecritphy) 
           print*,'dans phytrac ',pdtphys,ecritphy,ecrit_tra