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

Timestamp:

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

Author:

eckhard

Message:

inifor: Removed unused variables, improved coding style

File:

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

palm/trunk/UTIL/inifor/tests/test-grid.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
 !------------------------------------------------------------------------------!
 !
@@ -74 +74 @@
        xu(i) = real(i) / (nx+1) * lx
        x(i)  = 0.5*dx + xu(i)
-    END DO
+    ENDDO
 
     dy = ly / (ny + 1)
@@ -80 +80 @@
        yv(i) = real(i) / (ny+1) * ly
        y(i)  = 0.5*dy + yv(i)
-    END DO
+    ENDDO
 
     dz(:) = lz / (nz + 1)
@@ -86 +86 @@
        IF (i < nz)  zw(i) = real(i) / (nz+1) * lz
        z(i) = 0.5*dz(1) + zw(i)
-    END DO
+    ENDDO
 
     ! Act