Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(MpiTestMethod), | intent(inout) | :: | this |
subroutine test_FieldCOPY_R8R4(this) class(MpiTestMethod), intent(inout) :: this type(ESMF_Field) :: x type(ESMF_Field) :: y real(kind=ESMF_KIND_R8), dimension(:,:), pointer :: x_ptr real(kind=ESMF_KIND_R4), dimension(:,:), pointer :: y_ptr integer :: status, rc x = XR8 y = YR4 call ESMF_FieldGet(x, farrayPtr = x_ptr, _RC) x_ptr = 4.d0 call FieldCOPY(x, y, _RC) call ESMF_FieldGet(x, farrayPtr = x_ptr, _RC) call ESMF_FieldGet(y, farrayPtr = y_ptr, _RC) @assertTrue(all(are_almost_equal(x_ptr, y_ptr)), 'Values differ above threshold.') end subroutine test_FieldCOPY_R8R4