Skip to content
Snippets Groups Projects
Commit 45d8e0f5 authored by ESCOBAR Juan's avatar ESCOBAR Juan
Browse files

Juan 9/04/2013: change comment

parent e789dbfb
No related branches found
No related tags found
No related merge requests found
......@@ -93,7 +93,7 @@ REAL, DIMENSION(:,:,:), INTENT(OUT) :: PSRC ! source term after advection
! ------------
!
!$acc data pcopyin(PFIELDT,PRHODJ) pcopyout(PSRC)
! local (ZPPM)
! create/mirror (ZPPM)
!$acc kernels
PSRC = PFIELDT
!$acc end kernels
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment