Skip to content
Snippets Groups Projects
Commit aa80c0e9 authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann
Browse files

Risk of wrong adress when DK CO is used

parent aaceb561
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 5 additions and 1 deletion
src/collision_mod.F90
+ 5
− 1
View file @ aa80c0e9
...@@ -450,7 +450,11 @@ CONTAINS ...@@ -450,7 +450,11 @@ CONTAINS
Ciipj__kp(:,:,ikp) = 0._dp Ciipj__kp(:,:,ikp) = 0._dp
ELSE ELSE
! Kperp value in string format ! Kperp value in string format
write(kperp_string,'(f6.4)') kparray(ikp) IF (CO .GT. 0) THEN
write(kperp_string,'(f6.4)') kparray(ikp)
ELSE
write(kperp_string,'(f6.4)') 0._dp
ENDIF
!!!!!!!!!!!! Electron matrices !!!!!!!!!!!! !!!!!!!!!!!! Electron matrices !!!!!!!!!!!!
! get the self electron colision matrix ! get the self electron colision matrix
! Allocate space for storing full collision matrix ! Allocate space for storing full collision matrix
......
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