Changeset 5086 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat

Timestamp:

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

Author:

abarral

Message:

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

Location:

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat

Files:

• calfis.F (modified) (2 diffs)
• phylmd/test_disvert_m.F90 (modified) (1 diff)

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
 
 

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/test_disvert_m.F90

@@ -55 +55 @@
                      p(i, l + 1) / 100., " hPa"
              end if
-          end do
-       end do
+          END DO
+       END DO
        call abort_physic("test_disvert", "bad order of pressure values", 1)
     end if