test_equals Subroutine

public subroutine test_equals()

Arguments

None

Calls

proc~~test_equals~2~~CallsGraph proc~test_equals~2 test_equals assert_that assert_that proc~test_equals~2->assert_that true true proc~test_equals~2->true

Source Code

   subroutine test_equals()
      type(FixedLevelsVerticalGrid) :: vgrid1, vgrid2

      real, parameter :: levels(*) = [1.,5.,7.]

      vgrid1 = FixedLevelsVerticalGrid(standard_name='air_pressure', units='Pa', levels=levels)
      vgrid2 = FixedLevelsVerticalGrid(standard_name='air_pressure', units='Pa', levels=levels)
      @assert_that(vgrid1==vgrid2, is(true()))

   end subroutine test_equals