Changeset 5086 for LMDZ6/branches/Amaury_dev/libf/misc/new_unit_m.F90

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/misc/new_unit_m.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/misc/new_unit_m.F90

@@ -19 +19 @@
        if (exist .and. .not. opened) exit
        unit = unit + 1
-    end do
+    END DO
 
   end subroutine new_unit