--- trunk/Sources/dyn3d/Vlsplt/vly.f	2015/07/16 17:39:10	156
+++ trunk/Sources/dyn3d/Vlsplt/vly.f	2015/07/20 16:01:49	157
@@ -23,7 +23,8 @@
 !
 !   Arguments:
 !   ----------
-      REAL masse(ip1jmp1,llm),pente_max
+      REAL masse(ip1jmp1,llm)
+      real, intent(in):: pente_max
       REAL masse_adv_v( ip1jm,llm)
       REAL q(ip1jmp1,llm)
 !
@@ -39,10 +40,8 @@
 
       REAL qpns,qpsn,dyn1,dys1,dyn2,dys2,newmasse,fn,fs
 !     REAL newq,oldmasse
-      Logical first,testcpu
-      REAL temps0,temps1,temps2,temps3,temps4,temps5
-      SAVE temps0,temps1,temps2,temps3,temps4,temps5
-      SAVE first,testcpu
+      Logical first
+      SAVE first
 
       REAL convpn,convps,convmpn,convmps
       real massepn,masseps,qpn,qps
@@ -54,8 +53,7 @@
 !
       REAL      SSUM
 
-      DATA first,testcpu/.true.,.false./
-      DATA temps0,temps1,temps2,temps3,temps4,temps5/0.,0.,0.,0.,0.,0./
+      DATA first/.true./
 
       IF(first) THEN
          PRINT*,'Shema  Amont nouveau  appele dans  Vanleer   '