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

Timestamp:

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

Author:

abarral

Message:

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

Location:

LMDZ6/branches/Amaury_dev/tools/netcdf95/Datasets

Files:

• nf95_create_single.f90 (modified) (1 diff)
• nf95_find_coord.f90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/tools/netcdf95/Datasets/nf95_create_single.f90

@@ -47 +47 @@
           call nf95_put_att(ncid, varid_coord(i), coordinates(i)%attr_name(j), &
                coordinates(i)%attr_val(j))
-       end do
-    end do
+       END DO
+    END DO
 
     call nf95_def_var(ncid, name, NF90_FLOAT, dimids, varid)

LMDZ6/branches/Amaury_dev/tools/netcdf95/Datasets/nf95_find_coord.f90

@@ -96 +96 @@
           end if
        end if
-    end do
+    END DO
 
     if (found) then