Changeset 5701 for LMDZ6/trunk/libf/phylmd/cv_routines.f90

Timestamp:

Jun 13, 2025, 9:23:53 PM (3 weeks ago)

Author:

yann meurdesoif

Message:

Convection GPU porting : suppress goto
YM

File:

• LMDZ6/trunk/libf/phylmd/cv_routines.f90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/cv_routines.f90

@@ -1028 +1028 @@
       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 +1052 @@
           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 +1203 @@
       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 +1455 @@
       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.