test_not_equals Subroutine

public subroutine test_not_equals()

Arguments

None

Calls

proc~~test_not_equals~~CallsGraph proc~test_not_equals test_not_equals assert_that assert_that proc~test_not_equals->assert_that true true proc~test_not_equals->true

Source Code

   subroutine test_not_equals()
      type(FixedLevelsVerticalGrid) :: vgrid1, vgrid2, vgrid3

      real, parameter :: levels1(*) = [1.,5.,7.]
      real, parameter :: levels2(*) = [.01,4.]

      vgrid1 = FixedLevelsVerticalGrid(standard_name='air_pressure', units='Pa', levels=levels1)
      vgrid2 = FixedLevelsVerticalGrid(standard_name='air_pressure', units='mb', levels=levels1)
      vgrid3 = FixedLevelsVerticalGrid(standard_name='air_pressure', units='Pa', levels=levels2)
      @assert_that(vgrid1 /= vgrid2, is(true()))
      @assert_that(vgrid1 /= vgrid3, is(true()))

   end subroutine test_not_equals