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

typo for electron kernels. now working fine

parent 5bb85d4b
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 2 deletions
src/numerics_mod.F90
+ 1
− 2
View file @ 33cad120
...@@ -69,8 +69,7 @@ DO iz = izgs,izge ...@@ -69,8 +69,7 @@ DO iz = izgs,izge
j_int = jarray_e(ij) j_int = jarray_e(ij)
j_dp = REAL(j_int,dp) j_dp = REAL(j_int,dp)
y_ = sigmae2_taue_o2 * kparray(iky,ikx,iz,eo)**2 y_ = sigmae2_taue_o2 * kparray(iky,ikx,iz,eo)**2
IF(j_int .LE. 0) THEN IF(j_int .LT. 0) THEN
factj = 1._dp
kernel_e(ij,iky,ikx,iz,eo) = 0._dp kernel_e(ij,iky,ikx,iz,eo) = 0._dp
ELSE ELSE
factj = GAMMA(j_dp+1._dp) factj = GAMMA(j_dp+1._dp)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment