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

Timestamp:

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

Author:

abarral

Message:

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

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dudv1_loc.F (modified) (4 diffs)

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

@@ -28 +28 @@
       
 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
-      DO 10 l = 1,llm
+      DO l = 1,llm
 c
       ijb=ij_begin
@@ -36 +36 @@
       if (pole_sud)  ije=ij_end-iip1
       
-      DO 2  ij = ijb, ije-1 
+      DO ij = ijb, ije-1
       du( ij,l ) = 0.125 *(  vorpot(ij-iip1, l) + vorpot( ij, l)  ) *
      *                    (   pbarv(ij-iip1, l) + pbarv(ij-iim,  l) +
      *                        pbarv(   ij  , l) + pbarv(ij+ 1 ,  l)   )
-   2  CONTINUE
+      END DO
    
  
@@ -46 +46 @@
       if (pole_nord) ijb=ij_begin
       
-      DO 3 ij = ijb, ije-1 
+      DO ij = ijb, ije-1
       dv( ij+1,l ) = - 0.125 *(  vorpot(ij, l)  + vorpot(ij+1, l)  ) *
      *                        (   pbaru(ij, l)  +  pbaru(ij+1   , l) +
      *                       pbaru(ij+iip1, l)  +  pbaru(ij+iip2, l)  )
-   3  CONTINUE
+      END DO
 c
 c    .... correction  pour  dv( 1,j,l )  .....
@@ -56 +56 @@
 c
 CDIR$ IVDEP
-      DO 4 ij = ijb, ije, iip1
+      DO ij = ijb, ije, iip1
       dv( ij,l ) = dv( ij + iim, l )
-   4  CONTINUE
+      END DO
 c
-  10  CONTINUE
+      END DO
 c$OMP END DO NOWAIT
       RETURN