diff --git a/src/moments_eq_rhs_mod.F90 b/src/moments_eq_rhs_mod.F90 index 7a6603a4ed86e116df3c2d6d636c5866c8d4d207..803ca3d23aa794eb2d767a89c3e825148987d320 100644 --- a/src/moments_eq_rhs_mod.F90 +++ b/src/moments_eq_rhs_mod.F90 @@ -110,7 +110,8 @@ SUBROUTINE moments_eq_rhs_e ! Drives (density + temperature gradients) - i_ky * Tphi & ! Numerical perpendicular hyperdiffusion (totally artificial, for stability purpose) - - (mu_x*kx**4 + mu_y*ky**4)*moments_e(ip,ij,iky,ikx,iz,updatetlevel) & + ! - (mu_x*kx**4 + mu_y*ky**4)*moments_e(ip,ij,iky,ikx,iz,updatetlevel) & + - (mu_x*kx**2 + mu_y*ky**2)*moments_e(ip,ij,iky,ikx,iz,updatetlevel) & ! Numerical parallel hyperdiffusion "+ (mu_z*kz**4)" see Pueschel 2010 (eq 25) + mu_z * diff_dz_coeff * ddz4_Nepj(ip,ij,iky,ikx,iz) & ! Collision term @@ -240,7 +241,8 @@ SUBROUTINE moments_eq_rhs_i ! Drives (density + temperature gradients) - i_ky * Tphi & ! Numerical hyperdiffusion (totally artificial, for stability purpose) - - (mu_x*kx**4 + mu_y*ky**4)*moments_i(ip,ij,iky,ikx,iz,updatetlevel) & + ! - (mu_x*kx**4 + mu_y*ky**4)*moments_i(ip,ij,iky,ikx,iz,updatetlevel) & + - (mu_x*kx**2 + mu_y*ky**2)*moments_i(ip,ij,iky,ikx,iz,updatetlevel) & ! Numerical parallel hyperdiffusion "+ (mu_z*kz**4)" + mu_z * diff_dz_coeff * ddz4_Nipj(ip,ij,iky,ikx,iz) & ! Collision term diff --git a/src/processing_mod.F90 b/src/processing_mod.F90 index f1b8eaadbf8ddc590b827a62e4b511b92d798b2d..649d51ef5873857790ce7e40091a37c5ca0f7425 100644 --- a/src/processing_mod.F90 +++ b/src/processing_mod.F90 @@ -189,7 +189,7 @@ SUBROUTINE compute_radial_ion_heatflux n_dp = jarray_i(in) integrant(izs:ize) = integrant(izs:ize) + Jacobian(izs:ize,0)*tau_i*imagu*ky_*CONJG(phi(iky,ikx,izs:ize))& - *kernel_i(in,iky,ikx,iz,0)*(& + *kernel_i(in,iky,ikx,izs:ize,0)*(& 0.5_dp*SQRT2*moments_i(ip2_i,in ,iky,ikx,izs:ize,updatetlevel)& +(2._dp*n_dp + 1.5_dp)*moments_i(ip0_i,in ,iky,ikx,izs:ize,updatetlevel)& -(n_dp+1._dp)*moments_i(ip0_i,in+1,iky,ikx,izs:ize,updatetlevel)& @@ -252,7 +252,7 @@ SUBROUTINE compute_radial_electron_heatflux n_dp = jarray_e(in) integrant(izs:ize) = integrant(izs:ize) + Jacobian(izs:ize,0)*tau_e*imagu*ky_*CONJG(phi(iky,ikx,izs:ize))& - *kernel_e(in,iky,ikx,iz,0)*(& + *kernel_e(in,iky,ikx,izs:ize,0)*(& 0.5_dp*SQRT2*moments_e(ip2_e,in ,iky,ikx,izs:ize,updatetlevel)& +(2._dp*n_dp + 1.5_dp)*moments_e(ip0_e,in ,iky,ikx,izs:ize,updatetlevel)& -(n_dp+1._dp)*moments_e(ip0_e,in+1,iky,ikx,izs:ize,updatetlevel)&