Index: LMDZ6/trunk/libf/phylmd/cv3p1_closure.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cv3p1_closure.F90	(revision 3670)
+++ LMDZ6/trunk/libf/phylmd/cv3p1_closure.F90	(revision 3671)
@@ -41,4 +41,5 @@
 
   ! input/output:
+  INTEGER, DIMENSION (nloc), INTENT (INOUT)          :: iflag
   REAL, DIMENSION (nloc, nd), INTENT (INOUT)         :: sig, w0
   REAL, DIMENSION (nloc), INTENT (INOUT)             :: ptop2
@@ -53,5 +54,4 @@
   REAL, DIMENSION (nloc), INTENT (OUT)               :: cbmf, plfc
   REAL, DIMENSION (nloc), INTENT (OUT)               :: wbeff
-  INTEGER, DIMENSION (nloc), INTENT (OUT)            :: iflag
 
   ! local variables:
Index: LMDZ6/trunk/libf/phylmd/cv3p2_closure.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cv3p2_closure.F90	(revision 3670)
+++ LMDZ6/trunk/libf/phylmd/cv3p2_closure.F90	(revision 3671)
@@ -41,4 +41,5 @@
 
   ! input/output:
+  INTEGER, DIMENSION (nloc), INTENT (INOUT)          :: iflag
   REAL, DIMENSION (nloc, nd), INTENT (INOUT)         :: sig, w0
   REAL, DIMENSION (nloc), INTENT (INOUT)             :: ptop2
@@ -53,5 +54,4 @@
   REAL, DIMENSION (nloc), INTENT (OUT)               :: cbmflast, plfc
   REAL, DIMENSION (nloc), INTENT (OUT)               :: wbeff
-  INTEGER, DIMENSION (nloc), INTENT (OUT)            :: iflag
 
   ! local variables: