Changeset 5086 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/integrd_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/integrd_loc.F (modified) (5 diffs)

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

@@ -124 +124 @@
 
 c$OMP DO SCHEDULE(STATIC)
-      DO 2 ij = ijb,ije
+      DO ij = ijb,ije
        pscr (ij)    = ps0(ij)
        ps (ij)      = psm1(ij) + dt * dp(ij)     
 
-   2  CONTINUE
+      END DO
 
 c$OMP END DO  
@@ -250 +250 @@
 
 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
-      DO 10 l = 1,llm
+      DO l = 1,llm
       
       ijb=ij_begin
@@ -257 +257 @@
       if (pole_sud)  ije=ij_end-iip1
       
-      DO 4 ij = ijb,ije
+      DO ij = ijb,ije
       uscr( ij )   =  ucov( ij,l )
       ucov( ij,l ) = ucovm1( ij,l ) + dt * du( ij,l )
-   4  CONTINUE
+      END DO
 
       ijb=ij_begin
@@ -266 +266 @@
       if (pole_sud)  ije=ij_end-iip1
       
-      DO 5 ij = ijb,ije
+      DO ij = ijb,ije
       vscr( ij )   =  vcov( ij,l )
       vcov( ij,l ) = vcovm1( ij,l ) + dt * dv( ij,l )
-   5  CONTINUE
+      END DO
       
       ijb=ij_begin
       ije=ij_end
       
-      DO 6 ij = ijb,ije
+      DO ij = ijb,ije
       hscr( ij )    =  teta(ij,l)
       teta ( ij,l ) = tetam1(ij,l) *  massem1(ij,l) / masse(ij,l) 
      $                + dt * dteta(ij,l) / masse(ij,l)
-   6  CONTINUE
+      END DO
 
 c   ....  Calcul de la valeur moyenne, unique  aux poles pour  teta    ......
@@ -324 +324 @@
       END IF
 
-  10  CONTINUE
+      END DO
 c$OMP END DO NOWAIT