comsol_save.m

function comsol_save(savename, varargin)
%function comsol_save(savename, varargin)
%
% function saving data, also saves the comsol model in an extra
% file called 'savename_cmodel.mph'
%
% Oliver Zeeb 2012/11/29

if nargin == 1
    varargin = evalin('caller','who;');
end

saved_cmodel = 0;
for k = 1 :length(varargin)
    
    %Wenn irgendeins der übergebenden Daten ein struct ist: schaue ob dort ein comsol_model drinsteckt:
    %falls ja: abspeichern!!!
    
    if ((saved_cmodel == 0) && (evalin('caller',['isstruct(',varargin{k},')'])))
        if (evalin('caller',['isfield(',varargin{k},',''comsol_model'')']))
        %if isfield(eval(varargin{k}), 'comsol_model')
            evalin('caller',['mphsave(',varargin{k},'.comsol_model,''',[savename,'_cmodel.mph'],''')']);
            saved_cmodel = 1;
        end
    end
            
%     % save the comsol model only if not yet saved!
%     if (saved_cmodel == 0 &&( strcmp(varargin(k), 'model_data') || strcmp(varargin(k), 'detailed_data')))
%         evalin('caller',['mphsave(',varargin{k},'.comsol_model,''',savename,'_cmodel.mph'')']);
%         saved_cmodel = 1;
%     end
end

warning('off'); %suppress warnings because cmodel-object cannot be saved via 'save'
savestring = [];
for k = 1 :length(varargin)
    savestring = [savestring,' ', varargin{k}];
end
evalin('caller',['save ', savename, savestring])
warning('on');