Index: LMDZ6/trunk/libf/phylmd/cv3p1_closure.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cv3p1_closure.f90	(revision 5701)
+++ LMDZ6/trunk/libf/phylmd/cv3p1_closure.f90	(revision 5702)
@@ -326,11 +326,12 @@
           supmax0(il) = ((p(il,i)-pzero(il))*asupmax(il,i-1)-(p(il, &
             i-1)-pzero(il))*asupmax(il,i))/(p(il,i)-p(il,i-1))
-          GO TO 425
+!ym WARNING : probably bad GOTO branching ===> to check !
+!ym          GO TO 425
         END IF ! end IF (P(i) ... )
       END IF ! end IF (icb+1 le i le inb)
     END DO
   END DO
-
-425 CONTINUE
+!ym bad branching
+!ym 425 CONTINUE
   IF (prt_level>=20) PRINT *, 'cv3p1_param apres 425.'
 
Index: LMDZ6/trunk/libf/phylmd/cv3p2_closure.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cv3p2_closure.f90	(revision 5701)
+++ LMDZ6/trunk/libf/phylmd/cv3p2_closure.f90	(revision 5702)
@@ -367,5 +367,6 @@
           supmax0(il) = ((p(il,i)-pzero(il))*asupmax(il,i-1)- &
             (p(il,i-1)-pzero(il))*asupmax(il,i))/(p(il,i)-p(il,i-1))
-          GO TO 425
+!ym WARNING : probably bad GOTO branching ===> to check !
+!ym          GO TO 425
         END IF ! end IF (P(i) ... )
       END IF ! end IF (icb+1 le i le inb)
@@ -373,5 +374,6 @@
   END DO
 
-425 CONTINUE
+!ym bad branching
+!ym 425 CONTINUE
   IF (prt_level>=20) PRINT *, 'cv3p2_closure apres 425.'