Changeset 5086 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/convflu_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/convflu_loc.F (modified) (4 diffs)

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

@@ -34 +34 @@
      
 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)          
-      DO 5 l = 1,nbniv
+      DO l = 1,nbniv
 c
         ijb=ij_begin
@@ -42 +42 @@
         IF (pole_sud)  ije=ij_end-iip1
         
-        DO 2  ij = ijb , ije - 1
+        DO ij = ijb , ije - 1
           convfl(ij+1,l) = xflu(ij,l) - xflu(ij+ 1,l)   +
      *                     yflu(ij +1,l ) - yflu( ij -iim,l )
-   2    CONTINUE
+      END DO
 c
 c
@@ -53 +53 @@
 c
 CDIR$ IVDEP
-        DO 3 ij = ijb,ije,iip1
+        DO ij = ijb,ije,iip1
           convfl( ij,l ) = convfl( ij + iim,l )
-   3    CONTINUE
+      END DO
 c
 c     ......  calcul aux poles  .......
@@ -79 +79 @@
         ENDIF
       
-   5  CONTINUE
+      END DO
 c$OMP END DO NOWAIT   
       RETURN