test_get_lon_range_GE Subroutine

public subroutine test_get_lon_range_GE()

Arguments

None

Calls

proc~~test_get_lon_range_ge~~CallsGraph proc~test_get_lon_range_ge test_get_lon_range_GE ESMF_HConfigCreate ESMF_HConfigCreate proc~test_get_lon_range_ge->ESMF_HConfigCreate ESMF_HConfigDestroy ESMF_HConfigDestroy proc~test_get_lon_range_ge->ESMF_HConfigDestroy assert_that assert_that proc~test_get_lon_range_ge->assert_that interface~get_lon_range get_lon_range proc~test_get_lon_range_ge->interface~get_lon_range

Source Code

   subroutine test_get_lon_range_GE()
      type(AxisRanges) :: ranges
      type(ESMF_HConfig) :: hconfig
      integer :: status

      hconfig = ESMF_HConfigCreate(content="{dateline: GE}", rc=status)
      @assert_that(status, is(0))

      ranges = get_lon_range(hconfig, 4, rc=status)
      @assert_that(status, is(0))

      @assert_that(ranges%center_min, is(+45._R8))
      @assert_that(ranges%center_max, is(+315._R8))
      @assert_that(ranges%corner_min, is(0._R8))
      @assert_that(ranges%corner_max, is(270._R8))

      call ESMF_HConfigDestroy(hconfig)
      
       call ESMF_HConfigDestroy(hconfig)
  end subroutine test_get_lon_range_GE