Index: /LMDZ4/trunk/libf/dyn3d/advtrac.F
===================================================================
--- /LMDZ4/trunk/libf/dyn3d/advtrac.F	(revision 565)
+++ /LMDZ4/trunk/libf/dyn3d/advtrac.F	(revision 566)
@@ -338,6 +338,6 @@
 
 c                  call clock(t_final)
-                  tps_cpu=t_final-t_initial
-                  cpuadv(iq)=cpuadv(iq)+tps_cpu
+cym                  tps_cpu=t_final-t_initial
+cym                  cpuadv(iq)=cpuadv(iq)+tps_cpu
 
        end DO
Index: /LMDZ4/trunk/libf/dyn3d/bilan_dyn.F
===================================================================
--- /LMDZ4/trunk/libf/dyn3d/bilan_dyn.F	(revision 565)
+++ /LMDZ4/trunk/libf/dyn3d/bilan_dyn.F	(revision 566)
@@ -60,6 +60,9 @@
 
 
-      character*6 nom(nQ)
-      character*6 unites(nQ)
+cym      character*6 nom(nQ)
+cym      character*6 unites(nQ)
+      character*6,save :: nom(nQ)
+      character*6,save :: unites(nQ)
+
       character*10 file
       integer ifile
@@ -113,7 +116,11 @@
       parameter (ntr=5)
 
-      character*10 znom(ntr,nQ)
-      character*20 znoml(ntr,nQ)
-      character*10 zunites(ntr,nQ)
+cym      character*10 znom(ntr,nQ)
+cym      character*20 znoml(ntr,nQ)
+cym      character*10 zunites(ntr,nQ)
+      character*10,save :: znom(ntr,nQ)
+      character*20,save :: znoml(ntr,nQ)
+      character*10,save :: zunites(ntr,nQ)
+
       integer iave,itot,immc,itrs,istn
       data iave,itot,immc,itrs,istn/1,2,3,4,5/
Index: /LMDZ4/trunk/libf/dyn3d/leapfrog.F
===================================================================
--- /LMDZ4/trunk/libf/dyn3d/leapfrog.F	(revision 565)
+++ /LMDZ4/trunk/libf/dyn3d/leapfrog.F	(revision 566)
@@ -118,5 +118,6 @@
       REAL time_0 , finvmaold(ip1jmp1,llm)
 
-      LOGICAL lafin
+cym      LOGICAL  lafin
+      LOGICAL :: lafin=.false.
       INTEGER ij,iq,l
       INTEGER ik
Index: /LMDZ4/trunk/libf/phylmd/calltherm.F
===================================================================
--- /LMDZ4/trunk/libf/phylmd/calltherm.F	(revision 565)
+++ /LMDZ4/trunk/libf/phylmd/calltherm.F	(revision 566)
@@ -66,4 +66,12 @@
          do isplit=1,nsplit_thermals
 
+cym            CALL thermcell(klon,klev,zdt
+cym     s      ,pplay,paprs,pphi
+cym     s      ,u_seri,v_seri,t_seri,q_seri
+cym     s      ,d_u_the,d_v_the,d_t_the,d_q_the
+cym     s      ,zfm_therm,zentr_therm
+cym     s      ,r_aspect_thermals,l_mix_thermals,w2di_thermals
+cym     s      ,tho_thermals,3)
+
             CALL thermcell(klon,klev,zdt
      s      ,pplay,paprs,pphi
@@ -72,5 +80,5 @@
      s      ,zfm_therm,zentr_therm
      s      ,r_aspect_thermals,l_mix_thermals,w2di_thermals
-     s      ,tho_thermals,3)
+     s      ,tho_thermals)
 
 c  transformation de la derivee en tendance