You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
real(dp):: epa_mix_cell(1648), amu_mix_cell, logRho(1648),logT(1648) ! Number of electrons per atom, mean molecular weight, density and temperature as a function of ite (temp index) and jne (density index) from the OP mono data.
45
47
real(dp) :: delta(1648)
46
48
real(dp) :: lgamm_cell(nel) !interpolated log kappa Rossland and log gamma_k in each cell (k = element index).
47
-
real(dp), parameter:: dv =(1.0552976117319748d0-0.00010565516589892675d0)/nptot !v(u(1)) - v(u(nptot))/nptot
49
+
real(dp), parameter:: dv =diff_v/nptot !v(u(1)) - v(u(nptot))/nptot
48
50
real(dp) :: mH
49
51
50
52
integer:: delta_min_idx
@@ -294,7 +296,7 @@ subroutine compute_gamma_grid(ngp, fk_all,lgamm_pcg, lkap_face_pcg, logT_pcg, lo
294
296
!real(dp) :: fk_norm_fac !Local fractional abudance per element and normalization factor.
295
297
real(dp):: epa_mix_cell(1648), amu_mix_cell, fk(nel) ! Number of electrons per atom, mean molecular weight, density and temperature as a function of ite (temp index) and jne (density index) from the OP mono data.
296
298
!integer :: eid(nel)
297
-
real(dp), parameter:: dv =(1.0552976117319748d0-0.00010565516589892675d0)/nptot !v(u(1)) - v(u(nptot))/nptot
299
+
real(dp), parameter:: dv =diff_v/nptot !v(u(1)) - v(u(nptot))/nptot
real(dp):: epa_mix_cell(1648), amu_mix_cell, logRho(1648),logT(1648) ! Number of electrons per atom, mean molecular weight, density and temperature as a function of ite (temp index) and jne (density index) from the OP mono data.
618
620
real(dp) :: delta(1648)
619
621
real(dp) :: lgamm_cell(nel) !interpolated log kappa Rossland and log gamma_k in each cell (k = element index).
620
-
real(dp), parameter:: dv =(1.0552976117319748d0-0.00010565516589892675d0)/nptot !v(u(1)) - v(u(nptot))/nptot
622
+
real(dp), parameter:: dv =diff_v/nptot !v(u(1)) - v(u(nptot))/nptot
real(dp):: epa_mix_cell(1648), amu_mix_cell ! Number of electrons per atom, mean molecular weight, density and temperature as a function of ite (temp index) and jne (density index) from the OP mono data.
826
828
real(dp) :: lgamm_cell(nel) !interpolated log kappa Rossland and log gamma_k in each cell (k = element index).
827
-
real(dp), parameter:: dv =(1.0552976117319748d0-0.00010565516589892675d0)/nptot !v(u(1)) - v(u(nptot))/nptot
829
+
real(dp), parameter:: dv =diff_v/nptot !v(u(1)) - v(u(nptot))/nptot
real(dp):: epa_mix_cell(1648), amu_mix_cell ! Number of electrons per atom, mean molecular weight, density and temperature as a function of ite (temp index) and jne (density index) from the OP mono data.
910
912
real(dp) :: delta(1648)
911
913
real(dp) :: lgamm_cell(nel) !interpolated log kappa Rossland and log gamma_k in each cell (k = element index).
912
-
real(dp), parameter:: dv =(1.0552976117319748d0-0.00010565516589892675d0)/nptot !v(u(1)) - v(u(nptot))/nptot
914
+
real(dp), parameter:: dv =diff_v/nptot !v(u(1)) - v(u(nptot))/nptot
0 commit comments