test_is_not_periodic Subroutine

public subroutine test_is_not_periodic()

Arguments

None

Calls

proc~~test_is_not_periodic~2~~CallsGraph proc~test_is_not_periodic~2 test_is_not_periodic assert_that assert_that proc~test_is_not_periodic~2->assert_that false false proc~test_is_not_periodic~2->false none~is_periodic~2 CoordinateAxis%is_periodic proc~test_is_not_periodic~2->none~is_periodic~2

Source Code

   subroutine test_is_not_periodic()
      type(LonAxis) :: axis

      integer, parameter :: N = 6
      real(kind=R8) :: centers(N)
      real(kind=R8) :: corners(N+1)
      integer :: i

      do i = 1, n
         centers(i) = (360./n) * i
         corners(i) = (360./n) * i - (360./(2*n))
      end do

      corners(n+1) = 360 + (360./(2*n)) + 1
      axis = LonAxis(centers = centers, corners=corners)
      @assert_that(axis%is_periodic(), is(false()))

      corners(n+1) = 360 + (360./(2*n)) - 1
      axis = LonAxis(centers = centers, corners=corners)
      @assert_that(axis%is_periodic(), is(false()))
      
   end subroutine test_is_not_periodic