test_FieldsAreConformableR8 Subroutine

public subroutine test_FieldsAreConformableR8()

Arguments

None

Calls

proc~~test_fieldsareconformabler8~~CallsGraph proc~test_fieldsareconformabler8 Test_FieldBLAS::test_FieldsAreConformableR8 asserttrue asserttrue proc~test_fieldsareconformabler8->asserttrue interface~fieldsareconformable MAPL_FieldPointerUtilities::FieldsAreConformable proc~test_fieldsareconformabler8->interface~fieldsareconformable proc~mapl_verify MAPL_ErrorHandlingMod::MAPL_Verify proc~test_fieldsareconformabler8->proc~mapl_verify proc~mapl_throw_exception MAPL_ThrowMod::MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine test_FieldsAreConformableR8()
      type(ESMF_Field) :: x, y
      integer :: status, rc
      logical :: are_conformable

      x = XR8
      y = YR8
      are_conformable = .FALSE.
      are_conformable = FieldsAreConformable(x, y, _RC)
      @assertTrue(are_conformable)

   end subroutine test_FieldsAreConformableR8