1 SUBROUTINE enforce_periodicity(ns, nu, nv, array0, i_phi)
5 INTEGER,
INTENT(IN):: ns, nu, nv, i_phi
6 REAL(kind=rprec),
DIMENSION(ns, nu, nv),
INTENT(INOUT):: array0
9 array0(:,nu,nv) = array0(:,1,1)
10 array0(:,1,nv) = array0(:,1,1)
11 array0(:,nu,1) = array0(:,1,1)
12 array0(:,nu,2:nv-1) = array0(:,1,2:nv-1)
13 array0(:,2:nu-1,nv) = array0(:,2:nu-1,1)
15 array0(:,1:nu,nv) = twopi
16 array0(:,nu,1:nv-1) = array0(:,1,1:nv-1)
19 END SUBROUTINE enforce_periodicity