Ignore:
Timestamp:
Jun 13, 2025, 9:23:53 PM (4 weeks ago)
Author:
yann meurdesoif
Message:

Convection GPU porting : suppress goto
YM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/cv3_routines.f90

    r5699 r5701  
    25332533      IF (i>=icb(il) .AND. i<=inb(il)) num1 = num1 + 1
    25342534    END DO
    2535     IF (num1<=0) GO TO 789
    2536 
     2535!ym    IF (num1<=0) GO TO 789
     2536    IF (num1<=0) CYCLE
    25372537
    25382538    DO il = 1, ncum
     
    25722572            lwork(il)) num2 = num2 + 1
    25732573      END DO
    2574       IF (num2<=0) GO TO 175
     2574!ym      IF (num2<=0) GO TO 175
     2575      IF (num2<=0) CYCLE
    25752576
    25762577      DO il = 1, ncum
     
    29162917      IF (i<=inb(il) .AND. lwork(il)) num1 = num1 + 1
    29172918    END DO
    2918     IF (num1<=0) GO TO 400
     2919!ym    IF (num1<=0) GO TO 400
     2920    IF (num1<=0) CYCLE
    29192921
    29202922    wdtrain(1:ncum) = 0.0
     
    40494051      IF (i<=inb(il) .AND. iflag(il)<=1) num1 = num1 + 1
    40504052    END DO
    4051     IF (num1<=0) GO TO 500
     4053!ym    IF (num1<=0) GO TO 500
     4054    IF (num1<=0) CYCLE
    40524055
    40534056!
Note: See TracChangeset for help on using the changeset viewer.