make_launchid_jd

0001 function id_launch = make_launchid_jd(launch)
0002     %
0003     if isfield(launch,'id'),
0004         id_launch = launch.id;
0005         return
0006     end
0007     %
0008     % create launch id
0009     %
0010     id_launch = 'LH';
0011     %
0012     id_launch = [id_launch,'_nrZ0_',num2str(length(launch.rZ0))];
0013     %
0014     % spectrum
0015     %
0016     if isfield(launch,'spectrum') && isfield(launch.spectrum,'param_tor'),
0017         %
0018         id_launch = [id_launch,'_nl_',num2str(launch.spectrum.param_tor.nlobes),'_dir_',num2str(launch.spectrum.param_tor.dir),'_md_',num2str(launch.spectrum.param_tor.mode)];
0019         %
0020     else
0021         bNpar0str = '';
0022         bdNpar0str = '';
0023         bPlhtotstr = '';
0024         for ib = 1:length(launch.bNpar0),
0025             bNpar0str = [bNpar0str,'_',num2str(real(launch.bNpar0(ib)))];
0026             bdNpar0str = [bdNpar0str,'_',num2str(launch.bdNpar0(ib))];
0027             bPlhtotstr = [bPlhtotstr,'_',num2str(launch.bPlhtot(ib)/1e6)];
0028         end
0029         %
0030         id_launch = [id_launch,'_N0',bNpar0str,'_dN0',bdNpar0str,'_PMW',bPlhtotstr];
0031     end
0032     %
0033     % tail
0034     %
0035     if isfield(launch,'tail'),
0036         locid_simul_tail = make_tail_simulid_jd(launch.tail);
0037         if ~isempty(locid_simul_tail),
0038             id_launch = [id_launch,'_',locid_simul_tail];
0039         end
0040     end
0041     %
0042     % local id
0043     %
0044     if isfield(launch,'locid') && ~isempty(launch.locid),
0045         id_launch = [id_launch,'_',launch.locid];
0046     end
0047     %
0048 end
0049 
0050