Changeset 5701

Timestamp:

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

Author:

yann meurdesoif

Message:

Convection GPU porting : suppress goto
YM

Location:

LMDZ6/trunk/libf/phylmd

Files:

• cv3_routines.f90 (modified) (4 diffs)
• cv3p_mixing.f90 (modified) (4 diffs)
• cv_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
 
 !

LMDZ6/trunk/libf/phylmd/cv3p_mixing.f90

@@ -308 +308 @@
       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 +389 @@
             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 +627 @@
 
 ! ---------------------------------------------------------------
-175 END DO        ! End loop on destination level "j"
+    END DO  !ym label 175      ! End loop on destination level "j"
 ! ---------------------------------------------------------------
 
@@ -691 +692 @@
 
 ! ---------------------------------------------------------------
-789 END DO              ! End loop on origin level "i"
+END DO  !ym label 789             ! End loop on origin level "i"
+
 ! ---------------------------------------------------------------
 

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.