Changeset 5701


Ignore:
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:
3 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!
  • LMDZ6/trunk/libf/phylmd/cv3p_mixing.f90

    r5699 r5701  
    308308      IF (i>=icb(il) .AND. i<=inb(il)) num1 = num1 + 1
    309309    END DO
    310     IF (num1<=0) GO TO 789
     310!ym    IF (num1<=0) GO TO 789
     311    IF (num1<=0) CYCLE
    311312
    312313
     
    388389            lwork(il)) num2 = num2 + 1
    389390      END DO
    390       IF (num2<=0) GO TO 175
    391 
     391!ym      IF (num2<=0) GO TO 175
     392      IF (num2<=0) CYCLE
    392393! -----------------------------------------------
    393394      IF (j>i) THEN
     
    626627
    627628! ---------------------------------------------------------------
    628 175 END DO        ! End loop on destination level "j"
     629    END DO  !ym label 175      ! End loop on destination level "j"
    629630! ---------------------------------------------------------------
    630631
     
    691692
    692693! ---------------------------------------------------------------
    693 789 END DO              ! End loop on origin level "i"
     694END DO  !ym label 789             ! End loop on origin level "i"
     695
    694696! ---------------------------------------------------------------
    695697
  • LMDZ6/trunk/libf/phylmd/cv_routines.f90

    r5700 r5701  
    10281028      IF ((i>=icb(ij)+1) .AND. (i<=inb(ij))) num1 = num1 + 1
    10291029    END DO
    1030     IF (num1<=0) GO TO 789
     1030!ym    IF (num1<=0) GO TO 789
     1031    IF (num1<=0) CYCLE
    10311032
    10321033    DO ij = 1, ncum
     
    10511052          ij)) .AND. (j<=inb(ij)) .AND. lwork(ij)) num2 = num2 + 1
    10521053      END DO
    1053       IF (num2<=0) GO TO 783
     1054!ym      IF (num2<=0) GO TO 783
     1055      IF (num2<=0) CYCLE
    10541056
    10551057      DO ij = 1, ncum
     
    12011203      IF ((i<=inb(ij)) .AND. lwork(ij)) num1 = num1 + 1
    12021204    END DO
    1203     IF (num1<=0) GO TO 899
     1205!ym    IF (num1<=0) GO TO 899
     1206    IF (num1<=0) CYCLE
    12041207
    12051208
     
    14521455      IF (i<=inb(ij)) num1 = num1 + 1
    14531456    END DO
    1454     IF (num1<=0) GO TO 1500
     1457!ym    IF (num1<=0) GO TO 1500
     1458    IF (num1<=0) CYCLE
    14551459
    14561460    amp1(1:ncum)=0.
Note: See TracChangeset for help on using the changeset viewer.