Changeset 5701 for LMDZ6/trunk/libf/phylmd/cv3_routines.f90
- Timestamp:
- Jun 13, 2025, 9:23:53 PM (4 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/cv3_routines.f90
r5699 r5701 2533 2533 IF (i>=icb(il) .AND. i<=inb(il)) num1 = num1 + 1 2534 2534 END DO 2535 IF (num1<=0) GO TO 7892536 2535 !ym IF (num1<=0) GO TO 789 2536 IF (num1<=0) CYCLE 2537 2537 2538 2538 DO il = 1, ncum … … 2572 2572 lwork(il)) num2 = num2 + 1 2573 2573 END DO 2574 IF (num2<=0) GO TO 175 2574 !ym IF (num2<=0) GO TO 175 2575 IF (num2<=0) CYCLE 2575 2576 2576 2577 DO il = 1, ncum … … 2916 2917 IF (i<=inb(il) .AND. lwork(il)) num1 = num1 + 1 2917 2918 END DO 2918 IF (num1<=0) GO TO 400 2919 !ym IF (num1<=0) GO TO 400 2920 IF (num1<=0) CYCLE 2919 2921 2920 2922 wdtrain(1:ncum) = 0.0 … … 4049 4051 IF (i<=inb(il) .AND. iflag(il)<=1) num1 = num1 + 1 4050 4052 END DO 4051 IF (num1<=0) GO TO 500 4053 !ym IF (num1<=0) GO TO 500 4054 IF (num1<=0) CYCLE 4052 4055 4053 4056 !
Note: See TracChangeset
for help on using the changeset viewer.