Ignore:
Timestamp:
Apr 16, 2020 3:51:56 PM (4 years ago)
Author:
eckhard
Message:

bugfix for explicit loop in 'reverse' subroutine, updated test suite

Location:
palm/trunk/UTIL/inifor/tests
Files:
2 added
1 edited

Legend:

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

    r4481 r4499  
    2626! -----------------
    2727! $Id$
     28! Bugfix: carry over variable name change of 'dp' to 'wp'
     29!
     30!
     31!
    2832! Prefixed all INIFOR modules with inifor_
    2933!
     
    4852
    4953    USE inifor_defs,                                                           &
    50         ONLY :  dp
     54        ONLY :  wp
    5155
    5256    USE inifor_grid,                                                           &
     
    6367    INTEGER            ::  k  = nz - 2
    6468
    65     REAL(dp) ::  z(1:nz)
    66     REAL(dp) ::  dz(10)            = -1.0_dp
    67     REAL(dp) ::  dz_max            = 1000.0_dp
    68     REAL(dp) ::  dz_stretch_factor = 1.08_dp
    69     REAL(dp) ::  dz_stretch_level  = 2.0_dp
    70     REAL(dp) ::  dz_stretch_level_start(9) = -9999999.9_dp
    71     REAL(dp) ::  dz_stretch_level_end(9) = 9999999.9_dp
    72     REAL(dp) ::  dz_stretch_factor_array(9) = 1.08_dp
     69    REAL(wp) ::  z(1:nz)
     70    REAL(wp) ::  dz(10)            = -1.0_wp
     71    REAL(wp) ::  dz_max            = 1000.0_wp
     72    REAL(wp) ::  dz_stretch_factor = 1.08_wp
     73    REAL(wp) ::  dz_stretch_level  = 2.0_wp
     74    REAL(wp) ::  dz_stretch_level_start(9) = -9999999.9_wp
     75    REAL(wp) ::  dz_stretch_level_end(9) = 9999999.9_wp
     76    REAL(wp) ::  dz_stretch_factor_array(9) = 1.08_wp
    7377
    7478    CALL begin_test(title, res)
    7579
    7680    ! Arange
    77     z(:)   = 0.0_dp
    78     dz(1)  = 1.0_dp
     81    z(:)   = 0.0_wp
     82    dz(1)  = 1.0_wp
    7983
    8084    ! Act
     
    96100    res = res .AND. &
    97101          assert_equal( (/ z(UBOUND(z, 1)) - z(1)              /),             &
    98                         (/ (1.0_dp - dz_stretch_factor**(k+1)) /               &
    99                            (1.0_dp - dz_stretch_factor)        /),             &
     102                        (/ (1.0_wp - dz_stretch_factor**(k+1)) /               &
     103                           (1.0_wp - dz_stretch_factor)        /),             &
    100104                        'length of stretched grid' )
    101105
Note: See TracChangeset for help on using the changeset viewer.