Skip to content
Snippets Groups Projects
Commit 28ead18a authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann :seedling:
Browse files

typo

parent 67e07416
No related branches found
No related tags found
No related merge requests found
......@@ -277,7 +277,7 @@ SUBROUTINE compute_radial_ion_heatflux
+tau_i*sqrt_tau_o_sigma_i*imagu*ky_*CONJG(psi(iky,ikx,izgs:izge))&
*kernel_i(in,iky,ikx,izgs:izge,0)*(&
0.5_dp*SQRT2*SQRT3*moments_i(ip3_i,in ,iky,ikx,izgs:izge,updatetlevel)&
+1.5_dp*CONJG(moments_i(ip1_i,in ,iky,ikx,izgs:izge,updatetlevel))& !?????
+1.5_dp*moments_i(ip1_i,in ,iky,ikx,izgs:izge,updatetlevel)&
+(2._dp*n_dp+1._dp)*moments_i(ip1_i,in ,iky,ikx,izgs:izge,updatetlevel)&
-(n_dp+1._dp)*moments_i(ip1_i,in+1,iky,ikx,izgs:izge,updatetlevel)&
-n_dp*moments_i(ip1_i,in-1,iky,ikx,izgs:izge,updatetlevel))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment