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/dyn3d_common/rotat.F

    r4593 r5086  
    3030c
    3131c
    32       DO  10 l = 1,klevel
     32      DO  l = 1,klevel
    3333c
    3434        DO   ij = 1, ip1jm - 1
    … …  
    4444        ENDDO
    4545c
    46   10  CONTINUE
     46      END DO
    4747
    4848ccc        CALL filtreg( rot, jjm, klevel, 2, 2, .FALSE., 1 )
Note: See TracChangeset for help on using the changeset viewer.