Commit f6b7c8fa authored by Budiardja, Reuben's avatar Budiardja, Reuben
Browse files

Added missing mapping for Mhu_a and Tau_a

parent 84899571
......@@ -51,7 +51,7 @@ contains
real ( real64 ) :: &
x, sum1, sum2, mhu, tauR, &
Start
real ( real64 ), parameter :: &
real ( real64 ), parameter :: &
Mhu_a ( 0 : 14 ) = &
[ 9.9632117206253790e-01_real64, 4.0825738726469545e-02_real64, &
6.3401613233199589e-04_real64, 4.4158436861700431e-06_real64, &
......@@ -81,11 +81,16 @@ contains
-9.0473475495087118d-26*0.02_real64, &
-2.9878427692323621d-28*0.02_real64, &
1.0000000000000000_real64 ]
!$OMP target enter data map ( to: Mhu_a )
!$OMP target enter data map ( to: Tau_a )
!$OMP barrier
Start = omp_get_wtime ( )
do iT = 0, nIterations
!$OMP target teams distribute parallel do &
!$OMP firstprivate ( Mhu_a, Tau_a ) &
!$OMP private ( x, sum1, j, sum2, k, mhu, tauR )
do ii = 0, nCells - 1
......@@ -114,6 +119,10 @@ contains
write ( *, fmt = '(a20, f6.4, a4)' ) &
'OMP Time Compute : ', omp_get_wtime ( ) - Start, ' sec'
!$OMP barrier
!$OMP target exit data map ( delete: Mhu_a )
!$OMP target exit data map ( delete: Tau_a )
end subroutine Compute
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment