function [filenm] = make_filename(ENV,LAYOUT)

filenm = ['ESP_d' num2str(ENV.depth) ...
            '_c' num2str(ENV.currentscale) ...
            '_A' num2str(ENV.xwaveamp) ...
            '_T' num2str(ENV.xwaveperiod) ...
            '_W' num2str(ENV.xwind) ...
            '_PL' num2str(LAYOUT.poly_length) ...
            '_PSp' num2str(LAYOUT.poly_nodespace) ...
            '_t' num2str(ENV.tf) ...
            '_dt' num2str(ENV.dt) ...
            '_rt' num2str(ENV.ramptime) ...
%            '_dl' num2str(ENV.dynamiclambda) ...
   ];

%if(length(ENV.xcurrent) < 3)
   filenm = [filenm '_linearcurrent'];
%filenm = [filenm '_slabcurrent'];
%end

end

