Ignore:
Timestamp:
Jul 19, 2024, 7:54:50 PM (4 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/dyn3dmem/covcont_loc.F

    r4593 r5086  
    4444
    4545c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)   
    46       DO 10 l = 1,klevel
     46      DO l = 1,klevel
    4747
    48       DO 2  ij = ijb_u,ije_u
     48      DO ij = ijb_u,ije_u
    4949      ucont( ij,l ) = ucov( ij,l ) * unscu2( ij )
    50    2  CONTINUE
     50      END DO
    5151
    52       DO 4 ij = ijb_v,ije_v
     52      DO ij = ijb_v,ije_v
    5353      vcont( ij,l ) = vcov( ij,l ) * unscv2( ij )
    54    4  CONTINUE
     54      END DO
    5555
    56   10  CONTINUE
     56      END DO
    5757c$OMP END DO NOWAIT
    5858      RETURN
Note: See TracChangeset for help on using the changeset viewer.