function [filenm] = CreateFilenm(Parms)

switch Parms.Version
    case 1  %Filenmame version used for HeaveCone Analysis
        filenm = ['TreFoil_' ...
            '_' Parms.name ...
            '_PO' num2str(Parms.PercentClosed) ...
            '_Hs' num2str(Parms.Hs) ...
            '_T' num2str(Parms.T) ...
            '_dt' num2str(Parms.dt) ...
            '_tf' num2str(Parms.tf)];
    otherwise
        error('Incorrect Version used in CreateFilenm');
        
end
