Changeset 3785 for palm/trunk/UTIL/inifor/tests/test-interpolation.f90

Timestamp:

Mar 6, 2019 10:41:14 AM (6 years ago)

Author:

eckhard

Message:

inifor: Removed unused variables, improved coding style

File:

• palm/trunk/UTIL/inifor/tests/test-interpolation.f90 (modified) (4 diffs)

palm/trunk/UTIL/inifor/tests/test-interpolation.f90

@@ -15 +15 @@
 ! PALM. If not, see <http://www.gnu.org/licenses/>.
 !
-! Copyright 2017-2018 Leibniz Universitaet Hannover
-! Copyright 2017-2018 Deutscher Wetterdienst Offenbach
+! Copyright 2017-2019 Leibniz Universitaet Hannover
+! Copyright 2017-2019 Deutscher Wetterdienst Offenbach
 !------------------------------------------------------------------------------!
 !
@@ -146 +146 @@
        PRINT *, "jj     : ", palm_grid%jj(i,j,:)
        PRINT *, "jj_ref : ", jj_ref(i,j,:), " indices match? ", res
-    END DO
-    END DO
+    ENDDO
+    ENDDO
 
     CALL end_test(title, res)
@@ -180 +180 @@
     DO i = 0, 1
        PRINT *, "PALM lon, lat: ", palm_grid % clon(i,j) * TO_DEGREES, palm_grid % clat(i,j)*TO_DEGREES
-    END DO
-    END DO
+    ENDDO
+    ENDDO
 
     ! Act
@@ -203 +203 @@
        PRINT *, "jj     : ", palm_grid%jj(i,j,:)
        PRINT *, "jj_ref : ", jj_ref(i,j,:), " indices match? ", res
-    END DO
-    END DO
+    ENDDO
+    ENDDO
 
     ! asserting that all four weights equal, 0.5, 0.25, 1./6., and 1./12., resp.