Ignore:
Timestamp:
Mar 6, 2019 10:41:14 AM (4 years ago)
Author:
eckhard
Message:

inifor: Removed unused variables, improved coding style

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/inifor/tests/test-grid.f90

    r3618 r3785  
    1515! PALM. If not, see <http://www.gnu.org/licenses/>.
    1616!
    17 ! Copyright 2017-2018 Leibniz Universitaet Hannover
    18 ! Copyright 2017-2018 Deutscher Wetterdienst Offenbach
     17! Copyright 2017-2019 Leibniz Universitaet Hannover
     18! Copyright 2017-2019 Deutscher Wetterdienst Offenbach
    1919!------------------------------------------------------------------------------!
    2020!
     
    7474       xu(i) = real(i) / (nx+1) * lx
    7575       x(i)  = 0.5*dx + xu(i)
    76     END DO
     76    ENDDO
    7777
    7878    dy = ly / (ny + 1)
     
    8080       yv(i) = real(i) / (ny+1) * ly
    8181       y(i)  = 0.5*dy + yv(i)
    82     END DO
     82    ENDDO
    8383
    8484    dz(:) = lz / (nz + 1)
     
    8686       IF (i < nz)  zw(i) = real(i) / (nz+1) * lz
    8787       z(i) = 0.5*dz(1) + zw(i)
    88     END DO
     88    ENDDO
    8989
    9090    ! Act
Note: See TracChangeset for help on using the changeset viewer.