Index: /issm/trunk/src/m/classes/public/modelsextract.m
===================================================================
--- /issm/trunk/src/m/classes/public/modelsextract.m	(revision 2950)
+++ /issm/trunk/src/m/classes/public/modelsextract.m	(revision 2951)
@@ -69,5 +69,5 @@
 %now, go use the pools of flags to extract models: 
 disp(['extracting ' num2str(size(flag_list,1)) ' models']);
-md_list=cell(0,1);
+models=cell(0,1);
 
 for i=1:size(flag_list,1),
@@ -79,6 +79,9 @@
 		realflags=flag_list{i};
 	end
-	md_list{end+1,1}=modelextract(md,realflags);
+	models{end+1,1}=modelextract(md,realflags);
 end
 
+%return model list
+md_list=modellist(models);
+
 end %end of this function
Index: /issm/trunk/src/m/classes/public/modelsextractfromdomains.m
===================================================================
--- /issm/trunk/src/m/classes/public/modelsextractfromdomains.m	(revision 2951)
+++ /issm/trunk/src/m/classes/public/modelsextractfromdomains.m	(revision 2951)
@@ -0,0 +1,27 @@
+function md_list=modelsextractfromdomains(md,directory)
+%modelsextractfromdomains- extract several self contained models according to a list of domains
+%
+%   Usage:
+%      md_list=modelsextractfromdomains(md,'Basins/');
+%
+%   Examples:
+%      md_list=modelsextract(md,'Basins/');
+%
+%   See also: MODELSEXTRACTS, MODELEXTRACT
+
+
+
+%go into directory and get list of files.
+cd(directory);
+basins=listfiles;
+cd ..
+
+models=cell(0,1);
+for i=1:length(basins),
+	models{end+1,1}=modelextract(md,[directory '/' basins{i}]);
+end
+
+%return model list: 
+md_list=modellist(models);
+
+end %end of this function