MPI to Coarray Fortran: Experiences with a CFD Solver for Unstructured Meshes

Listing 6

Coarray communication: push approach with a derived data type coarray.

if( this_image().ne. num_images() ) then

  Image[this_image()+1]%sol(:) = Image%sol(:)

end if