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

<table class="algorithm-group"><tr><td><table class="algorithm" id="lst5"><tr><td colspan="2"><span class="monospace">if( this</span><span class="monospace">_</span><span class="monospace">image().ne. num</span><span class="monospace">_</span><span class="monospace">images() ) then</span></td></tr><tr><td colspan="2"> <span class="monospace">j(:)[this</span><span class="monospace">_</span><span class="monospace">image()+1] = j(:)</span></td></tr><tr><td colspan="2"><span class="monospace">end if</span></td></tr></table></td></tr></table>

<div>Coarray communication: push approach.</div>

Scientific Programming

lst5

Listing 5

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