TESLA GPUs versus MPI with OpenMP for the Forward Modeling of Gravity and Gravity Gradient of Large Prisms Ensemble

Pseudocode 2

DO k = 1,T

!$acc parallel loop present (Gd,Gshared_d)

collapse (2)

DO i = 1,Nx

    DO j = 1,Ny

    Gshared_D(i,j) = Gd(k,i,j) + Gshared_D(i,j);

    END DO

END DO

!$acc end parallel loop

END DO