save the scripts

wk/marconi_run.m

@@ -66,8 +66,8 @@ W_NAPJ   = 1; W_SAPJ   = 0;
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% unused
 KIN_E   = 1;         % Kinetic (1) or adiabatic (2) electron model
-GRADB   = 1.0;       % Magnetic  gradient
-CURVB   = 1.0;       % Magnetic  curvature
+k_gB   = 1.0;       % Magnetic  gradient
+k_cB   = 1.0;       % Magnetic  curvature
 SG      = 0;         % Staggered z grids option
 PMAXE   = P;    % Highest electron Hermite polynomial degree
 JMAXE   = J;     % Highest ''       Laguerre ''

wk/p2_heatflux_salpha_convergence.m

 %% Heat flux convergence for kt=6.96 and 5.3
 figure
 title('s-$\alpha$ turb. heat flux conv.');
-% KT 6.96, nuDGDK = 0.05, 128x64x16, Nexc 1
-P   = [2     4     12];
-Qx  = [50.00 46.00 41.00];
-std_= [6.600 2.300 6.600];
-    errorbar(P,Qx,std_/2,'o-.r',...
+% KT 6.96, nuDGDK = 0.05, 128x64x24, Nexc 5
+P   = [2    4     12];
+Qx  = [52.4 46.1 0];
+std_= [12.1 4.98 0];
+    errorbar(P,Qx,std_/2,'s-r',...
     'LineWidth',2.0,'MarkerSize',8,...
     'DisplayName','KT 6.9, nuDGDK 0.05'); hold on
 xlabel('$P$, $J=P/2$'); ylabel('$Q_x$');
-% KT 6.96, nuDGDK = 0.05, 128x64x24, Nexc 5
-P   = [4     6     8     10   ];
-Qx  = [67.62 67.50 59.21 64.17];
-std_= [15.42 20.32 17.25 16.05];
+% KT 6.96, nuDGDK = 0.05, 192x96x24, Nexc 5
+P   = [4    6    8    10  ];
+Qx  = [42.9 44.9 00.0 00.0];
+std_= [9.15 7.12 0.00 0.00];
     errorbar(P,Qx,std_/2,'o-r',...
     'LineWidth',2.0,'MarkerSize',8,...
     'DisplayName','KT 6.9, nuDGDK 0.05'); hold on
 xlabel('$P$, $J=P/2$'); ylabel('$Q_x$');
 % KT 5.3, nuDGDK = 0.05, 128x64x24, Nexc 5
 P   = [4     6     8     10    12   ];
-Qx  = [44.10 21.61 16.04 0.558 0.901];
-std_= [10.61 6.952 4.166 0.025 0.122];
-errorbar(P,Qx,std_/2,'o-b',...
+Qx  = [0 0 0 0 0];
+std_= [0 0 0 0 0];
+errorbar(P,Qx,std_/2,'o--r',...
     'LineWidth',2.0,'MarkerSize',8,...
     'DisplayName','KT 5.3, nuDGDK 0.05');
 xlabel('$P$, $J=P/2$'); ylabel('$Q_x$');
@@ -30,7 +30,7 @@ xlabel('$P$, $J=P/2$'); ylabel('$Q_x$');
 Nvp = [32    16    8     8];
 Qx  = [34.53 37.96 1.948 13.0];
 std_= [7.830 6.048 0.629 3.09];
-errorbar(Nvp,Qx,std_/2,'s--r',...
+errorbar(Nvp,Qx,std_/2,'o-b',...
     'LineWidth',2.0,'MarkerSize',8,...
     'DisplayName','KT 6.9 GENE');
 xlabel('$P=N_{v\parallel}$, $J=P/2=N_\mu$'); ylabel('$Q_x$');
@@ -42,11 +42,16 @@ xlabel('$P=N_{v\parallel}$, $J=P/2=N_\mu$'); ylabel('$Q_x$');
 Nvp = [32    16    8];
 Qx  = [0.284 0.000 0.370];
 std_= [0.177 0.000 0.140];
-errorbar(Nvp,Qx,std_/2,'s--b',...
+errorbar(Nvp,Qx,std_/2,'o--b',...
     'LineWidth',2.0,'MarkerSize',8,...
     'DisplayName','KT 5.3 GENE');
 xlabel('$P=N_{v\parallel}$, $J=P/2=N_\mu$'); ylabel('$Q_x$');
 
+% DIMITS
+Dimits_result = 7.67*2*2.5;
+plot([0 32], Dimits_result*[1 1],'-.k','DisplayName','Dimits CBC');
+legend('show');
+
 %% KT scans 9x5x128x64x24
 clrs = lines(10);
 figure
@@ -57,3 +62,37 @@ errorbar(kT_,Qx_,std_/2,'s--','color',clrs(4,:),...
     'LineWidth',2.0,'MarkerSize',8,...
     'DisplayName','(8,4)');
 xlabel('$K_T$'); ylabel('$Q_x$');
+
+%% Add Dimits results on current plot
+plot([0 500], Dimits_result*[1 1],'-.k');
+%% Add Mandell Miller results on current plot
+Mandell_result = 7.67*7.5;
+plot([0 500], Mandell_result*[1.3 1.3],'-.k');
+plot([0 500], Mandell_result*[1 1],'--k');
+plot([0 500], Mandell_result*[0.7 0.7],'-.k');
+
+%% Old results (before the 2j-1 factor in mirror term)
+% KT 6.96, nuDGDK = 0.05, 128x64x16, Nexc 1
+% P   = [2     4     12];
+% Qx  = [50.00 46.00 41.00];
+% std_= [6.600 2.300 6.600];
+%     errorbar(P,Qx,std_/2,'s-r',...
+%     'LineWidth',2.0,'MarkerSize',8,...
+%     'DisplayName','KT 6.9, nuDGDK 0.05'); hold on
+% xlabel('$P$, $J=P/2$'); ylabel('$Q_x$');
+% % KT 6.96, nuDGDK = 0.05, 128x64x24, Nexc 5
+% P   = [4     6     8     10   ];
+% Qx  = [67.62 67.50 59.21 64.17];
+% std_= [15.42 20.32 17.25 16.05];
+%     errorbar(P,Qx,std_/2,'o-r',...
+%     'LineWidth',2.0,'MarkerSize',8,...
+%     'DisplayName','KT 6.9, nuDGDK 0.05'); hold on
+% xlabel('$P$, $J=P/2$'); ylabel('$Q_x$');
+% % KT 5.3, nuDGDK = 0.05, 128x64x24, Nexc 5
+% P   = [4     6     8     10    12   ];
+% Qx  = [44.10 21.61 16.04 0.558 0.901];
+% std_= [10.61 6.952 4.166 0.025 0.122];
+% errorbar(P,Qx,std_/2,'o--r',...
+%     'LineWidth',2.0,'MarkerSize',8,...
+%     'DisplayName','KT 5.3, nuDGDK 0.05');
+% xlabel('$P$, $J=P/2$'); ylabel('$Q_x$');
\ No newline at end of file

wk/quick_run.m

@@ -91,8 +91,8 @@ MU_J    = 0.0;     %
 LAMBDAD = 0.0;
 NOISE0  = 1.0e-5; % Init noise amplitude
 BCKGD0  = 0.0;    % Init background
-GRADB   = 1.0;
-CURVB   = 1.0;
+k_gB   = 1.0;
+k_cB   = 1.0;
 %%-------------------------------------------------------------------------
 %% RUN
 setup