test_FieldsAreConformableR8 Subroutine

public subroutine test_FieldsAreConformableR8(this)

Arguments

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

Calls

proc~~test_fieldsareconformabler8~~CallsGraph proc~test_fieldsareconformabler8 test_FieldsAreConformableR8 asserttrue asserttrue proc~test_fieldsareconformabler8->asserttrue interface~fieldsareconformable FieldsAreConformable proc~test_fieldsareconformabler8->interface~fieldsareconformable proc~mapl_verify MAPL_Verify proc~test_fieldsareconformabler8->proc~mapl_verify proc~mapl_throw_exception MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

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