Index: LMDZ4/trunk/libf/dyn3d/gcm.F
===================================================================
--- LMDZ4/trunk/libf/dyn3d/gcm.F	(revision 549)
+++ LMDZ4/trunk/libf/dyn3d/gcm.F	(revision 550)
@@ -383,5 +383,6 @@
 
 
-      CALL leapfrog(ucov,vcov,teta,ps,masse,phis,nq,q,clesphy0)
+      CALL leapfrog(ucov,vcov,teta,ps,masse,phis,nq,q,clesphy0,
+     .              time_0)
 
 
Index: LMDZ4/trunk/libf/dyn3d/leapfrog.F
===================================================================
--- LMDZ4/trunk/libf/dyn3d/leapfrog.F	(revision 549)
+++ LMDZ4/trunk/libf/dyn3d/leapfrog.F	(revision 550)
@@ -199,5 +199,6 @@
         call guide(itau,ucov,vcov,teta,q,masse,ps)
       else
-        print*,'attention on ne guide pas les 6 dernieres heures'
+        IF(prt_level>9)WRITE(*,*)'attention on ne guide pas les ',
+     .    '6 dernieres heures'
       endif
 #endif
@@ -485,11 +486,11 @@
 
             IF( itau. EQ. itaufinp1 ) then  
-       write(79,*) 'ucov',ucov
-       write(80,*) 'vcov',vcov
-       write(81,*) 'teta',teta
-       write(82,*) 'ps',ps
-       write(83,*) 'q',q
-       WRITE(85,*) 'q1 = ',q(:,:,1)
-       WRITE(86,*) 'q3 = ',q(:,:,3)
+c$$$       write(79,*) 'ucov',ucov
+c$$$       write(80,*) 'vcov',vcov
+c$$$       write(81,*) 'teta',teta
+c$$$       write(82,*) 'ps',ps
+c$$$       write(83,*) 'q',q
+c$$$       WRITE(85,*) 'q1 = ',q(:,:,1)
+c$$$       WRITE(86,*) 'q3 = ',q(:,:,3)
 
               abort_message = 'Simulation finished'