Synchronize CAF images.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
subroutine synchronize()
!---------------------------------------------------------------------------------------------------------------------------------
!< Synchronize CAF images.
!---------------------------------------------------------------------------------------------------------------------------------
integer(I_P) :: i !< Images counter.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
#ifdef CAF
if (we>1) then
sync all
! reduction on minumum value of Dt
do i=1, we
if (i/=me) Dt(i) = Dt(i)[i]
Dt(me) = min(Dt(me), Dt(i))
enddo
endif
#endif
return
!---------------------------------------------------------------------------------------------------------------------------------
endsubroutine synchronize