Index: LMDZ6/trunk/libf/phylmd/cv3_routines.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cv3_routines.F90	(revision 3125)
+++ LMDZ6/trunk/libf/phylmd/cv3_routines.F90	(revision 3126)
@@ -4359,15 +4359,14 @@
 
 !inputs:
-  INTEGER ncum, nd, na, nloc, len
-  REAL ment(nloc, na, na), sigij(nloc, na, na)
-  REAL clw(nloc, nd), elij(nloc, na, na)
-  REAL ep(nloc, na)
-  INTEGER icb(nloc), inb(nloc)
-  REAL Vprecip(nloc, nd+1)
+  INTEGER, INTENT (IN)                               :: ncum, nd, na, nloc, len
+  INTEGER, DIMENSION (len), INTENT (IN)              :: icb, inb
+  REAL, DIMENSION (len, na, na), INTENT (IN)         :: ment, sigij, elij
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: clw
+  REAL, DIMENSION (len, na), INTENT (IN)             :: ep
+  REAL, DIMENSION (len, nd+1), INTENT (IN)           :: Vprecip
 !ouputs:
-  REAL da(nloc, na), phi(nloc, na, na)
-  REAL phi2(nloc, na, na)
-  REAL d1a(nloc, na), dam(nloc, na)
-  REAL epmlmMm(nloc, na, na), eplaMm(nloc, na)
+  REAL, DIMENSION (len, na, na), INTENT (OUT)        :: phi, phi2, epmlmMm
+  REAL, DIMENSION (len, na), INTENT (OUT)            :: da, d1a, dam, eplaMm
+!
 ! variables pour tracer dans precip de l'AA et des mel
 !local variables: