proc_ITER_Scen2_C3PO_EC_fluctn

 script proc_ITER_Scan2_C3PO_EC_fluctn_Nscan

0001 % script proc_ITER_Scan2_C3PO_EC_fluctn_Nscan
0002 %
0003 clear
0004 close all
0005 %
0006 p_opt = -1;
0007 %
0008 fluct_display.mode = 2;
0009 fluct_display.evol = 0;
0010 fluct_display.stat = 0;
0011 %
0012 id_equil = 'ITER_Scen2_200103121816_430_129';% For plasma equilibrium
0013 id_fluct = 'fluctn';% Fluctuation model
0014 id_wave = 'C3PO_NTM_32';
0015 locid_simul = '_24rays';%Simulation ID
0016 locid_wave_ref = '_24rays';%NaN;%'_20MW_24rays';%'_20MW_1ray';%
0017 %
0018 sigmar_max = [0.7];%[0.5];% Maximum value of the relative fluctuations variance at the poloidal angle theta = 0 [1,nfluct_types]
0019 sigmar_hwhm = [0.02];% Radial half width at half maximum of the relative fluctuations variance at the poloidal angle theta = 0 [1,nfluct_types]
0020 Nfluct = [1];% Ratio of the LUKE evolution time (phase refresh) to the fluctuation time - also equal to the number of duplicated rays
0021 %
0022 tn = 100i;%50;% Final simulation time (normalized to the central thermal collision time)
0023 dtn = 1i;%1;% internal LUKE time step. As an imaginary number, dkeparam.dtn prescribes the number of internal time steps
0024 %
0025 % *************************************************************************
0026 %
0027 id_simul0 = [id_equil,'_',id_wave,locid_simul,'_',id_fluct];
0028 %
0029 id_simul = [id_simul0,'_sigma',num2str(sigmar_max),'_delta',num2str(sigmar_hwhm),'_dtn',num2str(dtn),'_Nfluct',num2str(Nfluct)];
0030 id_simul(id_simul == '.') = 'p';
0031 id_simul(id_simul == '+') = 'p';
0032 %
0033 filename = ['backup_',id_simul,'.mat'];
0034 %
0035 if ~isnan(locid_wave_ref),
0036     %
0037     id_simul_ref = [id_equil,'_',id_wave,locid_wave_ref];
0038     %
0039     filename_ref = ['LUKE_RESULTS_',id_simul_ref,'.mat'];
0040     Zfluct_ref = fproc_fluctn_jd(filename_ref);
0041     %
0042 else
0043     %
0044     Zfluct_ref = '';
0045     %
0046 end
0047 %
0048 Zfluct = fproc_fluctn_jd(filename,fluct_display,Zfluct_ref);
0049 %
0050     
0051     
0052     
0053     
0054