46 integer :: nxf,nyf,ix,jy,ixs
47 real :: field(0:nxmax-1,0:nymax-1),xshiftaux(0:nxmax-1)
57 if (nxshift.ne.0)
then
59 if (ix.ge.nxshift)
then
64 xshiftaux(ixs)=field(ix,jy)
67 field(ix,jy)=xshiftaux(ix)
74 field(nxf,jy)=field(0,jy)
subroutine shift_field_0(field, nxf, nyf)