diff --git a/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90 b/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90 index 8029d6c51375b489d5a6dc771df88ce45347d54d..edbe5ebfc57b22b3c2543f9445bb52b0d28a70fe 100644 --- a/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90 +++ b/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90 @@ -2187,7 +2187,7 @@ end subroutine line_Jacobi_mnh integer :: ii,ij,iz ! acc kernels present(pzSr_st,pzSu_out_st,pzb_st,pzSu_in_st) - !$acc parallel present(pzSr_st,pzSu_out_st,pzb_st,pzSu_in_st) + !$acc parallel present(pzSr_st,pzSu_out_st,pzb_st,pzSu_in_st) & !$acc & present(pzc_k,pzd_k,ptmp_k,pc_k) !$mnh_do_concurrent ( ii=iib:iie , ij=ijb:ije ) iz=1