Index: LMDZ6/trunk/libf/phylmd/cv3_routines.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cv3_routines.f90	(revision 5700)
+++ LMDZ6/trunk/libf/phylmd/cv3_routines.f90	(revision 5701)
@@ -2533,6 +2533,6 @@
       IF (i>=icb(il) .AND. i<=inb(il)) num1 = num1 + 1
     END DO
-    IF (num1<=0) GO TO 789
-
+!ym    IF (num1<=0) GO TO 789
+    IF (num1<=0) CYCLE
 
     DO il = 1, ncum
@@ -2572,5 +2572,6 @@
             lwork(il)) num2 = num2 + 1
       END DO
-      IF (num2<=0) GO TO 175
+!ym      IF (num2<=0) GO TO 175
+      IF (num2<=0) CYCLE
 
       DO il = 1, ncum
@@ -2916,5 +2917,6 @@
       IF (i<=inb(il) .AND. lwork(il)) num1 = num1 + 1
     END DO
-    IF (num1<=0) GO TO 400
+!ym    IF (num1<=0) GO TO 400
+    IF (num1<=0) CYCLE
 
     wdtrain(1:ncum) = 0.0
@@ -4049,5 +4051,6 @@
       IF (i<=inb(il) .AND. iflag(il)<=1) num1 = num1 + 1
     END DO
-    IF (num1<=0) GO TO 500
+!ym    IF (num1<=0) GO TO 500
+    IF (num1<=0) CYCLE
 
 !
Index: LMDZ6/trunk/libf/phylmd/cv3p_mixing.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cv3p_mixing.f90	(revision 5700)
+++ LMDZ6/trunk/libf/phylmd/cv3p_mixing.f90	(revision 5701)
@@ -308,5 +308,6 @@
       IF (i>=icb(il) .AND. i<=inb(il)) num1 = num1 + 1
     END DO
-    IF (num1<=0) GO TO 789
+!ym    IF (num1<=0) GO TO 789
+    IF (num1<=0) CYCLE
 
 
@@ -388,6 +389,6 @@
             lwork(il)) num2 = num2 + 1
       END DO
-      IF (num2<=0) GO TO 175
-
+!ym      IF (num2<=0) GO TO 175
+      IF (num2<=0) CYCLE
 ! -----------------------------------------------
       IF (j>i) THEN
@@ -626,5 +627,5 @@
 
 ! ---------------------------------------------------------------
-175 END DO        ! End loop on destination level "j"
+    END DO  !ym label 175      ! End loop on destination level "j"
 ! ---------------------------------------------------------------
 
@@ -691,5 +692,6 @@
 
 ! ---------------------------------------------------------------
-789 END DO              ! End loop on origin level "i"
+END DO  !ym label 789             ! End loop on origin level "i"
+
 ! ---------------------------------------------------------------
 
Index: LMDZ6/trunk/libf/phylmd/cv_routines.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cv_routines.f90	(revision 5700)
+++ LMDZ6/trunk/libf/phylmd/cv_routines.f90	(revision 5701)
@@ -1028,5 +1028,6 @@
       IF ((i>=icb(ij)+1) .AND. (i<=inb(ij))) num1 = num1 + 1
     END DO
-    IF (num1<=0) GO TO 789
+!ym    IF (num1<=0) GO TO 789
+    IF (num1<=0) CYCLE
 
     DO ij = 1, ncum
@@ -1051,5 +1052,6 @@
           ij)) .AND. (j<=inb(ij)) .AND. lwork(ij)) num2 = num2 + 1
       END DO
-      IF (num2<=0) GO TO 783
+!ym      IF (num2<=0) GO TO 783
+      IF (num2<=0) CYCLE
 
       DO ij = 1, ncum
@@ -1201,5 +1203,6 @@
       IF ((i<=inb(ij)) .AND. lwork(ij)) num1 = num1 + 1
     END DO
-    IF (num1<=0) GO TO 899
+!ym    IF (num1<=0) GO TO 899
+    IF (num1<=0) CYCLE
 
 
@@ -1452,5 +1455,6 @@
       IF (i<=inb(ij)) num1 = num1 + 1
     END DO
-    IF (num1<=0) GO TO 1500
+!ym    IF (num1<=0) GO TO 1500
+    IF (num1<=0) CYCLE
 
     amp1(1:ncum)=0.