looking at the routine Nonlinear/zetabc.F, I've noticed that in the case of WEST_FSRADIATION (line 113-114 and 118-119), the time index used is kstp:
Code: Select all
# if defined WEST_FSRADIATION
!
! Western edge, implicit upstream radiation condition.
!
DO j=Jstr,Jend+1
grad(Istr-1,j)=zeta(Istr-1,j ,kstp)- &
& zeta(Istr-1,j-1,kstp)
# ifdef MASKING
grad(Istr-1,j)=grad(Istr-1,j)*GRID(ng)%vmask(Istr-1,j)
# endif
grad(Istr,j)=zeta(Istr,j ,kstp)- &
& zeta(Istr,j-1,kstp)
thank you,
francesco