Index: LMDZ5/trunk/libf/dyn3d/vlsplt.F
===================================================================
--- LMDZ5/trunk/libf/dyn3d/vlsplt.F	(revision 2273)
+++ LMDZ5/trunk/libf/dyn3d/vlsplt.F	(revision 2277)
@@ -141,5 +141,5 @@
       RETURN
       END
-      SUBROUTINE vlx(q,pente_max,masse,u_m,iq)
+      RECURSIVE SUBROUTINE vlx(q,pente_max,masse,u_m,iq)
       USE infotrac, ONLY : nqtot,nqfils,nqdesc,iqfils ! CRisi
 
@@ -515,5 +515,5 @@
       RETURN
       END
-      SUBROUTINE vly(q,pente_max,masse,masse_adv_v,iq)
+      RECURSIVE SUBROUTINE vly(q,pente_max,masse,masse_adv_v,iq)
       USE infotrac, ONLY : nqtot,nqfils,nqdesc,iqfils ! CRisi
 c
@@ -878,5 +878,5 @@
       RETURN
       END
-      SUBROUTINE vlz(q,pente_max,masse,w,iq)
+      RECURSIVE SUBROUTINE vlz(q,pente_max,masse,w,iq)
       USE infotrac, ONLY : nqtot,nqfils,nqdesc,iqfils ! CRisi 
 c
Index: LMDZ5/trunk/libf/dyn3dmem/vlsplt_loc.F
===================================================================
--- LMDZ5/trunk/libf/dyn3dmem/vlsplt_loc.F	(revision 2273)
+++ LMDZ5/trunk/libf/dyn3dmem/vlsplt_loc.F	(revision 2277)
@@ -2,5 +2,5 @@
 ! $Id$
 !
-      SUBROUTINE vlx_loc(q,pente_max,masse,u_m,ijb_x,ije_x,iq)
+      RECURSIVE SUBROUTINE vlx_loc(q,pente_max,masse,u_m,ijb_x,ije_x,iq)
 
 c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
@@ -403,5 +403,5 @@
 
 
-      SUBROUTINE vly_loc(q,pente_max,masse,masse_adv_v,iq)
+      RECURSIVE SUBROUTINE vly_loc(q,pente_max,masse,masse_adv_v,iq)
 c
 c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
@@ -858,5 +858,5 @@
       
       
-      SUBROUTINE vlz_loc(q,pente_max,masse,w,ijb_x,ije_x,iq)
+      RECURSIVE SUBROUTINE vlz_loc(q,pente_max,masse,w,ijb_x,ije_x,iq)
 c
 c     Auteurs:   P.Le Van, F.Hourdin, F.Forget