Changeset 5086 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/divergst.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/dyn3d_common/divergst.F (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/divergst.F

@@ -30 +30 @@
 c
 c
-      DO 10 l = 1,klevel
+      DO l = 1,klevel
 c
-      DO 1 ij = iip2, ip1jm - 1
+      DO ij = iip2, ip1jm - 1
       div( ij + 1, l ) = x(ij+1,l) - x(ij,l)+ y(ij-iim,l)-y(ij+1,l)
-   1  CONTINUE
+      END DO
 c
 c     ....  correction pour  div( 1,j,l)  ......
@@ -40 +40 @@
 c
 CDIR$ IVDEP
-      DO 3 ij = iip2,ip1jm,iip1
+      DO ij = iip2,ip1jm,iip1
       div( ij,l ) = div( ij + iim,l )
-   3  CONTINUE
+      END DO
 c
 c     ....  calcul  aux poles  .....
 c
 c
-      DO 5 i  = 1,iim
+      DO i  = 1,iim
       aiy1(i)= y(i,l)
       aiy2(i)= y(i+ip1jmi1,l)
-   5  CONTINUE
+      END DO
       sumypn = SSUM ( iim,aiy1,1 )
       sumyps = SSUM ( iim,aiy2,1 )
-      DO 7 i = 1,iip1
+      DO i = 1,iip1
       div(     i    , l ) = - sumypn/iim
       div( i + ip1jm, l ) =   sumyps/iim
-   7  CONTINUE
+      END DO
 c
-  10  CONTINUE
+      END DO
       RETURN
       END