test_FieldsAreConformableR4 Subroutine

public subroutine test_FieldsAreConformableR4(this)

Arguments

Type IntentOptional Attributes Name
class(MpiTestMethod), intent(inout) :: this

Calls

proc~~test_fieldsareconformabler4~~CallsGraph proc~test_fieldsareconformabler4 test_FieldsAreConformableR4 asserttrue asserttrue proc~test_fieldsareconformabler4->asserttrue interface~fieldsareconformable FieldsAreConformable proc~test_fieldsareconformabler4->interface~fieldsareconformable proc~mapl_verify MAPL_Verify proc~test_fieldsareconformabler4->proc~mapl_verify proc~mapl_throw_exception MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine test_FieldsAreConformableR4(this)
      class(MpiTestMethod), intent(inout) :: this
      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