test_FieldsAreConformableR4 Subroutine

public subroutine test_FieldsAreConformableR4()

Arguments

None

Calls

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

Source Code

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

      x = XR4
      y = YR4
      are_conformable = .FALSE.
      are_conformable = FieldsAreConformable(x, y, _RC)
      @assertTrue(are_conformable)

   end subroutine test_FieldsAreConformableR4