diff --git a/MNH/advec_ppm_algo.f90 b/MNH/advec_ppm_algo.f90 index 6fdcfb87c393b4b5144e9d0daf3f50051446ad69..c5cadd21140cc3e986d8f6093e6b1490567cbfa6 100644 --- a/MNH/advec_ppm_algo.f90 +++ b/MNH/advec_ppm_algo.f90 @@ -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