Index: trunk/libf/dyn3d/conf_gcm.F
===================================================================
--- trunk/libf/dyn3d/conf_gcm.F	(revision 110)
+++ trunk/libf/dyn3d/conf_gcm.F	(revision 119)
@@ -376,4 +376,12 @@
        iphysiq = 5
        CALL getin('iphysiq', iphysiq)
+
+!Config  Key  = iflag_trac
+!Config  Desc = traceurs presents ou non
+!Config  Def  = 1
+!Config  Help = Permet de faire tourner le modele sans traceurs
+!Config         
+       iflag_trac = 1 
+       CALL getin('iflag_trac',iflag_trac)
 
 !Config  Key  = ip_ebil_dyn
@@ -657,4 +665,5 @@
       write(lunout,*)' iflag_phys = ', iflag_phys
       write(lunout,*)' iphysiq = ', iphysiq
+      write(lunout,*)' iflag_trac = ', iflag_trac
       write(lunout,*)' clonn = ', clonn 
       write(lunout,*)' clatt = ', clatt
@@ -894,4 +903,5 @@
       write(lunout,*)' iflag_phys = ', iflag_phys
       write(lunout,*)' iphysiq = ', iphysiq
+      write(lunout,*)' iflag_trac = ', iflag_trac
       write(lunout,*)' clon = ', clon
       write(lunout,*)' clat = ', clat
Index: trunk/libf/dyn3d/leapfrog.F
===================================================================
--- trunk/libf/dyn3d/leapfrog.F	(revision 110)
+++ trunk/libf/dyn3d/leapfrog.F	(revision 119)
@@ -448,4 +448,5 @@
          IF (first) THEN
 #include "ini_paramLMDZ_dyn.h"
+          first=.false.
          ENDIF
 c
@@ -863,6 +864,4 @@
       END IF ! of IF(.not.purmats)
 
-      first=.false.
-
       STOP
       END
Index: trunk/libf/dyn3d/logic.h
===================================================================
--- trunk/libf/dyn3d/logic.h	(revision 110)
+++ trunk/libf/dyn3d/logic.h	(revision 119)
@@ -15,6 +15,6 @@
      & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus                      &
      &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
-     &  ,ok_limit,ok_etat0,iflag_trac
+     &  ,ok_limit,ok_etat0
 
-      INTEGER iflag_phys
+      INTEGER iflag_phys,iflag_trac
 !-----------------------------------------------------------------------