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

inifor: Removed unused variables, improved coding style

Location:
palm/trunk/UTIL/inifor/tests
Files:
12 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/inifor/tests/Makefile

    r3618 r3785  
    1414# PALM. If not, see <http://www.gnu.org/licenses/>.
    1515#
    16 # Copyright 2017-2018 Leibniz Universitaet Hannover
    17 # Copyright 2017-2018 Deutscher Wetterdienst Offenbach
     16# Copyright 2017-2019 Leibniz Universitaet Hannover
     17# Copyright 2017-2019 Deutscher Wetterdienst Offenbach
    1818#------------------------------------------------------------------------------#
    1919#
     
    2525# -----------------
    2626# $Id$
     27# Updated copyright note
     28#
     29#
     30# 3618 2018-12-10 13:25:22Z eckhard
    2731# Prefixed INIFOR modules with inifor_
    2832#
  • palm/trunk/UTIL/inifor/tests/Makefile.gnu

    r3618 r3785  
    1414# PALM. If not, see <http://www.gnu.org/licenses/>.
    1515#
    16 # Copyright 2017-2018 Leibniz Universitaet Hannover
    17 # Copyright 2017-2018 Deutscher Wetterdienst Offenbach
     16# Copyright 2017-2019 Leibniz Universitaet Hannover
     17# Copyright 2017-2019 Deutscher Wetterdienst Offenbach
    1818#------------------------------------------------------------------------------#
    1919#
     
    2525# -----------------
    2626# $Id$
     27# Updated copyright note
     28#
     29#
     30# 3618 2018-12-10 13:25:22Z eckhard
    2731# Prefixed INIFOR modules with inifor_
    2832#
  • palm/trunk/UTIL/inifor/tests/Makefile.ifort

    r3618 r3785  
    1414# PALM. If not, see <http://www.gnu.org/licenses/>.
    1515#
    16 # Copyright 2017-2018 Leibniz Universitaet Hannover
    17 # Copyright 2017-2018 Deutscher Wetterdienst Offenbach
     16# Copyright 2017-2019 Leibniz Universitaet Hannover
     17# Copyright 2017-2019 Deutscher Wetterdienst Offenbach
    1818#------------------------------------------------------------------------------#
    1919#
     
    2525# -----------------
    2626# $Id$
     27# Updated copyright note
     28#
     29#
     30# 3618 2018-12-10 13:25:22Z eckhard
    2731# Prefixed INIFOR modules with inifor_
    2832#
  • palm/trunk/UTIL/inifor/tests/test-boundaries.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!
     
    104104   
    105105       CALL fini_grid_definition(boundary_grid)
    106     END DO
     106    ENDDO
    107107
    108108    CALL end_test(title, res)
  • palm/trunk/UTIL/inifor/tests/test-centre-velocities.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!
     
    7575       res = res .AND. assert_equal(u_centre(:,i,1), u_ref(:,i,1), 'centering u')
    7676       res = res .AND. assert_equal(v_centre(i,:,1), v_ref(i,:,1), 'centering v')
    77     END DO
     77    ENDDO
    7878
    7979    CALL end_test(title, res)
  • 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
  • palm/trunk/UTIL/inifor/tests/test-input-files.f90

    r3681 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!
     
    9090    DO i = 1, 6
    9191       res = res .AND. (TRIM(ref_list(i)) .EQ. TRIM(file_list(i)))
    92     END DO
     92    ENDDO
    9393
    9494    DEALLOCATE( ref_list, file_list )
     
    115115    DO i = 1, 2
    116116       res = res .AND. (TRIM(ref_list(i)) .EQ. TRIM(file_list(i)))
    117     END DO
     117    ENDDO
    118118
    119119    DEALLOCATE( ref_list, file_list )
     
    145145    DO i = 1, 2
    146146       res = res .AND. (TRIM(ref_list(i)) .EQ. TRIM(file_list(i)))
    147     END DO
     147    ENDDO
    148148
    149149    DEALLOCATE( ref_list, file_list )
  • palm/trunk/UTIL/inifor/tests/test-interpolation.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!
     
    146146       PRINT *, "jj     : ", palm_grid%jj(i,j,:)
    147147       PRINT *, "jj_ref : ", jj_ref(i,j,:), " indices match? ", res
    148     END DO
    149     END DO
     148    ENDDO
     149    ENDDO
    150150
    151151    CALL end_test(title, res)
     
    180180    DO i = 0, 1
    181181       PRINT *, "PALM lon, lat: ", palm_grid % clon(i,j) * TO_DEGREES, palm_grid % clat(i,j)*TO_DEGREES
    182     END DO
    183     END DO
     182    ENDDO
     183    ENDDO
    184184
    185185    ! Act
     
    203203       PRINT *, "jj     : ", palm_grid%jj(i,j,:)
    204204       PRINT *, "jj_ref : ", jj_ref(i,j,:), " indices match? ", res
    205     END DO
    206     END DO
     205    ENDDO
     206    ENDDO
    207207
    208208    ! asserting that all four weights equal, 0.5, 0.25, 1./6., and 1./12., resp.
  • palm/trunk/UTIL/inifor/tests/test-prototype.f90

    r3183 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!
  • palm/trunk/UTIL/inifor/tests/test-stretching.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!
  • palm/trunk/UTIL/inifor/tests/test-transform.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!
  • palm/trunk/UTIL/inifor/tests/util.f90

    r3183 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!
     
    7171          msg = 'failed.'
    7272          label = ' [XX]'
    73        END IF
     73       ENDIF
    7474
    7575       PRINT '(/A, A, A, A)', TRIM(label) // "  Test '", TRIM(title), "' ", TRIM(msg)
     
    8787       ELSE
    8888           assert_equal = assert(a, b, 'eq')
    89        END IF
     89       ENDIF
    9090
    9191       IF (assert_equal .eqv. .TRUE.)  THEN
     
    9494           PRINT *, "Equality assertion for ", msg, " failed. Maximum error is ",               &
    9595              MAXVAL( ABS( a - b))
    96        END IF
     96       ENDIF
    9797
    9898    END FUNCTION assert_equal
     
    125125                mag    = MAX( ABS(a(i)), ABS(b(i)) )
    126126                assert = assert .AND. (diff < mag * max_rel_diff )
    127              END DO
    128           END IF
     127             ENDDO
     128          ENDIF
    129129
    130130       CASE DEFAULT
Note: See TracChangeset for help on using the changeset viewer.