Changeset 5086 for LMDZ6/branches/Amaury_dev/tools/netcdf95/Groups

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/tools/netcdf95/Groups/nf95_inq_file_ncid.f90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/tools/netcdf95/Groups/nf95_inq_file_ncid.f90

@@ -31 +31 @@
        if (ncerr_local /= nf95_noerr) exit
        ncid_file = parent_ncid
-    end do
+    END DO
 
     if (ncerr_local == NF95_ENOGRP) then