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
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
MNH/advec_ppm_algo.f90
+ 1
− 1
View file @ 45d8e0f5
...@@ -93,7 +93,7 @@ REAL, DIMENSION(:,:,:), INTENT(OUT) :: PSRC ! source term after advection ...@@ -93,7 +93,7 @@ REAL, DIMENSION(:,:,:), INTENT(OUT) :: PSRC ! source term after advection
! ------------ ! ------------
! !
!$acc data pcopyin(PFIELDT,PRHODJ) pcopyout(PSRC) !$acc data pcopyin(PFIELDT,PRHODJ) pcopyout(PSRC)
! local (ZPPM) ! create/mirror (ZPPM)
!$acc kernels !$acc kernels
PSRC = PFIELDT PSRC = PFIELDT
!$acc end kernels !$acc end kernels
......
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

Documentation | Mentions légales | CGU | Accessibilité : non conforme