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

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/calfis.F

@@ -347 +347 @@
 c   ------------
 
-      DO 50 l=1,llm
-
-         DO 25 j=2,jjm
+      DO l=1,llm
+
+         DO j=2,jjm
             ig0 = 1+(j-2)*iim
             zufi(ig0+1,l)= 0.5 * 
@@ -355 +355 @@
             pcvgu(ig0+1,l)= 0.5 * 
      $      ( pducov(iim,j,l)/cu(iim,j) + pducov(1,j,l)/cu(1,j) )
-            DO 10 i=2,iim
+            DO i=2,iim
                zufi(ig0+i,l)= 0.5 *
      $         ( pucov(i-1,j,l)/cu(i-1,j) + pucov(i,j,l)/cu(i,j) )
                pcvgu(ig0+i,l)= 0.5 *
      $         ( pducov(i-1,j,l)/cu(i-1,j) + pducov(i,j,l)/cu(i,j) )
-10         CONTINUE
-25      CONTINUE
-
-50    CONTINUE
+      END DO
+      END DO
+
+      END DO