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)