Index: LMDZ6/trunk/libf/dyn3d/leapfrog.F
===================================================================
--- LMDZ6/trunk/libf/dyn3d/leapfrog.F	(revision 3946)
+++ LMDZ6/trunk/libf/dyn3d/leapfrog.F	(revision 3947)
@@ -748,4 +748,9 @@
 
               CLOSE(99)
+              if (ok_guide) then
+                ! set ok_guide to false to avoid extra output
+                ! in following forward step
+                ok_guide=.false.
+              endif
               !!! Ehouarn: Why not stop here and now?
             ENDIF ! of IF (itau.EQ.itaufin)
@@ -868,4 +873,9 @@
      &                           vcov,ucov,teta,q,masse,ps)
 !                endif ! of if (planet_type.eq."earth")
+                if (ok_guide) then
+                  ! set ok_guide to false to avoid extra output
+                  ! in following forward step
+                  ok_guide=.false.
+                endif
               ENDIF ! of IF(itau.EQ.itaufin)
 
Index: LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.F
===================================================================
--- LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.F	(revision 3946)
+++ LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.F	(revision 3947)
@@ -1538,4 +1538,10 @@
 c$OMP END MASTER
 
+         if (ok_guide) then
+           ! set ok_guide to false to avoid extra output
+           ! in following forward step
+           ok_guide=.false.
+         endif
+
 #ifdef INCA
          if (type_trac == 'inca' .OR. type_trac == 'inco') then 
@@ -1681,4 +1687,9 @@
      &                           vcov,ucov,teta,q,masse,ps)
 !              endif ! of if (planet_type.eq."earth")
+                if (ok_guide) then
+                  ! set ok_guide to false to avoid extra output
+                  ! in following forward step
+                  ok_guide=.false.
+                endif
 
 !              CLOSE(99)
@@ -1827,4 +1838,10 @@
      .                               vcov,ucov,teta,q,masse,ps)
 !               endif ! of if (planet_type.eq."earth")
+                if (ok_guide) then
+                  ! set ok_guide to false to avoid extra output
+                  ! in following forward step
+                  ok_guide=.false.
+                endif
+
               ENDIF ! of IF(itau.EQ.itaufin)