Index: /issm/trunk/src/m/kml/edgeperimeter.m
===================================================================
--- /issm/trunk/src/m/kml/edgeperimeter.m	(revision 6381)
+++ /issm/trunk/src/m/kml/edgeperimeter.m	(revision 6382)
@@ -2,5 +2,5 @@
 %  create an edge perimeter list for the elements in the model.
 %
-%  [edgeper,elemper,iloop]=edgeperimeter(elem,nodecon)
+%  [edgeper,elemper,iloop]=edgeperimeter(elem,nodecon,edgeadj)
 %
 %  where the required input is:
@@ -13,5 +13,8 @@
 %    iloop         (numeric, index for each loop (nloop))
 %
-function [edgeper,elemper,iloop]=edgeperimeter(elem,nodecon)
+%  the optional input is:
+%    edgeadj       (numeric, edge adjacency array (elems x edges))
+%
+function [edgeper,elemper,iloop]=edgeperimeter(elem,nodecon,edgeadj)
 
 if ~nargin
@@ -22,5 +25,7 @@
 %%  create the edge adjacency array
 
-edgeadj=edgeadjacency(elem,nodecon);
+if ~exist('edgeadj','var') || isempty(edgeadj)
+    edgeadj=edgeadjacency(elem,nodecon);
+end
 
 %%  create the unshared edge list