Changeset 5086 for LMDZ6/branches/Amaury_dev/libf/dyn3d/tetaleveli1j1.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/dyn3d/tetaleveli1j1.F (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d/tetaleveli1j1.F

@@ -65 +65 @@
 c Eventuellement, faire l'extrapolation a partir des deux couches
 c les plus basses ou les deux couches les plus hautes:
-      DO 130 i = 1, ilon
+      DO i = 1, ilon
 cIM      IF ( ABS(pres-pgcm(i,ilev) ) .LT.
          IF ( ABS(pres-pgcm(i,ilev) ) >
@@ -77 +77 @@
 cIM   PRINT*,'i, ABS(pres-pgcm),ABS(pres-pgcm)',
 cIM  .i, ABS(pres-pgcm(i,ilev)),ABS(pres-pgcm(i,1))
-  130 CONTINUE
-      DO 150 k = 1, ilev-1
-         DO 140 i = 1, ilon
+      END DO
+      DO k = 1, ilev-1
+         DO i = 1, ilon
             pbot = pgcm(i,k)
             ptop = pgcm(i,k+1)
@@ -87 +87 @@
                lb(i) = k
             ENDIF
-  140    CONTINUE
-  150 CONTINUE
+      END DO
+      END DO
 c
 c Interpolation lineaire: