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

Timestamp:

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

Author:

yann meurdesoif

Message:

Convection GPU porting : suppress goto
YM

File:

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

LMDZ6/trunk/libf/phylmd/cv3_routines.f90

@@ -2533 +2533 @@
       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 +2572 @@
             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 +2917 @@
       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 +4051 @@
       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
 
 !