Changeset 5701
- Timestamp:
- Jun 13, 2025, 9:23:53 PM (4 weeks ago)
- Location:
- LMDZ6/trunk/libf/phylmd
- Files:
-
- 3 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 ! -
LMDZ6/trunk/libf/phylmd/cv3p_mixing.f90
r5699 r5701 308 308 IF (i>=icb(il) .AND. i<=inb(il)) num1 = num1 + 1 309 309 END DO 310 IF (num1<=0) GO TO 789 310 !ym IF (num1<=0) GO TO 789 311 IF (num1<=0) CYCLE 311 312 312 313 … … 388 389 lwork(il)) num2 = num2 + 1 389 390 END DO 390 IF (num2<=0) GO TO 175391 391 !ym IF (num2<=0) GO TO 175 392 IF (num2<=0) CYCLE 392 393 ! ----------------------------------------------- 393 394 IF (j>i) THEN … … 626 627 627 628 ! --------------------------------------------------------------- 628 175 END DO! End loop on destination level "j"629 END DO !ym label 175 ! End loop on destination level "j" 629 630 ! --------------------------------------------------------------- 630 631 … … 691 692 692 693 ! --------------------------------------------------------------- 693 789 END DO ! End loop on origin level "i" 694 END DO !ym label 789 ! End loop on origin level "i" 695 694 696 ! --------------------------------------------------------------- 695 697 -
LMDZ6/trunk/libf/phylmd/cv_routines.f90
r5700 r5701 1028 1028 IF ((i>=icb(ij)+1) .AND. (i<=inb(ij))) num1 = num1 + 1 1029 1029 END DO 1030 IF (num1<=0) GO TO 789 1030 !ym IF (num1<=0) GO TO 789 1031 IF (num1<=0) CYCLE 1031 1032 1032 1033 DO ij = 1, ncum … … 1051 1052 ij)) .AND. (j<=inb(ij)) .AND. lwork(ij)) num2 = num2 + 1 1052 1053 END DO 1053 IF (num2<=0) GO TO 783 1054 !ym IF (num2<=0) GO TO 783 1055 IF (num2<=0) CYCLE 1054 1056 1055 1057 DO ij = 1, ncum … … 1201 1203 IF ((i<=inb(ij)) .AND. lwork(ij)) num1 = num1 + 1 1202 1204 END DO 1203 IF (num1<=0) GO TO 899 1205 !ym IF (num1<=0) GO TO 899 1206 IF (num1<=0) CYCLE 1204 1207 1205 1208 … … 1452 1455 IF (i<=inb(ij)) num1 = num1 + 1 1453 1456 END DO 1454 IF (num1<=0) GO TO 1500 1457 !ym IF (num1<=0) GO TO 1500 1458 IF (num1<=0) CYCLE 1455 1459 1456 1460 amp1(1:ncum)=0.
Note: See TracChangeset
for help on using the changeset viewer.