source: issm/trunk-jpl/src/m/model/marshall.m@ 10969

function marshall(md)
%MARSHALL - output compatible binary file from @model md, for certain solution type.
%
%   The routine creates a compatible binary file from @model md
%   This binary file will be used for parallel runs in JPL-package
%
%   Usage:
%      marshall(md)

disp(['marshalling file ' md.miscellaneous.name '.bin']);

%open file for binary writing
fid=fopen([ md.miscellaneous.name '.bin'],'wb');
if fid==-1,
        error(['marshall error message: could not open ' [md.miscellaneous.name '.bin'],' file for binary writing']);
end

%Go through al model field check that it is a class and call checkconsistency
fields=properties(md);
for i=1:length(fields),
        field=fields{i};

        %Some properties do not need to be marshalled
        if ismember(field,{'results' 'debug' 'radaroverlay' 'solver' 'cluster'  'flaim' 'private'}),
                continue;
        end

        %Check that current field is an object
        if ~isobject(md.(field))
                checkmessage(['field ''' char(field) ''' is not an object']);
        end

        %Marshall current object
        %disp(['marshalling ' field '...']);
        md.(field).marshall(fid);
end

%close file
st=fclose(fid);
if st==-1,
        error(['marshall error message: could not close file ' [md.miscellaneous.name '.bin']]);
end