test_is_periodic Subroutine

public subroutine test_is_periodic()

Arguments

None

Calls

proc~~test_is_periodic~2~~CallsGraph proc~test_is_periodic~2 test_is_periodic assert_that assert_that proc~test_is_periodic~2->assert_that none~is_periodic~2 CoordinateAxis%is_periodic proc~test_is_periodic~2->none~is_periodic~2 true true proc~test_is_periodic~2->true

Source Code

   subroutine test_is_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))
      axis = LonAxis(centers = centers, corners=corners)

      @assert_that(axis%is_periodic(), is(true()))
           
   end subroutine test_is_periodic