|
if (k == 1) www(sl,i,j,nz) = 0. |
real(rp) :: www (nslices,-1:nxp2,1,nz) where nxp2 is nx + 2 while nxp3 is nx + 3.
if (k == 1) www(sl,i,j,nz) = 0. where do i=-1,nxp3.
IMO the www array is too small, it will fail randomly, likely it will not fail when compiled with gfortran, but this is only matter of luck, and well written programs should not rely on luck.
codesign-kernels/mmf-mpdata-tracer/advect_scalar2D_pushncols_openacc.F90
Line 126 in e994a3b
real(rp) :: www (nslices,-1:nxp2,1,nz)wherenxp2 is nx + 2whilenxp3 is nx + 3.if (k == 1) www(sl,i,j,nz) = 0.wheredo i=-1,nxp3.IMO the www array is too small, it will fail randomly, likely it will not fail when compiled with gfortran, but this is only matter of luck, and well written programs should not rely on luck.