11/********************************
22 * CONVERT ET ID TO IllinoisGRMHD
3- *
3+ *
44 * Written in 2014 by Zachariah B. Etienne
55 *
6- * Sets metric & MHD variables needed
6+ * Sets metric & MHD variables needed
77 * by IllinoisGRMHD, converting from
88 * HydroBase and ADMBase.
99 ********************************/
@@ -37,7 +37,7 @@ extern "C" void set_IllinoisGRMHD_metric_GRMHD_variables_based_on_HydroBase_and_
3737 ***************/
3838 eos_struct eos ;
3939 initialize_EOS_struct_from_input (eos );
40-
40+
4141 if (pure_hydro_run ) {
4242#pragma omp parallel for
4343 for (int k = 0 ;k < cctk_lsh [2 ];k ++ ) for (int j = 0 ;j < cctk_lsh [1 ];j ++ ) for (int i = 0 ;i < cctk_lsh [0 ];i ++ ) {
@@ -49,38 +49,12 @@ extern "C" void set_IllinoisGRMHD_metric_GRMHD_variables_based_on_HydroBase_and_
4949 }
5050 }
5151
52- // Check whether or not to apply a pressure depletion to the initial data
53- bool apply_pressure_depletion = false;
54- if ( ID_converter_ILGRMHD_pressure_depletion_factor != 0.0 ) apply_pressure_depletion = true;
55-
5652#pragma omp parallel for
5753 for (int k = 0 ;k < cctk_lsh [2 ];k ++ ) for (int j = 0 ;j < cctk_lsh [1 ];j ++ ) for (int i = 0 ;i < cctk_lsh [0 ];i ++ ) {
5854 int index = CCTK_GFINDEX3D (cctkGH ,i ,j ,k );
5955
60- if ( apply_pressure_depletion ) {
61- // Deplete the pressure
62- const CCTK_REAL pressL = (1.0 - ID_converter_ILGRMHD_pressure_depletion_factor )* press [index ];
63- // Recompute P and eps
64- const CCTK_INT ppidx = find_polytropic_K_and_Gamma_index_from_P (eos ,pressL );
65- const CCTK_REAL K = eos .K_ppoly_tab [ppidx ];
66- const CCTK_REAL Gamma = eos .Gamma_ppoly_tab [ppidx ];
67- // Now we have
68- // .----------------------.
69- // P = K rho^Gamma => | rho = (P/K)^(1/Gamma)|
70- // .----------------------.
71- const CCTK_REAL rhoL = pow ( pressL /K , 1.0 /Gamma );
72- // Finally compute eps
73- const CCTK_REAL epsC = eos .eps_integ_const [ppidx ];
74- const CCTK_REAL epsL = pressL /(rhoL * (Gamma - 1.0 )) + epsC ;
75-
76- // Now update the HydroBase gridfunctions
77- rho [index ] = rhoL ;
78- press [index ] = pressL ;
79- eps [index ] = epsL ;
80- }
81-
8256 rho_b [index ] = rho [index ];
83- P [index ] = press [index ];
57+ P [index ] = press [index ];
8458
8559 /***************
8660 * PPEOS Patch *
@@ -113,14 +87,14 @@ extern "C" void set_IllinoisGRMHD_metric_GRMHD_variables_based_on_HydroBase_and_
11387 Ay [index ] = Avec [CCTK_GFINDEX4D (cctkGH ,i ,j ,k ,1 )];
11488 Az [index ] = Avec [CCTK_GFINDEX4D (cctkGH ,i ,j ,k ,2 )];
11589 psi6phi [index ] = Aphi [index ];
116-
90+
11791 double ETvx = vel [CCTK_GFINDEX4D (cctkGH ,i ,j ,k ,0 )];
11892 double ETvy = vel [CCTK_GFINDEX4D (cctkGH ,i ,j ,k ,1 )];
11993 double ETvz = vel [CCTK_GFINDEX4D (cctkGH ,i ,j ,k ,2 )];
12094
12195 // IllinoisGRMHD defines v^i = u^i/u^0.
122-
123- // Meanwhile, the ET/HydroBase formalism, called the Valencia
96+
97+ // Meanwhile, the ET/HydroBase formalism, called the Valencia
12498 // formalism, splits the 4 velocity into a purely spatial part
12599 // and a part that is normal to the spatial hypersurface:
126100 // u^a = G (n^a + U^a), (Eq. 14 of arXiv:1304.5544; G=W, U^a=v^a)
@@ -131,8 +105,8 @@ extern "C" void set_IllinoisGRMHD_metric_GRMHD_variables_based_on_HydroBase_and_
131105 // of course \alpha u^0 = 1/sqrt(1+γ^ij u_i u_j) = \Gamma,
132106 // the standard Lorentz factor.
133107
134- // Note that n^i = - \beta^i / \alpha, so
135- // u^a = \Gamma (n^a + U^a)
108+ // Note that n^i = - \beta^i / \alpha, so
109+ // u^a = \Gamma (n^a + U^a)
136110 // -> u^i = \Gamma ( U^i - \beta^i / \alpha )
137111 // which implies
138112 // v^i = u^i/u^0
@@ -157,7 +131,7 @@ extern "C" void set_IllinoisGRMHD_metric_GRMHD_variables_based_on_HydroBase_and_
157131 int index = CCTK_GFINDEX3D (cctkGH ,i ,j ,k );
158132 double pert = (random_pert * (double )rand () / RAND_MAX );
159133 double one_plus_pert = (1.0 + pert );
160- rho [index ]*=one_plus_pert ;
134+ rho_b [index ]*=one_plus_pert ;
161135 vx [index ]*=one_plus_pert ;
162136 vy [index ]*=one_plus_pert ;
163137 vz [index ]*=one_plus_pert ;
@@ -173,7 +147,7 @@ extern "C" void set_IllinoisGRMHD_metric_GRMHD_variables_based_on_HydroBase_and_
173147
174148 double dxi = 1.0 /CCTK_DELTA_SPACE (0 );
175149 double dyi = 1.0 /CCTK_DELTA_SPACE (1 );
176- double dzi = 1.0 /CCTK_DELTA_SPACE (2 );
150+ double dzi = 1.0 /CCTK_DELTA_SPACE (2 );
177151
178152#pragma omp parallel for
179153 for (int k = 0 ;k < cctk_lsh [2 ];k ++ )
@@ -196,7 +170,7 @@ extern "C" void set_IllinoisGRMHD_metric_GRMHD_variables_based_on_HydroBase_and_
196170 double Psi = psi_bssn [actual_index ];
197171 double Psim3 = 1.0 /(Psi * Psi * Psi );
198172
199- // For the lower boundaries, the following applies a "copy"
173+ // For the lower boundaries, the following applies a "copy"
200174 // boundary condition on Bi_stagger where needed.
201175 // E.g., Bx_stagger(i,jmin,k) = Bx_stagger(i,jmin+1,k)
202176 // We find the copy BC works better than extrapolation.
@@ -276,7 +250,7 @@ extern "C" void set_IllinoisGRMHD_metric_GRMHD_variables_based_on_HydroBase_and_
276250
277251 int actual_index = CCTK_GFINDEX3D (cctkGH ,i ,j ,k );
278252
279- // For the lower boundaries, the following applies a "copy"
253+ // For the lower boundaries, the following applies a "copy"
280254 // boundary condition on Bi and Bi_stagger where needed.
281255 // E.g., Bx(imin,j,k) = Bx(imin+1,j,k)
282256 // We find the copy BC works better than extrapolation.
0 commit comments