Ignore:
Timestamp:
Jul 19, 2024, 7:54:50 PM (2 months ago)
Author:
abarral
Message:

convert labeled do (f77) to do .. end do

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/sulfate_aer_mod.F90

    r5082 r5086  
    731731         JX=0
    732732       ELSE
    733          DO 10 I=1,N
     733         DO I=1,N
    734734           IF (X<XC(I)) GO TO 20
    735  10      CONTINUE
     735         END DO
    736736         IER=1
    737737 20      JX=I-1
    … …  
    756756         JX=0
    757757       ELSE
    758          DO 10 I=1,N
     758         DO I=1,N
    759759           IF (XT>X(I)) GO TO 20
    760  10      CONTINUE
     760         END DO
    761761 20      JX=I
    762762       ENDIF
Note: See TracChangeset for help on using the changeset viewer.