Code: Select all
IF (SOUTHERN_EDGE) THEN
DO k=1,N(ng)
DO i=IstrU-1,Iend
# ifdef DIFF_3DCOEF
# ifdef TS_U3ADV_SPLIT
diff3d_u(i,Jstr-1,k)=diff3d_u(i,Jstr,k)
diff3d_v(i,Jstr-1,k)=diff3d_v(i,Jstr,k)
# else
diff3d_r(i,Jstr-1,k)=diff3d_r(i,Jstr,k)
# endif
# endif
# ifdef VISC_3DCOEF
# ifdef UV_U3ADV_SPLIT
Uvis3d_r(i,Jend+1,k)=Uvis3d_r(i,Jend,k)
Vvis3d_r(i,Jend+1,k)=Vvis3d_r(i,Jend,k)
# else
visc3d_r(i,Jend+1,k)=visc3d_r(i,Jend,k)
# endif
# endif
END DO
END DO
END IF