Multi-GPU Support on Single Node Using Directive-Based Programming Model

Algorithm 1

S3D thermodynamics kernel in single GPU.

!$acc data copyout(c(1:np), h(1:np)) copyin(T(1:np),…)

do m = 1, MR

 call calc_mixcp(np, nslvs, T, midtemp, …  ,  c)

 call calc_mixenth(np, nslvs, T, midtemp, …  ,  h)

end do

!$acc end data