Changeset 5086 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/grad_loc.F

Timestamp:

Jul 19, 2024, 7:54:50 PM (4 months ago)

Author:

abarral

Message:

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

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/grad_loc.F (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/grad_loc.F

@@ -23 +23 @@
 c
 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
-      DO 6 l = 1,klevel
+      DO l = 1,klevel
 c
       ijb=ij_begin
       ije=ij_end
-      DO 2  ij = ijb, ije - 1
+      DO ij = ijb, ije - 1
         pgx( ij,l ) = pg( ij +1,l ) - pg( ij,l )
-   2  CONTINUE
+      END DO
 c
 c    .... correction pour  pgx(ip1,j,l)  ....
 c    ...    pgx(iip1,j,l)= pgx(1,j,l)  ....
 CDIR$ IVDEP
-      DO 3  ij = ijb+iip1-1, ije, iip1
+      DO ij = ijb+iip1-1, ije, iip1
         pgx( ij,l ) = pgx( ij -iim,l )
-   3  CONTINUE
+      END DO
 c
       ijb=ij_begin-iip1
@@ -43 +43 @@
       if (pole_sud)  ije=ij_end-iip1
       
-      DO 4 ij = ijb,ije
+      DO ij = ijb,ije
         pgy( ij,l ) = pg( ij,l ) - pg( ij +iip1,l )
-   4  CONTINUE
+      END DO
 c
-   6  CONTINUE
+      END DO
 c$OMP END DO NOWAIT