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

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

Files:

• Datasets/nf95_create_single.f90 (modified) (1 diff)
• Datasets/nf95_find_coord.f90 (modified) (1 diff)
• Groups/nf95_inq_file_ncid.f90 (modified) (1 diff)
• Variables/nf95_gw_var.f90 (modified) (3 diffs)

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

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

LMDZ6/branches/Amaury_dev/tools/netcdf95/Variables/nf95_gw_var.f90

@@ -152 +152 @@
     do i = 1, 4
        call nf95_inquire_dimension(ncid, dimids(i), nclen=len_dim(i))
-    end do
+    END DO
 
     allocate(values(len_dim(1), len_dim(2), len_dim(3), len_dim(4)))
@@ -186 +186 @@
     do i = 1, 5
        call nf95_inquire_dimension(ncid, dimids(i), nclen=len_dim(i))
-    end do
+    END DO
 
     allocate(values(len_dim(1), len_dim(2), len_dim(3), len_dim(4), len_dim(5)))
@@ -323 +323 @@
     do i = 1, 4
        call nf95_inquire_dimension(ncid, dimids(i), nclen=len_dim(i))
-    end do
+    END DO
 
     allocate(values(len_dim(1), len_dim(2), len_dim(3), len_dim(4)))