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

Timestamp:

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

Author:

abarral

Message:

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

File:

• LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/test_disvert_m.F90 (modified) (1 diff)

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