Index: sm/trunk-jpl/src/m/qmu/qmumarshall.m
===================================================================
--- /issm/trunk-jpl/src/m/qmu/qmumarshall.m	(revision 24840)
+++ 	(revision )
@@ -1,75 +1,0 @@
-function qmumarshall(md.qmu.variables,responses)
-%QMUMARSHALL - output ISSM compatible binary file with qmu fields. This is 
-%   in addition to the marshall routine for regular solve routines.
-%   Usage:
-%      qmumarshall(md.qmu.variables,responses)
-% 
-%   where variables and responses are the Dakota variables and responses found in the model @md.
-
-%some checks on list of arguments
-if ((nargin~=3) & (nargout~=0))
-	qmumarshallusage;
-	error('marshall error message');
-end
-
-disp(['qmu marshalling file ' md.miscellaneous.name '.bin']);
-
-%open file for binary adding 
-fid=fopen([ md.miscellaneous.name '.bin'],'ab');
-if fid==-1,
-	error(['qmumarshall error message: could not open ' [md.miscellaneous.name '.bin'],' file for binary adding']);
-end
-
-%deal with variables
-WriteData(fid,md.numvariabledescriptors,'Integer','numvariabledescriptors');
-for i=1:md.numvariabledescriptors,
-	field_name=md.qmu.variabledescriptors{i};
-	WriteData(fid,field_name,'String',['variabledescriptor' num2str(i)]);
-end
-
-%deal with responses
-
-%write number of responses to disk
-WriteData(fid,md.qmu.numberofresponses,'Integer','numberofresponses');
-WriteData(fid,md.qmu.numresponsedescriptors,'Integer','numresponsedescriptors');
-for i=1:md.qmu.numresponsedescriptors,
-	field_name=md.qmu.responsedescriptors{i};
-	WriteData(fid,field_name,'String',['responsedescriptor' num2str(i)]);
-end
-
-%write response specific data
-qmu_segments=0;
-
-for i=1:numel(md.qmu.responsedescriptors),
-	field_name=md.qmu.responsedescriptors{i};
-	if strncmpi(field_name,'indexed_MassFlux',16),
-		qmu_segments=1;
-	end
-end
-
-if qmu_segments,
-	WriteData(fid,md.qmu.mass_flux_num_profiles,'Integer','qmu_mass_flux_num_profiles');
-	for i=1:md.qmu.mass_flux_num_profiles,
-		WriteData(fid,md.qmu.mass_flux_segments{i},'Mat',['qmu_mass_flux_segments' num2str(i)]);
-	end
-else
-	md.qmu.mass_flux_num_profiles=0;
-	WriteData(fid,md.qmu.mass_flux_num_profiles,'Integer','qmu_mass_flux_num_profiles');
-end
-
-%write part and npart to disk
-WriteData(fid,md.qmu.numberofpartitions,'Integer','npart');
-WriteData(fid,md.qmu.partition,'Mat','part');
-
-%close file
-st=fclose(fid);
-if st==-1,
-	error(['qmumarshall error message: could not close file ' [md.miscellaneous.name '.bin']]);
-end
-
-end
-
-function qmumarshallusage()
-disp(' ');
-disp('function qmumarshall(md.qmu.variables,responses)');
-end