diff --git a/src/2d/prefilp.f90 b/src/2d/prefilp.f90 index 5e90a8e4..28bbeb32 100644 --- a/src/2d/prefilp.f90 +++ b/src/2d/prefilp.f90 @@ -146,7 +146,7 @@ recursive subroutine prefilrecur(level,nvar,valbig,auxbig,naux,time,mitot,mjtot, j2 = min(jhi,jregsz(level)-1) !endif elseif (j .eq. 3) then - if (jhi .gt. jregsz(level)) then + if (jhi .ge. jregsz(level)) then j1 = jregsz(level)-1 ! includes last cell on top for extrap bc j2 = jhi endif