Back to OASIS4 home

Routine psmile_remove_intersect (inter, idl, idg, npart, local_extent_info, global_extent_info, ierror)
Subroutine "PSMILe_Remove_intersect" removes the common parts from the intersections transferred.

local_extent_info (nd_extent_infos, *) = in
!     Local extents info with
!         local_extent_info (3, :) = Transformation code
!
global_extent_info (nd_extent_infos, *) = in
npart = out
inter (2, ndim_3d, npart) = inout
idl = inout        ! First (local) Id of the intersections (to be changed if a intersection is removed)
idg = inout       ! Second (global) Id of the intersections (to be changed if a intersection is removed)