Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/easy_netcdf.F90

Timestamp:

Aug 2, 2024, 2:12:03 PM (3 months ago)

Author:

abarral

Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/easy_netcdf.F90 (modified) (21 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/easy_netcdf.F90

@@ -392 +392 @@
 
     ndimlens(:) = 0
-    do j = 1,ndims
+    DO j = 1,ndims
       istatus = nf90_inquire_dimension(this%ncid, idimids(j), len=ndimlens(j))
       if (istatus /= NF90_NOERR) then
@@ -404 +404 @@
     if (present(ntotal)) then
       ntotal = 1
-      do j = 1, ndims
+      DO j = 1, ndims
         ntotal = ntotal * ndimlens(j)
       end do
@@ -613 +613 @@
     ! Compute number of elements of the variable in the file
     ntotal = 1
-    do j = 1, ndims
+    DO j = 1, ndims
       ntotal = ntotal * ndimlens(j)
     end do
@@ -658 +658 @@
     ! Compute number of elements of the variable in the file
     ntotal = 1
-    do j = 1, ndims
+    DO j = 1, ndims
       ntotal = ntotal * ndimlens(j)
     end do
@@ -707 +707 @@
     ! i.e. excluding the slowest varying dimension, indexed by "index"
     ntotal = 1
-    do j = 1, ndims-1
+    DO j = 1, ndims-1
       ntotal = ntotal * ndimlens(j)
     end do
@@ -761 +761 @@
     ! Ensure variable has only one dimension in the file
     n = 1
-    do j = 1, ndims
+    DO j = 1, ndims
       n = n * ndimlens(j)
       if (j > 1 .and. ndimlens(j) > 1) then
@@ -819 +819 @@
     ! Ensure variable has only one dimension in the file
     n = 1
-    do j = 1, ndims
+    DO j = 1, ndims
       n = n * ndimlens(j)
       if (j > 1 .and. ndimlens(j) > 1) then
@@ -878 +878 @@
     ! Ensure variable has only one dimension in the file
     n = 1
-    do j = 1, ndims
+    DO j = 1, ndims
       n = n * ndimlens(j)
       if (j > 1 .and. ndimlens(j) > 1) then
@@ -938 +938 @@
     ! Ensure variable has only one dimension aside from the last one
     n = 1
-    do j = 1, ndims-1
+    DO j = 1, ndims-1
       n = n * ndimlens(j)
       if (j > 1 .and. ndimlens(j) > 1) then
@@ -1021 +1021 @@
     ! dimensions
     ntotal = 1
-    do j = 1, ndims
+    DO j = 1, ndims
       ntotal = ntotal * ndimlens(j)
       if (j > 2 .and. ndimlens(j) > 1) then
@@ -1133 +1133 @@
     ! dimensions
     ntotal = 1
-    do j = 1, ndims
+    DO j = 1, ndims
       ntotal = ntotal * ndimlens(j)
       if (j > 2 .and. ndimlens(j) > 1) then
@@ -1202 +1202 @@
       vcount(1:2) = [ndimlen1,1]
       
-      do j = 1,ndimlen2
+      DO j = 1,ndimlen2
         vstart(2) = j
         istatus = nf90_get_var(this%ncid, ivarid, matrix(:,j), start=vstart, count=vcount)
@@ -1252 +1252 @@
     ! dimensions aside from the last one
     ntotal = 1
-    do j = 1, ndims-1
+    DO j = 1, ndims-1
       ntotal = ntotal * ndimlens(j)
       if (j > 2 .and. ndimlens(j) > 1) then
@@ -1376 +1376 @@
     ! dimensions
     ntotal = 1
-    do j = 1, ndims
+    DO j = 1, ndims
       ntotal = ntotal * ndimlens(j)
       if (j > 3 .and. ndimlens(j) > 1) then
@@ -1512 +1512 @@
     ! dimensions aside from the last one
     ntotal = 1
-    do j = 1, ndims-1
+    DO j = 1, ndims-1
       ntotal = ntotal * ndimlens(j)
       if (j > 3 .and. ndimlens(j) > 1) then
@@ -1654 +1654 @@
     ! dimensions
     ntotal = 1
-    do j = 1, ndims
+    DO j = 1, ndims
       ntotal = ntotal * ndimlens(j)
       if (j > 4 .and. ndimlens(j) > 1) then
@@ -1804 +1804 @@
 
     ! Pad with blanks since nf90_get_att does not do this
-    do j = i_attr_len+1,len(attr_str)
+    DO j = i_attr_len+1,len(attr_str)
       attr_str(j:j) = ' '
     end do
@@ -1878 +1878 @@
 
     ! Pad with blanks since nf90_get_att does not do this
-    do j = i_attr_len+1,len(attr_str)
+    DO j = i_attr_len+1,len(attr_str)
       attr_str(j:j) = ' '
     end do
@@ -2705 +2705 @@
     end if
 
-    do jdim = 1,ndims
+    DO jdim = 1,ndims
       istatus = nf90_inquire_dimension(infile%ncid, idimids(jdim), &
            &  name=dimname, len=dimlen)
@@ -2771 +2771 @@
 
     ! Map dimension IDs
-    do jdim = 1,ndims
+    DO jdim = 1,ndims
       istatus = nf90_inquire_dimension(infile%ncid, idimids_in(jdim), name=dim_name)
       if (istatus /= NF90_NOERR) then
@@ -2801 +2801 @@
 
     ! Copy attributes
-    do jattr = 1,nattr
+    DO jattr = 1,nattr
       istatus = nf90_inq_attname(infile%ncid, ivarid_in, jattr, attr_name)
       if (istatus /= NF90_NOERR) then